Рисунок 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 }

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