Навигация
1. Общие сведения
Вентиляция - организованный и регулируемый воздухообмен обеспечивающий удаление из помещении воздуха загрязненного вредными примесями (газами, парами, пылью), и подачу в него свежего воздуха.
По способу подачи в помещение свежего воздуха и удалению загрязненного системы вентиляции подразделяют на естественную, механическую и смешанную. По назначению вентиляция может быть общеобменной и местной.
2. Методика расчета
При общеобменной вентиляции потребный воздухообмен определяют из условия удаления избыточной теплоты и разбавления вредных выделений свежим воздухом до допустимых концентраций. Предельно допустимые концентрации вредных веществ в воздухе рабочей зоны устанавливают по ГОСТ 12.1.005—88.
2.1. Расход приточного воздуха, М3/Ч, необходимый для отвода избыточной теплоты,
где Qизб - избыточное количество теплоты, кДж/ч; с - теплоёмкость воздуха, Дж/(кг•К); с = 1,2 кДж/(кг•К); р - плотность воздуха, кг/м3; tуд - температура воздуха, удаляемого из помещения принимается равной температуре воздуха в рабочей зоне, °С; tпр - температура приточного воздуха, °С.
Расчетное значение температуры приточного воздуха зависит от географического расположения предприятия; для Москвы ее Принимают равной 22,3 °С.
Температуру воздуха в рабочей зоне принимают на 3.. .5 °С выше расчетной температуры наружного воздуха, Плотность воздуха, кг/м3, поступающего в помещение,
Избыточное количество теплоты, подлежащей удалению из производственного помещения, определяют по тепловому балансу:
где 
- теплота, поступающая в помещение от различных источников кДж/ч; 
- теплота, расходуемая (теряемая) стенами здания и уходящая с нагретыми материалами, кДж/ч.
К основным источникам тепловыделений в производственных помещениях относятся:
оборудование с приводом от электродвигателей; солнечная радиация;
персонал, работающий в помещении;
Поскольку перепад температур воздуха внутри и снаружи здания в теплый период года незначительный (3... 5°С), то при расчете воздухообмена по избытку тепловыделений потери теплоты через конструкции зданий можно не учитывать. При этом некоторое увеличение воздухообмена благоприятно влияет на условия труда работающих в наиболее жаркие дни теплого периода года.
С учетом изложенного формула принимает следующий вид:
В настоящем расчетном задании избыточное количество теплоты определяется только с учетом тепловыделений электрооборудования и работающего персонала:
где Qэ.о - теплота, выделяемая при работе электродвигателей оборудования, кДж/ч; Qр - теплота, выделяемая работающим персоналом, кДж/ч.
Теплота, выделяемая электродвигателями оборудования,
Qэ.о = 3528βN
Qэ.о = 3528*0.27*0.13=123.833
где β - коэффициент, учитывающий загрузку оборудования, одновременность его работы, режим работы; β = 0,25...0,35; N - общая установочная мощность электродвигателей, кВт.
Теплота, выделяемая работающим персоналом,
Qp = nKp
Qp = 5*400=2000
где n — число работающих, чел.; Кp — теплота, выделяемая одним человеком, кДж/ч (принимается равной при легкой работе 300 кДж/ч; при работе средней тяжести 400 кДж/ч; при тяжелой работе 500 кДж/ч).
Кратность воздухообмена, 1/ч,
где L-потребный воздухообмен, м3/ч; Vc-внутренний свободный объём помещения, м3
Кратность воздухообмена помещений обычно составляет от 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.
0 комментариев