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.

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


 

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

63452. Выбор средств видеоконтроля для оборудования объектов 190.5 KB
  Учебные вопросы: Выбор средств видеоконтроля для оборудования объектов особенности их эксплуатации Размещение камеры в наблюдаемой зоне Условия эксплуатации ТСН Заключение Литература: ГОСТ Р 515582000. Телевизионные камеры цветного изображения в таких системах практически...
63454. Особенности построения систем контроля доступа 1.49 MB
  По мере накопления опыта создания и применения аппаратуры СКД началось ее активное внедрение на широкий рынок охранных систем. Особенности построения систем контроля доступа Под системой контроля доступа СКД понимают объединенные в комплексы электронные механические электротехнические аппаратнопрограммные...
63456. Рекомендации по выбору средств и систем контроля доступа 145.5 KB
  Аппаратура СКД должна убедиться что доступ предоставляется именно тому лицу которое зарегистрировано как законный пользователь т. Известны разработки СКД основанные на считывании и сравнении конфигураций сетки вен на запястье образцов запаха преобразованных в цифровой вид анализе носящего уникальный характер...
63457. Ограждения периметра, отдельных участков территории. Элементы инженерной укреплённости охраняемых объектов 204.5 KB
  Контроль за выполнением требований настоящего руководящего документа осуществляется подразделениями вневедомственной охраны при включении их представителей в комиссии по обследованию и приемке в эксплуатацию объектов.
63458. Элементы инженерной укреплённости охраняемых объектов 6.99 MB
  Двери деревянные. Двери деревянные. Двери деревянные наружные для жилых и общественных зданий. Двери деревянные внутренние для жилых и общественных зданий.
63459. Основы проектирования систем охраны объектов. Методика определения варианта и тактики охраны 541 KB
  Требования к проекту оборудования объекта ТСОС Методика выбора системы сбора и обработки информации. Технические средства охраны. Состояние физических преград инженерных сооружений имеющих большую стойкость и в связи с этим не блокированных...