Главная: Рефераты

Рефераты. Информационная система менеджера по работе с клиентами таксопарка "Семерочка"

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; //Деактивация кнопки

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.