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

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;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11



2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.