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.

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


 

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

34482. Русское искусство середины 18в.: Архитектура – от барокко к классицизму 31 KB
  : Архитектура от барокко к классицизму. Переход от барокко к классицизму был одним из самых быстрых в смене стилей отечественной архитектуры. Конец 1750х годов еще расцвет барокко. Барокко как самостоятельный стиль в русской архитектуре оформилось в 1730х годах.
34483. Русская архитектура середины 18в. Школа Д. В.Ухтомского. Своеобразие архитектурного почерка 33 KB
  Ухтомского заключалась в руководстве правильной застройкой города. Ухтомского. Ухтомского выходили отличные зодчие примером чего может служить М. Ухтомского.
34484. Русская архитектура второй половины 18в. Деятельность М.Ф. Казакова 35 KB
  Казакова М. Казаков ученик архитектурной школы известного русского зодчего Д. возглавил школу и команду Казаков приобрел большой строительный опыт: участвовал в создании Головинского дворца Триумфальных ворот на Страстной площади в честь коронации Екатерины II галереи Оружейной палаты. Впервые дарование Казакова как архитектора раскрылось во время его участия в восстановлении Твери после пожара в мае 1763 г.
34485. Русское искусство к.18в.: Эпоха русского классицизма. Портретный и исторический жанр в творчестве А.П. Лосенко. М.Шибанов – зачинатель крестьянского бытового жанра 34.5 KB
  Лосенко. Лосенко 1737 1773 сын крестьянина ставший потом директором Академии. Будучи воспитанником Академии художеств Лосенко создал большую историческую картину на евангельский сюжет Чудесный улов . Лосенко много внимания уделял он живописным этюдам обнаженного тела; в результате появились известные полотна Авель и Каин .
34486. Русское искусство к.18в.: Исторический пейзаж в творчестве Ф.М. Матвеева, С.Ф. Щедрина. Городской пейзаж в творчестве Ф.Я. Алексеева 31 KB
  Классицизм стремился подчинить себе все виды живописи превратить их по сути дела в исторический жанр. Среди его работ наиболее известны серии видов Павловского Гатчинского и Петергофского парков виды Каменного острова и декоративные панно для Михайловского дворца в Петербурге. Щедрин запечатлел конкретные виды архитектурных сооружений но главную роль отводил не им а окружающей природе с которой человек и его творения оказываются в гармоническом слиянии. Виды уютны уравновешенны в них есть прелесть открытия нового чувства природы...
34487. Русское искусство к.18в.: Портрет в творчестве Ф.С. Рокотова, Д.Г. Левицкого, В.Л. Боровиковского 34 KB
  : Портрет в творчестве Ф. Новый этап в развитии портретного искусства которое теперь не ограничивается запечатлением индивидуальных черт человека но проникает в его внутренний мир ознаменовался творчеством Ф. Удивительная одаренность Рокотова быстро принесла ему известность и признание при дворе но лучшие произведения относятся к московскому периоду его жизни где расцвел талант художника в области интимных камерных портретов. Созданный Рокотовым тип портрета камерный интимный портрет составляет целую эпоху в русской портретной...
34488. Архитектура первой половины 19в.: от классицизма к ампиру. А.Н. Воронихин. Ж.Т. де Томон, А.Д.Захаров, К.И. Росси 85 KB
  : от классицизма к ампиру. В Российской империи стиль ампир появился при Александре I. Для возведения Исакиевского собора Александр I пригласил начинающего французского архитектора Анри Луи Огюста Рикар де Монферрана впоследствии ставшего одним из основоположников русского ампира. Ампир от фр.
34489. Скульптура первой половины 19в.Скульпторы И.П. Мартос, Ф.Ф. Щедрин 26.5 KB
  Мартос Ф. Мартос создатель памятника Минину и Пожарскому а также Ф. Иван Петрович Мартос выдающийся русский скульптормонументалист. Портрет как самостоятельный жанр не занимает в творчестве Мартоса значительного места.
34490. Русское искусство н.19в.: Романтизм в творчестве живописца О.А. Кипренского 35.5 KB
  В изобразительном искусстве начала столетия сформировалось и новое направление вошедшее в историю под названием романтизма явление европейской культуры в XVIII XIX веках представляющее собой реакцию на Просвещение и стимулированный им научнотехнический прогресс. В начале XIX века романтизм стал обозначением нового направления противоположного классицизму и Просвещению. Героические походы Суворова на рубеже XVIII XIX столетий войны с Наполеоном и наконец народноосвободительная Отечественная война 1812 года а вслед за ней дворянское...