АРМ диспетчера автотранспортного предприятия

 

uses Unit1;

 

{$R *.dfm}

 

 

 

procedure TForm5.Button1Click(Sender: TObject);

begin

Datamodule1.IBTable3.Post;

close;

end;

 

end.

 

 

 

unit Unit6;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls;

 

type

  TForm6 = class(TForm)

    Label2: TLabel;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Button1: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form6: TForm6;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm6.Button1Click(Sender: TObject);

begin

Datamodule1.IBTable4.Post;

close;

end;

 

end.

 

 

 

unit Unit7;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls;

 

type

  TForm7 = class(TForm)

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form7: TForm7;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

 

 

procedure TForm7.Button1Click(Sender: TObject);

begin

Datamodule1.IBTable5.Post;

close;

end;

 

end.

 

 

 

unit Unit8;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls;

 

type

  TForm8 = class(TForm)

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Label6: TLabel;

    DBEdit6: TDBEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form8: TForm8;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm8.Button1Click(Sender: TObject);

begin

Datamodule1.IBTable6.Post;

close;

end;

 

end.

 

 

 

unit Unit9;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls;

 

type

  TForm9 = class(TForm)

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form9: TForm9;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm9.Button1Click(Sender: TObject);

begin

DataModule1.IBTable7.Post;

close;

end;

 

end.

 

 

 

unit Unit10;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons;

 

type

  TForm10 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Edit2: TEdit;

    Label2: TLabel;

    Edit3: TEdit;

    Label3: TLabel;

    Button2: TButton;

    OpenDialog1: TOpenDialog;

    BitBtn1: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

Form10: TForm10;

 

implementation

 

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;

 

{$R *.dfm}

 

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

OpenDialog1.Execute;

Edit1.Text:=OpenDialog1.FileName;

end;

 

procedure TForm10.Button2Click(Sender: TObject);

begin

if Edit2.Text='SYSDBA' then

if Edit3.Text='masterkey' then

  begin

      Form10.Hide;

      Form2.Show;

      DataModule1.IBDatabase1.Connected:=false;

      DataModule1.IBDatabase1.DatabaseName:=Edit1.Text;

      DataModule1.IBDatabase1.Connected:=true;

      DataModule1.IBTransaction1.Active:=true;

 

      DataModule1.IBTable1.Active:=true;

      DataModule1.IBTable2.Active:=true;

      DataModule1.IBTable3.Active:=true;

      DataModule1.IBTable4.Active:=true;

      DataModule1.IBTable5.Active:=true;

      DataModule1.IBTable6.Active:=true;

      DataModule1.IBTable7.Active:=true;

      DataModule1.IBTable1.Refresh;

      Exit;

    end;

Application.MessageBox('Неверный логин или  пароль','Ошибка',MB_OK);

end;

 

end.

 

 

unit Unit11;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

 

type

  TForm11 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Image1: TImage;

    Label4: TLabel;

    BitBtn1: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form11: TForm11;

 

implementation

 

{$R *.dfm}

 

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

Close;

end;

 

end.

 

 

 

unit Unit12;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Spin, StdCtrls, Buttons;

 

type

  TForm12 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    BitBtn1: TBitBtn;

    Label2: TLabel;

    SaveDialog1: TSaveDialog;

    SpinEdit1: TSpinEdit;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form12: TForm12;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

SaveDialog1.FileName:='Project1.exe';

if not SaveDialog1.Execute then exit;

Edit1.Text:=savedialog1.FileName;

end;

 

procedure TForm12.BitBtn2Click(Sender: TObject);

begin

Form2.Timer1.Interval:= SpinEdit1.Value*3600;

CopyFile(PAnsiChar(SaveDialog1.FileName),'D:\Мои документы\Документы-институт\СУБД\Курсовая  работа\Программа\AVTOTRANSPORT.FDB', true);

Form12.Close;

end;

 

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

Form12.ModalResult:=clnone;

end;

 

end.