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.

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


 

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

13832. Изучение товара. Кинофильмы 394.67 KB
  Эссе по дисциплине Экономическая теория и институциональная экономика. По теме: Изучение товара. Кинофильмы. Введение Кризисный для экономики России 2009 год оказался весьма неплохим для отечественного кинобизнеса. Рублевые сборы кинопроката выросли на 13 а посе
13833. Компании Unilever с точки зрения потребителя и производителя 255.69 KB
  Эссе по микроэкономике на тему: Анализ продукта на примере шампуня Sunsilk Программа восстановления волос Компании Unilever с точки зрения потребителя и производителя. Цель данной работы изучить характеристики товара на рынке на примере шампуня...
13834. Анализ пассажирских перевозок на высокоскоростном электропоезде «Сапсан» с точки зрения потребителя и производителя 124.87 KB
  Эссе по микроэкономикена тему: Анализ пассажирских перевозок на высокоскоростном электропоезде Сапсан с точки зрения потребителя и производителя. Оглавление Введение.3 Рассмотрение товара с точки зрения потребителя. Целевая аудитория.4 Преимущества.4 С...
13835. Анализ геля для бритья Nivea for men sensitive с точки зрения потребителя и производителя 57.59 KB
  Эссе по микроэкономике на тему: Анализ геля для бритья Nivea for men sensitive с точки зрения потребителя и производителя Оглавление Торговая марка Nivea.3 О продукте.4 Анализ.5 Потребитель.5 Производитель.8 Вывод.8 Источники.10 Торговая марка Nivea. ...
13836. CМИ подсчитали, сколько стоят предвыборные обещания: Миронов, Зюганов и Жириновский превзошли даже Путина 18.05 KB
  CМИ подсчитали сколько стоят предвыборные обещания: Миронов Зюганов и Жириновский превзошли даже Путина В нынешней президентской кампании обещания стоят дорого. Чтобы выяснить насколько дорого Московский комсомолец обратился за помощью к одной из экспертных орг
13837. В Москве решили строить ЕврАзЭС по образу Евросоюза 18.75 KB
  В Москве решили строить ЕврАзЭС по образу Евросоюза За экономической интеграцией последует политическая. Такова логика процесса объясняют в Белом доме Президент РФ Дмитрий Медведев в центре и члены Высшего Евразийского экономического совета проходят на очередно...
13838. Валютная война или Замкнутый круг? США и Китай в одной упряжке 17.41 KB
  3 Валютная война или Замкнутый круг США и Китай в одной упряжке Несмотря на валютный конфликт между США и Китаем серьезной угрозы возникновения курсовой войны директорраспорядитель МВФ Доминик СтроссКан не видит. Таким образом глава МВФ опроверг мнение
13839. Власти РФ хвалятся небывалым демографическим успехом, а эксперты пугают: от ямы не спасут даже мигранты 18.85 KB
  Власти РФ хвалятся небывалым демографическим успехом а эксперты пугают: от ямы не спасут даже мигранты Российские власти объявили: впервые за весь постсоветский период удалось стабилизировать численность населения страны. Естественная убыль населения сократилась по
13840. Всемирный банк оценил выгоды России от вступления в ВТО 13.01 KB
  Всемирный банк оценил выгоды России от вступления в ВТО Выгоды ВВП от вступления России в ВТО в среднесрочной перспективе составят 33 процента от ВВП. В денежном выражении показатель составит 49 миллиардов долларов. Об этом сообщается в докладе Всемирного банка опублико...