Q_p = 5*400=2000

где n -- число работающих, чел.; К_p -- теплота, выделяемая одним человеком, кДж/ч (принимается равной при легкой работе 300 кДж/ч; при работе средней тяжести 400 кДж/ч; при тяжелой работе 500 кДж/ч).

Кратность воздухообмена, 1/ч,

где L-потребный воздухообмен, м³/ч; V_c-внутренний свободный объём помещения, м³

Кратность воздухообмена помещений обычно составляет от 1 до 10.

ЗАКЛЮЧЕНИЕ

В результате проведенной работы, были изучены основополагающие документы, позволяющие понять специфику выбранной предметной области (см. список использованной литературы), разработана схема потоков данных и проведено их описание. На основании подготовленной схемы потоков данных разработана концептуальная модель базы данных сущностей и датологическая модель базы данных. Проведена нормализация таблиц базы данных. С использованием возможностей по созданию проверочной схемы связей таблиц СУБД Access создана нормализованная схема данных.

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

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

Требуемое техническое задание выполнено в полном объёме.

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. В.В.Годин, И.К.Корнеев "Информационное обеспечение управленческой деятельности". Мск. Изд. "Высшая школа", 2001г;

2. Форма № 44 (накладная);

3. А.Я. Архангельский "Программирование в Delphi 7" - М, ООО "Бином-Пресс", 2005г. - 1152л.

4. Электронный учебник "Delphi v7.0 Book";

5. Лекции по предмету "Разработка и эксплуатация автоматизированных информационных систем";

6. Лекции по предмету "Базы данных";

7. ГОСТы 19.404-79, 19.402-78, 10.505-79;

8. Гофман В.Э., Хомоменко А.Д. "Delphi 6" - СПб., БХВ-Петербург, 2002. - 1152л.

9. Электронный учебник "Delphi v6.0 Book";

ПРИЛОЖЕНИЯ

Приложение 1

Рисунок 1. Структурная схема организации

Приложение 2

Рисунок 2. Схема взаимосвязи программных модулей и информационных хранилищ.

Приложение 3

Запрос на предоставление машины

1. Запрос от клиента менеджеру по работе с клиентами на предоставление машины;

2. Запрос менеджера по работе с клиентами на получение личных данных клиента;

3. Личные данные клиента;

4. Запрос менеджером по работе с клиентами системе регистрации клиентов на регистрацию клиента;

5. Запрос на регистрацию личных данных клиента системой регистрации клиентов в таблицу "Клиенты";

6. Информация о регистрации личных данных клиента в таблице "Клиенты" системой регистрации клиентов;

7. Информация о регистрации клиента на экране монитора.

Запрос на осуществление перевозки

8. Запрос менеджера по работе с клиентами клиенту на получение информации о маршруте;

9. Информация о маршруте;

10. Запрос системе формирования поездок на регистрацию информации о маршруте поездки;

11. Запрос системой формирования поездок в таблицу "Клиенты" на получение данных о клиенте;

12. Запрос системой формирования поездок в таблицу "Водители" на получение данных о водителе;

13. Запрос системой формирования поездок в таблицу "Машины" на получение данных о машине;

14. Информация о получении данных о клиенте системой формирования поездок;

15. Информация о получении данных о водителе системой формирования поездок;

16. Информация о получении данных о машине системой формирования поездок;

17. Запрос системой формирования поездок на сохранение данных о поездке в таблице "Поездки"

18. Информация о регистрации данных о поездке системой формирования поездок;

19. Информация менеджеру по работе с клиентами о сохранении данных о поездке.

Запрос на получение информации о осуществленных поездках

20. Запрос менеджеру по работе с клиентами от водителя на получение информации о осуществленных поездках;

21. Запрос менеджера по работе с клиентами в систему формирования отчетов на получение информации о осуществленных поездках;

22. Запрос системой формирования отчетов на получение информации о осуществленных поездках в таблицу "Поездки";

23. Информация о осуществленных поездках из таблицы "Поездки" в систему формирования отчетов;

24. Информация менеджеру по работе с клиентами об осуществленных поездках из системы формирования отчетов;

25. Информация об осуществленных поездках водителю в виде отчета.

Запрос на добавление(списание) машины

26. Запрос начальником гаража менеджеру по работе с клиентами на добавление (списание) машины;

27. Запрос системе администрирования на добавление (списание) машины

28. Запрос системой администрирования в таблицу "Машины" на добавление (списание) машины;

29. Информация о добавлении (списание) машины в таблице "Машины" системой администрирования;

30. Информация менеджеру по работе с клиентами из системы администрирования о добавлении (списание) машины;

31. Информация начальнику гаража о добавлении (списание) машины.

Принятие(увольнение) водителей

32. Запрос работником отдела кадров на принятие (увольнение) водителя;

33. Запрос системе администрирования на принятие (увольнение) водителя;

34. Запрос системой администрирования в таблицу "Водители" на сохранение (удаление) данных о водителе;

35. Информация о сохранении (удалении) данных о водителе системой администрирования;

36. Информация менеджеру по работе с клиентами из системы администрирования о принятии (увольнении) водителя;

37. Информация работнику кадров о принятии (увольнении) водителя;

Принятие(увольнение) операторов

38. Запрос работником отдела кадров на принятие (увольнение) оператора;

39. Запрос системе администрирования на принятие (увольнение) оператора;

40. Запрос системой администрирования в таблицу "Операторы" на сохранение (удаление) данных об операторе;

41. Информация о сохранении (удалении) данных об операторе системой администрирования;

42. Информация менеджеру по работе с клиентами из системы администрирования о принятии (увольнении) оператора;

43. Информация работнику кадров о принятии (увольнении) оператора;

Корректировка поездок

44. Запрос менеджера по работе с клиентами в систему администрирования на корректировку данных о поездках осуществлённых водителем;

45. Запрос системой администрирования в таблицу "Водители" на корректировку данных о поездках осуществлённых водителем;

46. Информация из таблицы "Водители" в систему администрирования о корректировке данных о поездках, осуществлённых водителем;

47. Информация менеджеру по работе с клиентами из системы администрирования о корректировке данных о поездках, осуществлённых водителем;

Запрос на получение информации о поездках осуществлённых водителем

48. Запрос менеджеру по работе с клиентами от водителя на получение информации о осуществленных им поездках;

49. Запрос менеджера по работе с клиентами в систему формирования отчетов на получение информации о поездках осуществлённых водителем;

50. Запрос системой формирования отчетов на получение информации о поездках осуществлённых водителем в таблицу "Водители";

51. Информация о поездках осуществлённых водителем из таблицы "Водители" в систему формирования отчетов;

52. Информация менеджеру по работе с клиентами об поездках осуществлённых водителем из системы формирования отчетов;

53. Информация об поездках осуществлённых водителем от менеджера по работе с клиентами водителю в виде отчета.

Приложение 4

Рисунок 3. Инфологическая модель

Приложение 5

Рисунок 4. Схема датологической модели

Приложение 6

Рисунок 5. Схема загрузки формы проверки прав доступа

Рисунок 6. Выбор пункта подменю "Далее"



Рисунок 7. Выбор пункта подменю "Водители"

Рисунок 8. Выбор пункта подменю "На главную"

Приложение 8



Рисунок 9. Блок-схема.

Приложение 9

Рисунок 10. Сообщение оператору "О неверном пароле"

Рисунок 11. Сообщение оператору "О незаполненных полях"

Рисунок 12. Сообщение оператору "О выходе из программы"

Приложение 10

unit Glavnaya

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, DB, ADODB, Grids, DBGrids,

XPMan,shellapi, ComCtrls;

type

TGlavnaya_f = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton4: TSpeedButton;

GroupBox1: TGroupBox;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Glavnaya_f: TGlavnaya_f;

implementation

uses Voditeli, Parol_red, Mashini , Operator, Oformlenie_poezdki,

Otchet, Status, Vybor_otcheta, Korrektirovka;

{$R *.dfm}

procedure TGlavnaya_f.SpeedButton1Click(Sender: TObject);

begin

// вывод сообщения

if MessageDlg('Вы хотите выйти из программы?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Application.Terminate; //закрытие программы

end;

procedure TGlavnaya_f.SpeedButton5Click(Sender: TObject);

begin

Voditeli_f.Show;//открытие формы водители

Glavnaya_f.Hide;//скрытие формы главная

end;

procedure TGlavnaya_f.SpeedButton6Click(Sender: TObject);

begin

Mashini_f.Show; //открытие формы машины

Glavnaya_f.Hide;//скрытие формы главная

end;

procedure TGlavnaya_f.SpeedButton4Click(Sender: TObject);

begin

Glavnaya_f.Hide;

Oformlenie_poezdki_f.show;

end;

procedure TGlavnaya_f.SpeedButton8Click(Sender: TObject);

begin

Vybor_otcheta_.Show;

Glavnaya_f.Hide;

end;

procedure TGlavnaya_f.SpeedButton9Click(Sender: TObject);

begin

Glavnaya_f.Hide;

Status_f.show;

end;

procedure TGlavnaya_f.SpeedButton10Click(Sender: TObject);

begin

Korrektirovka_.Show;

Glavnaya_f.Hide;

end;

procedure TGlavnaya_f.SpeedButton7Click(Sender: TObject);

begin

Operatory_f.Show;//открытие формы водители

Glavnaya_f.Hide;//скрытие формы главная

end;

end.

unit Korrektirovka

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type

TKorrektirovka_ = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label2: TLabel;

Label3: TLabel;

GroupBox1: TGroupBox;

Button6: TButton;

Edit1: TEdit;

Label10: TLabel;

CheckBox2: TCheckBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button7: TButton;

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Korrektirovka_: TKorrektirovka_;

implementation

uses DM, Glavnaya, Otchet_poezdki, Otchet_vse_voditeli;

{$R *.dfm}

procedure TKorrektirovka_.Button6Click(Sender: TObject);

begin

if

CheckBox2.Checked then

DM_f.ADOTable2.Filtered:=false

else

begin

DM_f.ADOTable2.Filtered:=false;

DM_f.ADOTable2.Filter:='ФИО_Водителя='''

+ (Edit1.Text)+'''';

DM_f.ADOTable2.Filtered:=true;

end;

end;

procedure TKorrektirovka_.Button5Click(Sender: TObject);

begin

Glavnaya_f.Show;

Korrektirovka_.Hide;

end;

procedure TKorrektirovka_.Button1Click(Sender: TObject);

begin

DBEdit2.ReadOnly:=false;

Button1.Enabled:=false;

Button2.Enabled:=false;

Button5.Enabled:=false;

Button7.Enabled:=false;

Button3.Enabled:=true;

Button4.Enabled:=true;

DM_f.ADOTable2.Edit;

DBEdit2.SetFocus;

end;

procedure TKorrektirovka_.Button2Click(Sender: TObject);

var

a:integer;

begin

a:=0;

DBEdit2.ReadOnly:=false;

DM_f.ADOTable2.Edit;

DBEdit2.Text:=IntToStr(a);

DM_f.ADOTable2.Post;

end;

procedure TKorrektirovka_.Button3Click(Sender: TObject);

begin

if DBEdit2.Text='' then

begin

ShowMessage('Введите колличество поездок');

DBEdit2.SetFocus;

end

else

begin

DBEdit2.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=true;

Button5.Enabled:=true;

Button7.Enabled:=true;

Button3.Enabled:=false;

Button4.Enabled:=false;

DM_f.ADOTable2.Post;

ShowMessage('Данные сохранены');

end;

end;

procedure TKorrektirovka_.Button4Click(Sender: TObject);

begin

DBEdit2.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=true;

Button5.Enabled:=true;

Button7.Enabled:=true;

Button3.Enabled:=false;

Button4.Enabled:=false;

DM_f.ADOTable2.Cancel;

end;

procedure TKorrektirovka_.Button7Click(Sender: TObject);

begin

if CheckBox2.Checked then

Otchet_vse_voditeli_.QuickRep1.Preview

else

Otchet_poezdki_.QuickRep1.Preview;

end;

end.

unit Mashini

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls, DB, ADODB, Grids,

DBGrids;

type

TMashini_f = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SpeedButton7: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton8: TSpeedButton;

procedure SpeedButton7Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Mashini_f: TMashini_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TMashini_f.SpeedButton7Click(Sender: TObject);

begin

Mashini_f.Hide;//скрытие формы машины

Glavnaya_f.Show;//открытие формы главная

end;

procedure TMashini_f.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit2.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TMashini_f.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit3.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TMashini_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

end;

procedure TMashini_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

end;

procedure TMashini_f.SpeedButton3Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit1.SetFocus;

DM_f.ADOTable3.Insert;

end;

procedure TMashini_f.SpeedButton8Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DM_f.ADOTable3.Edit;

DBEdit1.SetFocus;

end;

procedure TMashini_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable3.Delete;

end;

procedure TMashini_f.SpeedButton5Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='')

then

ShowMessage('Заполните все поля')

else begin

DM_f.ADOTable3.Post;

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

end;

end;

procedure TMashini_f.SpeedButton6Click(Sender: TObject);

begin

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DM_f.ADOTable3.Cancel;

end;

procedure TMashini_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable3.Filtered:=false;

end;

end.

unit Oformlenie_poezdki

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls, Buttons,

ComCtrls;

type

TOformlenie_poezdki_f = class(TForm)

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit2: TDBEdit;

DBEdit1: TDBEdit;

DBEdit4: TDBEdit;

DBEdit3: TDBEdit;

DBGrid1: TDBGrid;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

DBEdit16: TDBEdit;

DBEdit15: TDBEdit;

SpeedButton11: TSpeedButton;

SpeedButton3: TSpeedButton;

GroupBox5: TGroupBox;

DBEdit5: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label1: TLabel;

SpeedButton7: TSpeedButton;

SpeedButton1: TSpeedButton;

DBEdit9: TDBEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

GroupBox4: TGroupBox;

SpeedButton10: TSpeedButton;

SpeedButton2: TSpeedButton;

DBEdit10: TDBEdit;

DBEdit8: TDBEdit;

Label8: TLabel;

Label9: TLabel;

Button4: TButton;

Button5: TButton;

GroupBox6: TGroupBox;

Button6: TButton;

Edit1: TEdit;

CheckBox2: TCheckBox;

Label10: TLabel;

DBEdit11: TDBEdit;

DateTimePicker1: TDateTimePicker;

Button7: TButton;

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure GroupBox5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Button7Click(Sender: TObject);

procedure GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure GroupBox6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Button6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure CheckBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Oformlenie_poezdki_f: TOformlenie_poezdki_f;

implementation

uses DM, Glavnaya;

{$R *.dfm}

procedure TOformlenie_poezdki_f.SpeedButton7Click(Sender: TObject);

begin

if

(DBEdit5.Text='') or (DBEdit6.Text='') or (DBEdit7.Text='')

then ShowMessage('Заполните все поля')

else

begin

DM_f.ADOTable6.FieldByName('№ Оператора').AsInteger:=1;

DM_f.ADOTable6.FieldByName('№ Водителя').AsString:=DBEdit10.Text;

DM_f.ADOTable6.FieldByName('№ Машины').AsString:=DBEdit16.Text;

DM_f.ADOTable6.FieldByName('№ Клиента').AsString:=DM_f.ADOTable5.FieldByName('№ Клиента').AsString;

DM_f.ADOTable6.FieldByName('Дата_отправления').AsString:=DBEdit9.Text;

DM_f.ADOTable6.Post;

ShowMessage('Данные сохранены!');//вывод сообщения

DM_f.ADOTable2.Edit;

DM_f.ADOTable2.FieldByName('К-во_поездок').AsInteger:=StrToInt(DBEdit11.Text)+1;

DM_f.ADOTable2.Post;

DM_f.ADOTable3.Edit; //Изменение статуса выбранной машины

DM_f.ADOTable3.FieldByName('Статус').AsString:='False'; // Изменение статуса машины

DM_f.ADOTable3.Post; // Сохранение данных в таблице машины

DM_f.ADOTable2.Edit; //Изменение статуса выбранного водителя

DM_f.ADOTable2.FieldByName('Статус').AsString:='False'; // Изменение статуса водителя

DM_f.ADOTable2.Post; // Сохранение данных в таблице водители

SpeedButton1.Enabled:=true;

Button4.Enabled:=true;

Button5.Enabled:=false;

SpeedButton7.Enabled:=false;

end;

end;

procedure TOformlenie_poezdki_f.SpeedButton10Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior;

end;

procedure TOformlenie_poezdki_f.SpeedButton11Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

end;

procedure TOformlenie_poezdki_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable2.Next;

end;

procedure TOformlenie_poezdki_f.SpeedButton3Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

end;

procedure TOformlenie_poezdki_f.SpeedButton1Click(Sender: TObject);

begin

Glavnaya_f.Show;

Oformlenie_poezdki_f.Hide;

end;

procedure TOformlenie_poezdki_f.FormShow(Sender: TObject);

begin

DBEdit9.Text:=DateToStr(date);

DM_f.ADOTable3.Filtered:=False; //Деактивация фильтра

DM_f.ADOTable3.Filter:='Статус=True'; //Задание фильтра

DM_f.ADOTable3.Filtered:=True; //Активация фильтра

DM_f.ADOTable2.Filtered:=False; //Деактивация фильтра

DM_f.ADOTable2.Filter:='Статус=True' ;//Задание фильтра;

DM_f.ADOTable2.Filtered:=True;//Деактивация фильтра

end;

procedure TOformlenie_poezdki_f.Button3Click(Sender: TObject);

begin

DBEdit1.ReadOnly:=true;

DBEdit2.ReadOnly:=true;

DBEdit3.ReadOnly:=true;

DBEdit4.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=false;

Button3.Enabled:=false;

SpeedButton1.Enabled:=true;

DM_f.ADOTable5.Cancel;

end;

procedure TOformlenie_poezdki_f.Button2Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='') or (DBEdit4.Text='')

then

ShowMessage('Заполните все поля')

else begin

DM_f.ADOTable5.Post;

DBEdit1.ReadOnly:=true;

DBEdit2.ReadOnly:=true;

DBEdit3.ReadOnly:=true;

DBEdit4.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=false;

Button3.Enabled:=false;

SpeedButton1.Enabled:=true;

end;

end;

procedure TOformlenie_poezdki_f.Button1Click(Sender: TObject);

begin

DBEdit1.ReadOnly:=false;

DBEdit2.ReadOnly:=false;

DBEdit3.ReadOnly:=false;

DBEdit4.ReadOnly:=false;

Button1.Enabled:=false;

Button2.Enabled:=true;

Button3.Enabled:=true;

SpeedButton1.Enabled:=False;

DM_f.ADOTable5.Insert;

DBEdit1.SetFocus;

end;

procedure TOformlenie_poezdki_f.SpeedButton5Click(Sender: TObject);

begin

DM_f.ADOTable5.Next;

end;

procedure TOformlenie_poezdki_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable5.Prior;

end;

procedure TOformlenie_poezdki_f.Button4Click(Sender: TObject);

begin

DM_f.ADOTable6.Insert;

SpeedButton1.Enabled:=False;

Button4.Enabled:=false;

Button5.Enabled:=true;

SpeedButton7.Enabled:=true;

end;

procedure TOformlenie_poezdki_f.Button5Click(Sender: TObject);

begin

DM_f.ADOTable6.Cancel;

Button4.Enabled:=true;

Button5.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton1.Enabled:=true;

end;

procedure TOformlenie_poezdki_f.Button6Click(Sender: TObject);

begin

if

CheckBox2.Checked then

DM_f.ADOTable5.Filtered:=false

else

begin

DM_f.ADOTable5.Filtered:=false;

DM_f.ADOTable5.Filter:='ФИО_Клиента='''

+ (Edit1.Text)+'''';

DM_f.ADOTable5.Filtered:=true;

end;

end;

procedure TOformlenie_poezdki_f.GroupBox5MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

DBEdit6.Text:=TimeToStr(DateTimePicker1.Time);

end;

procedure TOformlenie_poezdki_f.Button7Click(Sender: TObject);

begin

if (DBEdit16.Text='') and (DBEdit15.Text='') then

begin

ShowMessage('В данный момент нет свободных машин'); //Вывод сообщения

Glavnaya_f.Show;

Oformlenie_poezdki_f.Hide;

end

else

if (DBEdit10.Text='') and (DBEdit8.Text='') then

begin

ShowMessage('В данный момент нет свободных водителей'); //Вывод сообщения

Glavnaya_f.Show;

Oformlenie_poezdki_f.Hide;

end;

end;

procedure TOformlenie_poezdki_f.GroupBox1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.GroupBox2MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.FormMouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.GroupBox6MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.DBGrid1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.Button6MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.Edit1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.Label10MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.CheckBox2MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

end.

unit Operator

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, Buttons;

type

TOperatory_f = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton7: TSpeedButton;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

SpeedButton3: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton1: TSpeedButton;

Label5: TLabel;

DBEdit5: TDBEdit;

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Operatory_f: TOperatory_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TOperatory_f.SpeedButton7Click(Sender: TObject);

begin

Operatory_f.Hide;

Glavnaya_f.Show;

end;

procedure TOperatory_f.SpeedButton3Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit1.SetFocus;

DM_f.ADOTable4.Insert;

end;

procedure TOperatory_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable4.Prior;

end;

procedure TOperatory_f.SpeedButton8Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DM_f.ADOTable4.Edit;

DBEdit1.SetFocus;

end;

procedure TOperatory_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable4.Delete;

end;

procedure TOperatory_f.SpeedButton5Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='') or (DBEdit4.Text='')

then

ShowMessage('Заполните все поля')

else begin

DM_f.ADOTable4.Post;

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=true;

end;

end;

procedure TOperatory_f.SpeedButton6Click(Sender: TObject);

begin

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=true;

DM_f.ADOTable4.Cancel;

end;

procedure TOperatory_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable4.Next;

end;

end.

unit Status

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type

TStatus_f = class(TForm)

GroupBox2: TGroupBox;

GroupBox1: TGroupBox;

SpeedButton10: TSpeedButton;

SpeedButton16: TSpeedButton;

DBEdit33: TDBEdit;

ComboBox2: TComboBox;

DBEdit32: TDBEdit;

SpeedButton18: TSpeedButton;

SpeedButton17: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label31: TLabel;

SpeedButton20: TSpeedButton;

SpeedButton21: TSpeedButton;

DBEdit35: TDBEdit;

ComboBox3: TComboBox;

DBEdit34: TDBEdit;

SpeedButton19: TSpeedButton;

SpeedButton22: TSpeedButton;

Label4: TLabel;

Label5: TLabel;

Label50: TLabel;

Label7: TLabel;

SpeedButton1: TSpeedButton;

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton22Click(Sender: TObject);

procedure SpeedButton20Click(Sender: TObject);

procedure SpeedButton21Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Status_f: TStatus_f;

implementation

uses DM, Glavnaya;

{$R *.dfm}

procedure TStatus_f.SpeedButton10Click(Sender: TObject);

begin

ComboBox2.Enabled:=True; //активация поля ввода информации

DM_f.ADOTable3.Edit;// Изменение записи в таблице

Label31.Font.Color:=ClGray; //Изменение цвета надписи

if DBEdit33.Text='True' then

Label31.Caption:='Свободен' //Установка значения

else

Label31.Caption:='Занят';//Установка значения

SpeedButton16.Enabled:=True; //Активация кнопки

SpeedButton10.Enabled:=False;//Деактивация кнопки

SpeedButton17.Enabled:=False; //Деактивация кнопки

SpeedButton18.Enabled:=False; //Деактивация кнопки

end;

procedure TStatus_f.SpeedButton16Click(Sender: TObject);

begin

if DBEdit33.Text='True' then

Label31.Caption:='Свободен' //Установка значения

else

Label31.Caption:='Занят';//Установка значения

DM_f.ADOTable3.FieldByName('Статус').AsString:=DBEdit33.Text; //Добавление строки в таблицу

DM_f.ADOTable3.Post; //Сохранение записи в таблицу

Label31.Font.Color:=ClRed;//Изменение цвета надписи

SpeedButton16.Enabled:=False; //Деактивация кнопки

SpeedButton10.Enabled:=True; //Активация кнопки

SpeedButton17.Enabled:=True; //Активация кнопки

SpeedButton18.Enabled:=True; //Активация кнопки

ComboBox2.Text:=''; //Очистка поля ввода информации

ComboBox2.Enabled:=False; //Деактивация поля ввода информации

ShowMessage('Статус машины успешно изменен'); //Вывод сообщения

end;

procedure TStatus_f.SpeedButton17Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

if DBEdit33.Text='True' then

Label31.Caption:='Свободен' //Установка значения

else

begin

Label31.Caption:='Занят';//Установка значения

ComboBox2.Text:=''; //Очистка поля ввода информации

end;

end;

procedure TStatus_f.SpeedButton18Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

if DBEdit33.Text='True' then

Label31.Caption:='Свободен'//Установка значения

else

begin

Label31.Caption:='Занят';//Установка значения

ComboBox2.Text:=''; // Очистка поля ввода информации

end;

end;

procedure TStatus_f.ComboBox2Change(Sender: TObject);

begin

if ComboBox2.Text='Свободен' then

DBEdit33.Text:='True' //Установка значения

else

DBEdit33.Text:='False' //Установка значения

end;

procedure TStatus_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable3.Filtered:=False; //Деактивация фильтра

DM_f.ADOTable2.Filtered:=False; //Деактивация фильтра

if DBEdit33.Text='true' then

Label31.Caption:='Свободен' //Установка значения

else

Label31.Caption:='Занят';//Установка значения

if DBEdit35.Text='true' then

Label50.Caption:='Свободен'

else

Label50.Caption:='Занят';

end;

procedure TStatus_f.SpeedButton19Click(Sender: TObject);

begin

ComboBox3.Enabled:=True; //Активация поля ввода информациии

DM_f.ADOTable2.Edit; //Изменение записи в таблице

Label50.Font.Color:=ClGray; //Изменение цвета надписи

if DBEdit35.Text='True' then

Label50.Caption:='Свободен' //Установка значения

else

Label50.Caption:='Занят'; //Установка значения

SpeedButton22.Enabled:=True; //Активация кнопки

SpeedButton19.Enabled:=False; //Деактивация кнопки

SpeedButton20.Enabled:=False; //Деактивация кнопки

SpeedButton21.Enabled:=False; //Деактивация кнопки

ComboBox2.Text:=''; //Очистка поля ввода информации

end;

procedure TStatus_f.SpeedButton22Click(Sender: TObject);

begin

if DBEdit35.Text='True' then

Label50.Caption:='Свободен'//Установка значения

else

Label50.Caption:='Занят';//Установка значения

DM_f.ADOTable2.FieldByName('Статус').AsString:=DBEdit35.Text; //Добавление записи в таблицу

DM_f.ADOTable2.Post; //Сохранение записи в таблице

Label50.Font.Color:=ClRed; //Изменение цвета надписи

SpeedButton22.Enabled:=False; //Деактивация кнопки

SpeedButton19.Enabled:=True; //Активация кнопки

SpeedButton20.Enabled:=True; //Активация кнопки

SpeedButton21.Enabled:=True; //Активация кнопки

ComboBox3.Text:=''; // Очистка поля ввода информации

ComboBox3.Enabled:=False; //Деактивация поля ввода информации

ShowMessage('Статус водителя успешно изменен');// Вывод сообщения

end;

procedure TStatus_f.SpeedButton20Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior; //Навигация по таблице

if DBEdit35.Text='True' then

Label50.Caption:='Свободен'

else

begin

Label50.Caption:='Занят';

ComboBox3.Text:=''; //Очистка поля ввода информации

end;

end;

procedure TStatus_f.SpeedButton21Click(Sender: TObject);

begin

DM_f.ADOTable2.Next; //Навигация по таблице

if DBEdit35.Text='True' then

Label50.Caption:='Свободен'

else

begin

Label50.Caption:='Занят';

ComboBox3.Text:='';//Очистка поля ввода информации

end;

end;

procedure TStatus_f.ComboBox3Change(Sender: TObject);

begin

if ComboBox3.Text='Свободен' then

DBEdit35.Text:='True' //Установка значения

else

DBEdit35.Text:='False' //Установка значения

end;

procedure TStatus_f.SpeedButton1Click(Sender: TObject);

begin

Glavnaya_f.Show; //открытие формы главная

Status_f.Hide;// скрытие формы

end;

end.

unit Voditeli

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids,

Mask;

type

TVoditeli_f = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton7: TSpeedButton;

DBEdit5: TDBEdit;

DBEdit7: TDBEdit;

Label5: TLabel;

Label7: TLabel;

SpeedButton3: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton7Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Voditeli_f: TVoditeli_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TVoditeli_f.SpeedButton7Click(Sender: TObject);

begin

Voditeli_f.Hide;//скрытие формы водители

Glavnaya_f.Show;//открытие формы главная

end;

procedure TVoditeli_f.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit2.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TVoditeli_f.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit3.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TVoditeli_f.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit4.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TVoditeli_f.SpeedButton3Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit7.ReadOnly:=False;

DBEdit1.SetFocus;

DM_f.ADOTable2.Insert;

end;

procedure TVoditeli_f.SpeedButton8Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit7.ReadOnly:=False;

DM_f.ADOTable2.Edit;

DBEdit1.SetFocus;

end;

procedure TVoditeli_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable2.Delete;

end;

procedure TVoditeli_f.SpeedButton5Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='') or (DBEdit4.Text='') or

(DBEdit5.Text='') or (DBEdit7.Text='')

then

ShowMessage('Заполните все поля')

else begin

DM_f.ADOTable2.Post;

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=True;

DBEdit7.ReadOnly:=True;

end;

end;

procedure TVoditeli_f.SpeedButton6Click(Sender: TObject);

begin SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=True;

DBEdit7.ReadOnly:=True;

DM_f.ADOTable2.Cancel;

end;

procedure TVoditeli_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior;

end;

procedure TVoditeli_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable2.Next;

end;

procedure TVoditeli_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable2.Filtered:=false;

end;

end.