51068

Робота з файлами записів

Практическая работа

Информатика, кибернетика и программирование

Мета: Створити програму, яка працюватиме з базою даних — телефонним довідником, реформованим у вигляді файлу записів. Висновок: Я навчивсястворювати програму яка працює з базою даних — телефонним довідником, реформованим у вигляді файлу записів.

Украинкский

2014-02-04

21.84 KB

5 чел.


Розробив

Олійник Д.А.

12.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

1

Змін

Арк.

№ Докум

Підпис

Дата

Практична робота № 5

Тема: Робота з файлами записів

Мета: Створити програму, яка працюватиме з базою даних — телефонним довідником, реформованим у вигляді файлу записів.

Хід роботи

Info=record

Prizv,imja:string[20];

Adresa:string;

Tel^string;

End;

Var PagesDlg:TPagesDlg;

F:file of info

R:info;

N:integer;

Procedure TPageDlg.N3Click(Sender:Tobject);

Var i:integer;

Begin

If OpenDialog1.Execute then begin

AssignFile(F,Opendialog1.FileName);

Rsset(F);N:=0;

while not eof(F) do

begin

Read(F,r);

StringGrid1.Cells[0,N+1]:=r:prizv;

StringGrid1.Cells[1,N+1]:=r:imja;

StringGrid1.Cells[2,N+1]:=r:adresa;

StringGrid1.Cells[3,N+1]:=r.tel;

N: =N+1;

End;

CloseFile(F);

NewEdit(ComboBox1);

NewComboBox;

End;

End;

Procedure TPagesDlg.N4Click(Sender: TObject);

Var i:integer;

Begin

If SaveDialog1.Execute then begin

AssignFile(F,SaveDialog1FileName);

Rewrite(F); i:=1;

whileStringGrid1.Cells[3,i]<>”do

begin

r:prizv:=StringGrid1Cells[0,i];

r.imja:=StringGrid1.Cells[1,i];

r.adresa:=StringGrid1.Clls[2,i];

r.tel:=StringGrid1.Cells[3,i];

Розробив

Олійник Д.А.

12.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

2

Змін

Арк.

№ Докум

Підпис

Дата

Write(F,r);i:=i+1;

End;

CloseFile(F);

End;

End.

Висновок: Я навчивсястворювати програму яка працює з базою даних — телефонним довідником, реформованим у вигляді файлу записів.


 

А также другие работы, которые могут Вас заинтересовать

78696. МЕТОДИЧЕСКОЕ ОБЕСПЕЧЕНИЕ ОЦЕНКИ АССОРТИМЕНТНОЙ ПОЛИТИКИ ПРЕДПРИЯТИЙ МЕБЕЛЬНОЙ ПРОМЫШЛЕННОСТИ 1.36 MB
  Практика реформирования экономики России наглядно продемонстрировала, что недооценка микроэкономических предпосылок роста реального сектора экономики может привести к негативному влиянию на экономическое развитие, к значительным потерям ресурсов и увеличению продолжительности реформ.
78697. Коррекция девиантного поведения подростков в условиях оздоровительно-образовательных центров 440.33 KB
  Рост девиантного поведения различных возрастных категорий населения несовершеннолетней молодежи обозначил актуальность проблемы организации профилактической работы с детьми и молодежью, но в связи с тем, что реализация профилактических технологий осуществляется с детьми...
78698. ПРАВОВЫЕ ОТНОШЕНИЯ В ИНФОРМАЦИОННОЙ СФЕРЕ 2.51 MB
  Сегодня все больше увеличивается значение информации в самых различных социальных процессах. Активное использование средств обработки и передачи информации развитие новых технологий вызывает существенные изменения в экономической политической и иных сферах общественной жизни.
78699. Ідея розвитку у працях Я. А. Коменського, М. Монтеня, Ж.-Ж. Руссо 69.5 KB
  Мета даного реферату - розкрита одну з головних проблем сучасної педагогіки, а саме проблему розвиваючого навчання. Можна із впевненістю сказати, що запровадження розвиваючого навчання в сучасну школу має величезне педагогічне значення.
78701. ЭРИКСОН ЭРИК 31 KB
  По Эриксону главной частью структуры личности является не бессознательное ИД как у Фрейда но сознаваемая часть Эго которая стремится в своем развитии к сохранению своей цельности и индивидуальности.
78703. Повреждения и заболевания конечностей 201.94 KB
  Стадия декомпенсации -– боли в покое изменения цвета кожи вынужденное положение конечности. Признаками перелома кости являются боль отечность тканей патологическая подвижность и крепитация костных отломков нарушение функции при возникновении смещения отломков деформация конечности.
78704. Социальная стратификация 152.5 KB
  Постоянное ранжирование социальных статусов и ролей в социальной системе. Социологи называют социальной стратификацией расположение индивидов и групп сверху вниз по горизонтальным слоям или стратам по признаку неравенства в доходах уровне образования объеме власти профессиональном престиже.