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.

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


 

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

58373. Россия в условиях глобализации в экономике, политике, культуре. Межпредметный урок-проект 36.5 KB
  Nowadays globalisation is an extremely popular topic, whatever country you are in. - However, not everybody who speaks about it understands what this process actually means
58374. Урок-проект «Die Stadt» 50.5 KB
  Und jetzt wiederholen wir, was wir schon wissen. Schlagt eure Hefte auf. Schreibt das Datum eure Hefte. Heute ist der .... Januar. Ljuda und Artjom kommt an die Tafel! Ljuda nimm die Kreide und schreibe die Übungen an die Tafel.
58376. Простые вещества-металлы 43.25 MB
  Цели урока: повторить особенности строения атомов металлов и металлическую связь. Познакомить с общими физическими свойствами металлов. Оборудование: образцы металловN l Mg Zn рры соляной кислоты и медного купороса ложки серебряная стальная алюминиевая горячая вода золотое кольцо...
58378. Путешествие на космическом корабле «Планета Земля» 112 KB
  Приемы деятельности учителя: Привлечение учащихся к обсуждению проблем, организация обмена мнениями. Основная работа по созданию сценария ложится на плечи наиболее активных, творчески мыслящих, талантливых учеников во главе с учителями.