Файл: ПРОЕКТИРОВАНИЕ РЕАЛИЗАЦИИ ОПЕРАЦИЙ БИЗНЕС-ПРОЦЕССА УПРАВЛЕНИЕ ДОКУМЕНТООБОРОТОМ.pdf

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Edit2Change(Sender: TObject);

begin

edit3.Text:=formatFloat('# ### ##0.00ð.',strtofloat(edit1.Text)*strtofloat(edit2.Text));

end;

procedure TForm7.Edit1Exit(Sender: TObject);

begin

edit3.Text:=formatFloat('# ### ##0.00ð.',strtofloat(edit1.Text)*strtofloat(edit2.Text));

end;

procedure TForm7.Edit2Exit(Sender: TObject);

begin

edit3.Text:=formatFloat('# ### ##0.00ð.',strtofloat(edit1.Text)*strtofloat(edit2.Text));

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

try

form7.ADOQuery2.active:=false;

form7.ADOQuery2.Parameters.ParamByName('n').Value:=form7.DBLookupComboBox2.KeyValue;

form7.ADOQuery2.active:=true;

form7.Caption:=form7.ADOQuery2.FieldByName('Êîë').AsString;

if form7.ADOQuery2.FieldByName('Êîë').AsInteger>=strtoint(form7.Edit2.Text) then

begin

form7.ADOQuery1.Parameters.ParamByName('dp').Value:=form7.DateTimePicker1.Date;

form7.ADOQuery1.Parameters.ParamByName('ob').Value:=form7.DBLookupComboBox1.KeyValue;

form7.ADOQuery1.Parameters.ParamByName('tv').Value:=form7.DBLookupComboBox2.KeyValue;

form7.ADOQuery1.Parameters.ParamByName('zn').Value:=strtofloat(form7.Edit1.Text);

form7.ADOQuery1.Parameters.ParamByName('kl').Value:=strtoint(form7.Edit2.Text);

form7.ADOQuery1.Parameters.ParamByName('mg').Value:=form7.DBLookupComboBox3.KeyValue;

form7.ADOQuery1.ExecSQL;

form7.Close;

end

else

MessageDlg('Íåäîñòàòî÷íî òîâàðà',mtError, [mbOK], 0);

except

on exception do ShowMessage('Îøèáêà äîáàâëåíèÿ çàïèñè');

end;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

form7.ADOTable1.Active:=true;

form7.ADOTable2.Active:=true;

form7.ADOTable3.Active:=true;

end;

end.

unit Unit8;

interface

uses

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

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

AccessXP, OleServer, Access2000;

type

TForm8 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel1: TPanel;

BitBtn1: TBitBtn;

ADOTable1: TADOTable;

DataSource1: TDataSource;

procedure BitBtn1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

// procedure SpeedButton1Click(Sender: TObject);

// procedure SpeedButton2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

access: variant;

implementation

uses Unit9, Unit1;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm8.FormActivate(Sender: TObject);

begin

form8.ADOTable1.Active:=false;

form8.ADOTable1.Active:=true;

{try

Access := GetActiveOleObject('Access.Application');

except

on exception do

begin

Access := CreateOleObject('Access.Application');

end;

end; }

end;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);

begin

{try

Access.CloseCurrentDatabase;

Access.Quit(acQuitSaveAll);

except

;

end; }

end;

{

procedure TForm8.SpeedButton1Click(Sender: TObject);

begin

Access.Visible := True;

access.opencurrentdatabase(form1.dbpath, true);

access.docmd.openreport('Ïîñòàâêè', acViewPreview, EmptyParam, EmptyParam);

end;

procedure TForm8.SpeedButton2Click(Sender: TObject);

begin

Access.Visible := True;

access.opencurrentdatabase(form1.dbpath, true);

access.docmd.openreport('Àêò âûïîëíåííûõ ðàáîò', acViewPreview, EmptyParam, '[Ïîðÿäêîâûé íîìåð]='+form8.ADOTable1.FieldByName('Ïîðÿäêîâûé íîìåð').AsString);

end;

}

procedure TForm8.FormCreate(Sender: TObject);

begin

form8.ADOTable1.Active:=true;

end;

end.

unit Unit9;

interface

uses

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

Dialogs, ADODB, StdCtrls, Buttons, ComCtrls, DBCtrls, DB;

type

TForm9 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DateTimePicker1: TDateTimePicker;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

Edit2: TEdit;

UpDown1: TUpDown;

Edit3: TEdit;

Edit1: TEdit;

BitBtn1: TBitBtn;

DateTimePicker2: TDateTimePicker;

Label8: TLabel;

ADOQuery1: TADOQuery;

procedure BitBtn1Click(Sender: TObject);

procedure Edit1Exit(Sender: TObject);

procedure Edit2Exit(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

try

form9.ADOQuery1.Parameters.ParamByName('dp').Value:=form9.DateTimePicker1.Date;

form9.ADOQuery1.Parameters.ParamByName('pk').Value:=form9.DBLookupComboBox1.KeyValue;

form9.ADOQuery1.Parameters.ParamByName('tv').Value:=form9.DBLookupComboBox2.KeyValue;

form9.ADOQuery1.Parameters.ParamByName('zn').Value:=strtofloat(form9.Edit1.Text);

form9.ADOQuery1.Parameters.ParamByName('kl').Value:=strtoint(form9.Edit2.Text);

form9.ADOQuery1.Parameters.ParamByName('st').Value:=form9.DBLookupComboBox3.KeyValue;

form9.ADOQuery1.Parameters.ParamByName('ds').Value:=form9.DateTimePicker2.Date;

form9.ADOQuery1.ExecSQL;

form9.Close;

except

on exception do ShowMessage('Îøèáêà äîáàâëåíèÿ çàïèñè');

end;

end;

procedure TForm9.Edit1Exit(Sender: TObject);

begin

edit3.Text:=formatFloat('# ### ##0.00ð.',strtofloat(edit1.Text)*strtofloat(edit2.Text));

end;

procedure TForm9.Edit2Exit(Sender: TObject);

begin

edit3.Text:=formatFloat('# ### ##0.00ð.',strtofloat(edit1.Text)*strtofloat(edit2.Text));

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

form9.ADOTable1.Active:=true;

form9.ADOTable2.Active:=true;

form9.ADOTable3.Active:=true;

end;

end.

unit Unit10;

interface

uses

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

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

AccessXP, OleServer, Access2000, StdCtrls, Mask;

type

TForm10 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOTable1: TADOTable;

DataSource1: TDataSource;

Panel1: TPanel;

ADOQuery1: TADOQuery;

Label1: TLabel;

DataSource2: TDataSource;

DBEdit1: TDBEdit;

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

// procedure SpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

access: variant;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm10.FormActivate(Sender: TObject);

begin

form10.ADOTable1.Active:=false;

form10.ADOTable1.Active:=true;

form10.ADOQuery1.Active:=false;

form10.ADOQuery1.Active:=true;

{try

Access := GetActiveOleObject('Access.Application');

except

on exception do

begin

Access := CreateOleObject('Access.Application');

end;

end; }

end;

procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);

begin

{try

Access.CloseCurrentDatabase;

Access.Quit(acQuitSaveAll);

except

;

end; }

end;