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.

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


 

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

53617. Поиск данных в БД: фильтры 29 KB
  Задачи урока: Образовательные: получение новых знаний; формирование умений и навыков; научиться использовать приемы фильтрации данных; Развивающие: развитие логического мышления расширение кругозора. Изучение нового материала Итак запишите пожалуйста тему урока: Поиск данных в БД: фильтры. Наша цель: познакомиться с фильтрацией данных и использовать ее на практике.
53618. Личная гигиена и здоровье 53.5 KB
  Как ни тверды зубы но ини часто разрушаются и болят. Это происходит кода мы пытаемся разгрызть очень твердые продукты используем зубы не по назначению или едим одновременно холодную и горячую пищу. Зубы страдают не только от кариеса но и от других болезней в частности от пародонтита который нередко возникает не как продолжение кариеса и пульпита а от механического повреждения десны например зубной щеткой или грубой пищей неправильного смыкания зубов болезней желудка и других причин.  В третьих увеличивается нагрузка на другие...
53619. Анализ денежных потоков 28 KB
  Движение денежных средств, получаемых и расходуемых предприятием в наличной и безналичной форме, называют в финансовом менеджменте денежными потоками. Эти потоки бывают двух видов: положительные и отрицательные. Положительные потоки (притоки) отражают поступление денег на предприятие, отрицательные (оттоки) – выбытие или расходование денег предприятием.
53620. Геометрические тела. Куб 49.5 KB
  Цели урока: а обучающая познакомить учащихся с элементами ввести понятие развертки куба модели тела; вывести формулу площади поверхности куба; б развивающая развивать математическое мышление; ...
53621. Движение автомобилей через железнодорожные пути 94 KB
  Учитывая что остановочный путь поезда многократно превышает остановочный путь автомобиля Правила предоставляют абсолютный приоритет поезду на нерегулируемых железнодорожных переездах поэтому водитель транспортного средства может пересекать пути только при безусловном выполнении требования уступить дорогу хотя в данном случае более корректно было бы говорить о необходимости пропустить поезд. Для того чтобы водитель имел возможность заблаговременно убедиться в отсутствии приближающегося поезда с места водителя должна быть обеспечена...
53622. ПРЯМОУГОЛЬНЫЙ ПАРАЛЛЕЛЕПИПЕД 194.5 KB
  Цели урока: а обучающая познакомить учащихся с элементами прямоугольного параллелепипеда; ввести понятие развертки прямоугольного параллелепипеда; вывести формулу площади поверхности прямоугольного параллелепипеда;...
53623. «Одежда»; выражения have on, put on 73 KB
  We have already read the first part of the tale about Baby Elephant. Who can say, what did Father Elephant buy for his son in the shop?
53624. England, Scotland, Wales and Northern Ireland 138.5 KB
  There are four countries in Great Britain. They are England, Scotland, Wales and Northern Ireland. Look at the map of Great Britain. Let’s read their names. Let’s find them on the map. Would you like to learn about these countries? Today we have such a chance. Well, let’s start our lesson.
53625. Проекционное черчение 72.5 KB
  Презентация Правила нанесения размеров Примеры работ Прокладка Материал: Для учителя Учебник Конспект Запасные форматы Запасные карандаши Запасные линейки Запасные ластики Для учащихся треугольники карандаши форматы линейки ластики учебник рабочая тетрадь Задачи для учащихся: Выполнить чертеж плоской детали по половине заданного вида с применением масштаба Нанести размеры. точное нанесение размера правильное построение второй половины детали Прокладка...