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.

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


 

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

7126. Понятие о вариационных задачах механики 269 KB
  Понятие о вариационных задачах механики Принцип Гамильтона, рассмотренный выше, является одним из, так называемых, вариационных принципов механики. Эти принципы нашли широкое применение в математике, являясь основой вариационного исчисления. Так, на...
7127. Преимущества ВОЛС перед другими направляющими системами передачи 1.02 MB
  1. Преимущества ВОЛС перед другими направляющими системами передачи. Оптическое волокно в настоящее время считается самой совершенной физической средой для передачи информации, а также самой перспективной средой для передачи больших потоков информац...
7128. Параметры сигнала 451.5 KB
  Лекция №1 Тема: Параметры сигнала Сигналами называются физические процессы, параметры которых содержат информацию. При этом носителем информации является изменяющиеся во времени ток или напряжение. По своей природе все сигналы являются аналого...
7129. Культурологические школы и направления 58.5 KB
  Лекция 2. Культурологические школы и направления А. Биологическое направление. Б. Социально-психологическое направление. В. Структурализм. Г. Теория культурных миграций. Д. Теория локальных цивилизаций. Е. Эволюционизм. Ж. Этологически...
7130. Основы пожарной тактики 94.5 KB
  Основы пожарной тактики Успех тушения пожаров достигается комплексом служебных и оперативно-технических действий. Среди них особое значение имеют: ...
7131. Синтез комбинационных систем 82 KB
  Лекция 2 Тема: Синтез комбинационных систем Под комбинационной схемой понимается цифровой автомат без памяти. Схема однозначно преобразует входные сигналы в выходные, без предистории. Под комбинационной схемой понимается такая схема...
7132. Музыкальное воспитание младших школьников 155.5 KB
  Музыкальное воспитание младших школьников Введение Музыкальное воспитание младших школьников все настойчивее входит в разряд первостепенных задач, волнующих общественность, что дает простор для радикального решения ряда важнейших аспектов про...
7133. Особенности жарочного шкафа 240.23 KB
  Тепловое оборудование предназначено для доведения кулинарных изделий до готовности, их разогрева и поддержания необходимой температуры ...
7134. Логика и теория аргументации 4.26 MB
  Логика и теория аргументации Введение Трудно переоценить значение логики и теории аргументации не только в развитии научного знания, но и в обыденной жизни. Для науки существенным моментом являются эффективные способы обработки информации и методы и...