Информационная система менеджера по работе с клиентами таксопарка "Семерочка"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
Click(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
<