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.

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


 

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

33218. Классификация режимов работы судового электрооборудования в зависимости от продолжительности рабочего цикла 83.58 KB
  Судовое электрооборудование будет работать надежно, если оно не только правильно сконструировано, но и правильно используется. СЭО используется правильно, если оно соответствует условиям работы судового механизма, устройства и т.п.
33224. Электромагнитные измерительные приборы 13.15 KB
  Магнитоэлектрический прибор измерительный прибор непосредственной оценки для измерения силы электрического тока напряжения или количества электричества в цепях постоянного тока Электри́ческая мо́щность физическая величина характеризующая скорость передачи или преобразования электрической энергии. Ток изменяющийся во времени по значению и направлению называется переменным. В практике применяют периодически изменяющийся по синусоидальному закону переменный ток.
33225. Внешние магнитные поля 13.91 KB
  Изменение направления тока в обмотке прибора приводит к перемагничиванию сердечника или сердечников и сила взаимодействия не меняет своего направления. К недостаткам прибора нужно отнести малую точность неравномерность шкалы зависимость показаний прибора от внешних магнитных полей и от частоты.
33226. Химические источники э. д. с. (аккумуляторы, элементы) 13.53 KB
  Если внести проводник с током в магнитном поле то в результате сложения магнитных полей магнита и проводника произойдет усиление результирующего магнитного поля с одной стороны проводника на чертеже сверху и ослабление магнитного поля с другой стороны проводника Правило левой рукидля определения направления силы действующей на проводник с током в магнитном поле. поле проводник с током: если расположить левую ладонь так чтобы вытянутые пальцы совпадали с направлением тока а силовые линии магн. поля входили в ладонь то отставленный...