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.

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


 

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

19976. Остров СПИД 145.5 KB
  Я люблю тебя милый. Я люблю тебя жизнь Что само по себе и не ново. Я люблю тебя жизнь Я люблю тебя снова и снова. Вот уж окна зажглись Я шагаю с работы устало Я люблю тебя жизнь И хочу что бы лучше ты стала.
19977. ЗАКАЛЯЙСЯ КАК СТАЛЬ 14.84 KB
  Я люблю тебя жизнь Что само по себе и не ново. Я люблю тебя жизнь Я люблю тебя снова и снова. Вот уж окна зажглись Я шагаю с работы устало Я люблю тебя жизнь И хочу что бы лучше ты стала. Так ликуй и вершись В трубных звуках весеннего гимна; Я люблю тебя жизнь И надеюсь что это взаимно Ведущий.
19979. Я здоровье сберегу –сам себе я помогу 78 KB
  Я люблю тебя жизнь Что само по себе и не ново. Я люблю тебя жизнь Я люблю тебя снова и снова. Вот уж окна зажглись Я шагаю с работы устало Я люблю тебя жизнь И хочу что бы лучше ты стала. Так ликуй и вершись В трубных звуках весеннего гимна; Я люблю тебя жизнь И надеюсь что это взаимно ______________________________________________________________________ 1й участник.
19980. Я, ТЫ, МЫ И ЗОЖ 10.02 MB
  Нужно чтоб каждый сказал вместе с нами каждому кто рядом: ДАЖЕ НЕ ПРОБУЙ Люблю свою семью друзей этот город и Россию. Я люблю тебя жизнь Что само по себе и не ново. Я люблю тебя жизнь Я люблю тебя снова и снова. Вот уж окна зажглись Я шагаю с работы устало Я люблю тебя жизнь И хочу что бы лучше ты стала.
19981. Я в 21 веке – здоров 39 KB
  Я люблю тебя жизнь Что само по себе и не ново. Я люблю тебя жизнь Я люблю тебя снова и снова. Вот уж окна зажглись Я шагаю с работы устало Я люблю тебя жизнь И хочу что бы лучше ты стала. Так ликуй и вершись В трубных звуках весеннего гимна
19982. Минздрав предупреждает 42.5 KB
  Я люблю тебя жизнь Что само по себе и не ново. Я люблю тебя жизнь Я люблю тебя снова и снова. Вот уж окна зажглись Я шагаю с работы устало Я люблю тебя жизнь И хочу что бы лучше ты стала. Так ликуй и вершись В трубных звуках весеннего гимна; Я люблю тебя жизнь И надеюсь что это взаимно
19983. Не оступись – от наркотиков откажись 60 KB
  Я люблю тебя жизнь Что само по себе и не ново. Я люблю тебя жизнь Я люблю тебя снова и снова. Вот уж окна зажглись Я шагаю с работы устало Я люблю тебя жизнь И хочу что бы лучше ты стала. Так ликуй и вершись В трубных звуках весеннего гимна; Я люблю тебя жизнь И надеюсь что это взаимно
19984. Наркотики не принимал но хочу попробовать 13.49 KB
  Анализ: если имеются зеленые и красные карточки, то для данного контингента детей эта проблема является актуальной. Подготовить карточки для разбивки на группы. Всего пять групп: родители, подростки, обыватели, врачи, научные работники. Таблички для столов по названиям групп.