Файл: Проектирование реализации операций бизнес-процесса «Транспортная доставка заказов» (Выбор комплекса задач автоматизации).pdf

ПРИЛОЖЕНИЕ

Коды программных модулей

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, Menus;

type

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses unit2,unit3,unit4,unit5,unit6,unit7, Unit11, Unit10, Unit9;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form3.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form4.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

Form5.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form6.Show;

Form1.Hide;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Form7.Show;

Form1.Hide;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form1.close

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.close

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form6.Show;

Form1.Hide;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form4.Show;

Form1.Hide;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form11.Show;

Form1.Hide;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form2.Show;

Form1.Hide;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form7.Show;

Form1.Hide;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form5.Show;

Form1.Hide;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form3.Show;

Form1.Hide;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Form10.Show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Form9.Show;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls, jpeg, ExtCtrls,Grids, DBGrids, DB,

ComCtrls, TabNotBk, ADODB, ExtDlgs;

type

TForm2 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label6: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBNavigator1: TDBNavigator;

Label5: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit8;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form2.Hide;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, Mask, Grids, DBGrids, QRCtrls,

QuickRpt, ExtCtrls;

type

TForm3 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

DBGrid1: TDBGrid;

SpeedButton2: TSpeedButton;

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

PageHeaderBand1: TQRBand;

QRLabel1: TQRLabel;

DetailBand1: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

SpeedButton3: TSpeedButton;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label4: TLabel;

QRLabel10: TQRLabel;

QRDBText7: TQRDBText;

PageFooterBand1: TQRBand;

QRLabel9: TQRLabel;

QRDBText5: TQRDBText;

QRLabel8: TQRLabel;

QRDBText6: TQRDBText;

QRLabel12: TQRLabel;

QRExpr2: TQRExpr;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1,Unit8,Unit9;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form3.Hide;

end;

procedure TForm3.SpeedButton2Click(Sender: TObject);

begin

Form3.QuickRep1.Preview;

end;

procedure TForm3.SpeedButton3Click(Sender: TObject);

begin

Form3.QuickRep1.Print;

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

Form8.ADOQuery1.Filtered:=false;

Form8.ADOQuery1.Filter:= 'Клиент = ' + QuotedStr(Edit1.Text);

Form8.ADOQuery1.Filtered:=true;

end;

procedure TForm3.Edit2Change(Sender: TObject);

begin

Form8.ADOQuery1.Filtered:=false;

Form8.ADOQuery1.Filter:= 'id_договора = ' + QuotedStr(Edit2.Text);

Form8.ADOQuery1.Filtered:=true;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Form8.ADOQuery1.Filtered:=false;

Edit1.Text:='';

Edit2.Text:='';

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, ExtCtrls, DBCtrls,

dbcgrids, QRCtrls, QuickRpt;

type

TForm4 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

DBGrid1: TDBGrid;

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

PageHeaderBand1: TQRBand;

QRLabel1: TQRLabel;

DetailBand1: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRLabel6: TQRLabel;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

procedure BitBtn1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form4.Hide;

end;

procedure TForm4.SpeedButton2Click(Sender: TObject);

begin

Form4.QuickRep1.Preview;

end;

procedure TForm4.SpeedButton3Click(Sender: TObject);

begin

Form4.QuickRep1.Print;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, dbcgrids, DBCtrls, ExtCtrls, Grids, DBGrids;

type

TForm5 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form5.Hide;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type

TForm6 = class(TForm)

BitBtn1: TBitBtn;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form6.Hide;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DB, ADODB, DBGrids, ExtCtrls, DBCtrls,

ExtDlgs;

type

TForm7 = class(TForm)

BitBtn1: TBitBtn;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1,Unit8;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form7.Hide;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, DB, ADODB,Grids, DBCtrls;

type

TForm8 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOTable2: TADOTable;

DataSource2: TDataSource;

ADOTable3: TADOTable;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable7: TADOTable;

DataSource7: TDataSource;

ADOTable7ID_: TIntegerField;

ADOTable7DSDesigner: TIntegerField;

ADOTable7ID_2: TSmallintField;

ADOTable7IntegerField: TStringField;

ADOQuery1: TADOQuery;

DataSource8: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

end.

unit Unit9;

interface

uses

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

Dialogs, StdCtrls;

type

TForm9 = class(TForm)

Memo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

end.

unit Unit10;

interface

uses

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

Dialogs, StdCtrls;

type

TForm10 = class(TForm)

Memo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

end.

unit Unit11;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm11 = class(TForm)

Label1: TLabel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;