Belova_TM

Form1.Label2.Enabled:=False; Form1.Label3.Enabled:=False; Form1.Label4.Enabled:=False; Form1.Label5.Enabled:=False; //Скрыть окошки для редактирования полей записи

Form1.Edit1.Enabled:=False; Form1.Edit2.enabled:=False; Form1.Edit3.enabled:=False; Form1.SpeedButton4.enabled:=False; //Скрыть кнопку «Вперед» Form1.SpeedButton5.enabled:=False; //Скрыть кнопку «Назад»

Form1.SpeedButton3.enabled:=False; //Скрыть кнопку «Добавить» Form1.SpeedButton6.enabled:=False; //Скрыть кнопку «Заменить» Form1.SpeedButton7.Enabled:=False; //Скрыть кнопку «Закрыть файл»

Form1.SpeedButton1.Enabled:=True; //Показать кнопку «Создать файл»

Form1.SpeedButton2.Enabled:=True; //Показать кнопку «Открыть файл» end;

end.

//Текст модуля Unit2 unit Unit2;

interface uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm2 = class(TForm) Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit; Button1: TButton; Button2: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel;

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form2: TForm2;

ISYes :Boolean; implementation {$R *.dfm}

//-----------------Нажатие на кнопку «Да»----------------------

procedure TForm2.Button1Click(Sender: TObject); begin

procedure TForm2.Button2Click(Sender: TObject); begin

IsYes:=False;

Close;

end;

end.

Контрольные вопросы к главе 10

1.Какие виды файлов существуют в Delphi?

2.Сформулируйте определение текстового файла.

3.Сформулируйте определение типизированного файла.

4.Сформулируйте определение нетипизированного файла.

5.Чем отличается прямой доступ от последовательного дос-

тупа?

6.С помощью каких процедур можно создать файл?

7.Как открыть существующий файл?

8.С помощью какой процедуры закрывают файл?

9.С помощью каких процедур можно добавить информацию

втекстовый файл?

10.С помощью каких процедур можно добавить информацию

втипизированный файл?

11.С помощью каких процедур можно добавить информацию

внетипизированный файл?

12.Какие основные процедуры и функции обработки файлов Вы знаете?

13.Каким образом проверить наличие файла на диске?

14.С помощью каких процедур и функций можно осуществить просмотр типизированного файла?

15.С помощью каких процедур и функций можно осуществить просмотр нетипизированного файла?

16.С помощью каких процедур можно изменить размер блока

внетипизированном файле?

17.С помощью каких процедур и функций можно осуществить просмотр текстового файла?

Задания к лабораторной работе №10

Написать программу, которая выполняет с файлом следующие действия:

–создание файла;

–добавление записи в файл;

–просмотр содержимого файла;

–удаление записи из файла;

–поиск записи в файле.

1.Даны результаты медицинского обследования группы детей, в которых указаны: фамилия, адрес, возраст, вес, рост и наличие прививок по возрасту.

2.Есть список сотрудников с указанием фамилии, адреса, даты рождения, общего стажа работы, стажа работы в данной организации, оклада согласно штатному расписанию.

3.В банке данных библиотеки хранятся сведения о книгах: название книги, автор, год выпуска, стоимость, издательство, как часто книга пользовалась спросом у читателей.

4.В кинотеатрах города демонстрируются фильмы. Известны названия кинотеатров, названия фильмов, киностудия, режиссёр, дата первого показа и дата последнего показа.

5.В соревнованиях по прыжкам в высоту принимали участие спортсмены нескольких стран. О каждом участнике известны следующие сведения: фамилия, возраст, страна, спортивный разряд, сведения о дисквалификации.

6.В банке данных хранятся сведения о городах ЦентральноЧернозёмного района: название города, год основания, количество

жителей, занимаемая площадь, количество экологически вредных предприятий.

7.В банке данных администрации хранятся сведения о фирмах: название, дата регистрации, форма собственности, № счёта, сумма доходов за предыдущий год, количество сотрудников.

8.В банке данных отдела кадров хранятся сведения о рабочих: табельный номер, пол, поступление на работу, разряд по профессии, сведения о нарушениях трудовой дисциплине.

9.В банк данных биржи труда вводятся сведения о безработных: фамилия, образование, год рождения, количество иждивенцев, дата обращения на биржу, профессия, последнее место работы, размер заработной платы.

10.Есть список учащихся с указанием № группы, фамилии и экзаменационных оценок по 4 предметам.

11.В областном центре по сельскому хозяйству имеются следующие сведения: название района, размер площадей засеваемых зерновыми, урожайность с 1 га, сведения о транспортном парке.

12.В банке данных детского сада хранятся сведения о детях: имя, фамилия, адрес, год рождения, перенесённые болезни.

13.В КВН принимают участие команды из разных городов. О каждой команде известно: название, город, количество участников, капитан, количество проигрышей и побед.

14.В базе данных адресно-справочного бюро хранится информация о жителях города: Ф.И.О., год рождения, прописка, место жительства.

15.В поликлинике хранятся сведения о пациентах: Ф.И.О., год рождения, прописка, место работы (учёбы), перенесённые болезни, стоит ли человек на учёте (по какой болезни и у какого врача).

16.В базе данных роддома хранится информация о детях: Ф.И.О., пол ребёнка, его год рождения, вес, рост, наличие врождённых болезней.

17.В базе данных почты хранятся сведения о подписчиках на газеты и журналы: Ф.И.О., адрес, названия газет и журналов.

18.Есть список планет солнечной системы: номер планеты по удалению от Солнца, название планеты, объём, диаметр, удалённость от Земли.

19.В базе данных склада содержится информация о хранящемся товаре: код товара, наименование товара, дата выпуска, цена, количество.

20.Даны результаты лучших спортивных достижений студентов университета: название вида спорта, Ф.И.О. и возраст рекордсмена, дата установления рекорда, описание рекорда.

21.В базе данных университета содержится информация о студентах: Ф.И.О., пол, год рождения, адрес, личный номер студента.

22.В базе данных автосалона содержится информация о машинах: марка, год выпуска, страна, технические характеристики, цена.

23.В базе данных автовокзала содержится информация о расписании автобусов: номер рейса, пункт назначения, время отправления, время прибытия, марка автоюуса, количество мест.

24.В базе данных вокзала содержится информация о расписании поездов: номер рейса, пункт назначения, время отправления, время прибытия, тип поезда, количество мест.

25.В базе данных аэрофлота содержится информация о расписании самолетов: номер рейса, пункт назначения, время отправления, время прибытия, тип самолета, количество мест.

26.В базе данных турагенства содержится информация о путевках: страна, город, количество дней, уровень сервиса, стоимость.

27.В базе данных видеотеки содержится информация о фильмах: название, год выпуска, жанр, режиссер, студия.