Файл: Проектирование реализации операций бизнес-процесса «Расчет заработной платы».pdf

AdoConnection1.ConnectionString := 'Data Source=' + OpenDialog1.FileName;

AdoConnection1.Open;

adoquery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ OpenDialog1.FileName;

adoquery1.Active:=true;

except

ShowMessage('Ошибка подключения !');

end;

ADOConnection1.Connected := true;

DBGrideh1.columns[0].Visible:=false;

end;

end.

procedure TForm1.FormCreate(Sender: TObject);

begin

form1.DBGrideh1.Columns[1].Width:=65;

form1.DBGrideh1.Columns[2].Width:=65;

form1.DBGrideh1.Columns[3].Width:=65;

form1.DBGrideh1.Columns[4].Width:=65;

form1.DBGrideh1.Columns[5].Width:=65;

form1.DBGrideh1.Columns[6].Width:=40;

form1.DBGrideh1.Columns[7].Width:=50;

form1.DBGrideh1.Columns[8].Width:=65;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

form2.show;

form2.button1.Visible:=False;

form2.button2.Visible:=False;

form2.button3.Visible:=True;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ComObj;

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Button1: TButton;

Button2: TButton;

dbedt1: TDBEdit;

dbedt2: TDBEdit;

dbedt3: TDBEdit;

dbedt4: TDBEdit;

dbedt5: TDBEdit;

dbedt6: TDBEdit;

dbedt7: TDBEdit;

dbedt8: TDBEdit;

lbl1: TLabel;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.ADOQuery1.Post;

close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.hide;

end.

procedure TForm2.Button3Click(Sender: TObject);

begin

form4.show;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, PrnDbgeh;

type

TForm3 = class(TForm)

chk1: TCheckBox;

chk2: TCheckBox;

chk3: TCheckBox;

chk4: TCheckBox;

chk5: TCheckBox;

chk6: TCheckBox;

chk7: TCheckBox;

chk8: TCheckBox;

btn1: TButton;

PrintDBGridEh1: TPrintDBGridEh;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);

begin

form1.DBGrideh1.Columns[0].Visible:=False;

form1.DBGrideh1.Columns[1].Visible:=False;

form1.DBGrideh1.Columns[2].Visible:=False;

form1.DBGrideh1.Columns[3].Visible:=False;

form1.DBGrideh1.Columns[4].Visible:=False;

form1.DBGrideh1.Columns[5].Visible:=False;

form1.DBGrideh1.Columns[6].Visible:=False;

form1.DBGrideh1.Columns[7].Visible:=False;

form1.DBGrideh1.Columns[8].Visible:=False;

if Chk1.Checked=True then begin

form1.dbgrideh1.Columns[1].Visible:=True;

end;

if Chk2.Checked=True then begin

form1.dbgrideh1.Columns[2].Visible:=True;

end;

if Chk3.Checked=True then begin

form1.dbgrideh1.Columns[3].Visible:=True;

end;

if Chk4.Checked=True then begin

form1.dbgrideh1.Columns[4].Visible:=True;

end;

if Chk5.Checked=True then begin

form1.dbgrideh1.Columns[5].Visible:=True;

end;

if Chk6.Checked=True then begin

form1.dbgrideh1.Columns[6].Visible:=True;

end;

if Chk7.Checked=True then begin

form1.dbgrideh1.Columns[7].Visible:=True;

end;

if Chk8.Checked=True then begin

form1.dbgrideh1.Columns[8].Visible:=True;

end;

PrintDBGridEh1.SetSubstitutes(['%[Today]',DateToStr(Now)]);

PrintDBGridEh1.Preview;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ComObj;

type

TForm4 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

btn1: TButton;

Label18: TLabel;

edt1: TEdit;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

edt2: TEdit;

edt3: TEdit;

edt4: TEdit;

edt5: TEdit;

edt6: TEdit;

edt7: TEdit;

edt8: TEdit;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

edt9: TEdit;

edt10: TEdit;

edt11: TEdit;

edt12: TEdit;

edt13: TEdit;

edt14: TEdit;

edt15: TEdit;

btn2: TButton;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

begin

label9.caption:=Form2.dbedt1.text;

label10.caption:=Form2.dbedt2.text;

label11.caption:=Form2.dbedt3.text;

label12.caption:=Form2.dbedt4.text;

label13.caption:=Form2.dbedt5.text;

label14.caption:=Form2.dbedt6.text;

label15.caption:=Form2.dbedt7.text;

label16.caption:=Form2.dbedt8.text;

end;

procedure TForm4.btn1Click(Sender: TObject);

var

Excel:variant;

begin

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

Excel.Workbooks.Open(GetCurrentDir() + '\spravka.xlsx');

Excel.sheets.item['лист1'].activate;

Excel.Range['F14']:='';

Excel.Range['F15']:='';

Excel.Range['F16']:='';

Excel.Range['F17']:='';

Excel.Range['F18']:='';

Excel.Range['F19']:='';

Excel.Range['F20']:='';

Excel.Range['i14']:='';

Excel.Range['i15']:='';

Excel.Range['i16']:='';

Excel.Range['i17']:='';

Excel.Range['i18']:='';

Excel.Range['i19']:='';

Excel.Range['i20']:='';

Excel.Range['F14']:=edt2.text;

Excel.Range['F15']:=edt3.text;

Excel.Range['F16']:=edt4.text;

Excel.Range['F17']:=edt5.text;