Программный код к Form9 (Заказ)

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB, ADODB, Buttons, ComCtrls,

Grids, OleServer, ExcelXP, ComObj, DBGrids, jpeg, Menus;

type

TForm9 = class(TForm)

ADOConnection1: TADOConnection;

ComboBox1: TComboBox;

Edit1: TEdit;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

DateTimePicker3: TDateTimePicker;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

GroupBox2: TGroupBox;

DBEdit32: TDBEdit;

DBEdit33: TDBEdit;

DBEdit34: TDBEdit;

DBEdit35: TDBEdit;

DBEdit36: TDBEdit;

DBEdit37: TDBEdit;

DBEdit38: TDBEdit;

DBEdit39: TDBEdit;

DBEdit40: TDBEdit;

GroupBox3: TGroupBox;

DBEdit41: TDBEdit;

DBEdit42: TDBEdit;

DBEdit43: TDBEdit;

DBEdit44: TDBEdit;

DBEdit45: TDBEdit;

DBEdit46: TDBEdit;

DBEdit47: TDBEdit;

DBEdit48: TDBEdit;

DBEdit49: TDBEdit;

GroupBox4: TGroupBox;

DBEdit50: TDBEdit;

DBEdit51: TDBEdit;

DBEdit52: TDBEdit;

DBEdit53: TDBEdit;

DBEdit54: TDBEdit;

DBEdit55: TDBEdit;

DBEdit56: TDBEdit;

DBEdit57: TDBEdit;

DBEdit58: TDBEdit;

DataSource6: TDataSource;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

DBEdit59: TDBEdit;

DBEdit61: TDBEdit;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

Label1: TLabel;

DBEdit60: TDBEdit;

Image2: TImage;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1FIO_zakaz: TWideStringField;

ADOTable1FIO_master: TWideStringField;

ADOTable1begin_rab: TWideStringField;

ADOTable1data_prim: TWideStringField;

ADOTable1end_rab: TWideStringField;

ADOTable1tovar: TWideStringField;

ADOTable1usluga1: TWideStringField;

ADOTable1cena_u1: TFloatField;

ADOTable1usluga2: TWideStringField;

ADOTable1cena_u2: TFloatField;

ADOTable1usluga_u3: TWideStringField;

ADOTable1cena_u3: TFloatField;

ADOTable1usluga4: TWideStringField;

ADOTable1cena_u4: TFloatField;

ADOTable1usluga5: TWideStringField;

ADOTable1cena_u5: TFloatField;

ADOTable1usluga6: TWideStringField;

ADOTable1cena_u6: TFloatField;

ADOTable1usluga7: TWideStringField;

ADOTable1cena_u7: TFloatField;

ADOTable1usluga8: TWideStringField;

ADOTable1cena_u8: TFloatField;

ADOTable1usluga9: TWideStringField;

ADOTable1cena_u9: TFloatField;

ADOTable1usluga10: TWideStringField;

ADOTable1cena_u10: TFloatField;

ADOTable1usluga11: TWideStringField;

ADOTable1cena_u11: TFloatField;

ADOTable1usluga12: TWideStringField;

ADOTable1cena_u12: TFloatField;

ADOTable1usluga13: TWideStringField;

ADOTable1cena_u13: TFloatField;

ADOTable1usluga14: TWideStringField;

ADOTable1cena_u14: TFloatField;

ADOTable1usluga15: TWideStringField;

ADOTable1cena_u15: TFloatField;

ADOTable1mat1: TWideStringField;

ADOTable1metrach1: TFloatField;

ADOTable1cenamat1: TFloatField;

ADOTable1mat2: TWideStringField;

ADOTable1metracht2: TFloatField;

ADOTable1cenamat2: TFloatField;

ADOTable1mat3: TWideStringField;

ADOTable1metracht3: TFloatField;

ADOTable1cenamat3: TFloatField;

ADOTable1fur1: TWideStringField;

ADOTable1kolvo_fur1: TFloatField;

ADOTable1cenafur1: TFloatField;

ADOTable1fur2: TWideStringField;

ADOTable1kolvo_fur2: TFloatField;

ADOTable1cena_fur2: TFloatField;

ADOTable1fur3: TWideStringField;

ADOTable1kolvo_fur3: TFloatField;

ADOTable1cenafur3: TFloatField;

ADOTable1ukr1: TWideStringField;

ADOTable1kolvo_ukr1: TFloatField;

ADOTable1cenaukr1: TFloatField;

ADOTable1ukr2: TWideStringField;

ADOTable1kolvo_ukr2: TFloatField;

ADOTable1cenaukr2: TFloatField;

ADOTable1ukr3: TWideStringField;

ADOTable1kolvo_ukr3: TFloatField;

ADOTable1cenaukr3: TFloatField;

ADOTable1Summa: TFloatField;

N5: TMenuItem;

N7: TMenuItem;

DBNavigator1: TDBNavigator;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure ADOTable1CalcFields(DataSet: TDataSet);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses unit6, unit1, Unit5,unit11, unit10, unit2,unit3,unit4, unit7;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

ADOTable1.FieldByName('FIO_zakaz').AsString:=Edit1.Text;

ADOTable1.FieldByName('FIO_master').AsString:=ComboBox1.Text;

ADOTable1.FieldByName('begin_rab').AsString:=DatetoStr(DateTimePicker1.Date);

ADOTable1.FieldByName('data_prim').AsString:=DatetoStr(DateTimePicker2.Date);

ADOTable1.FieldByName('end_rab').AsString:=DatetoStr(DateTimePicker3.Date);

ADOTable1.FieldByName('tovar').AsString:=form11.Edit2.Text;

if form11.checkBox2.Checked then begin

ADOTable1.FieldByName('usluga1').AsString:=form11.DBEdit6.Text;

ADOTable1.FieldByName('cena_u1').AsFloat:=StrToFloat(form11.DBEdit7.Text);

end;

if form11.checkBox4.Checked then begin

ADOTable1.FieldByName('usluga2').AsString:=form11.DBEdit8.Text;

ADOTable1.FieldByName('cena_u2').AsFloat:=StrtoFloat(form11.DBEdit9.Text);

end;

if form11.checkBox6.Checked then begin

ADOTable1.FieldByName('usluga_u3').AsString:=form11.DBEdit10.Text;

ADOTable1.FieldByName('cena_u3').AsFloat:=StrtoFloat(form11.DBEdit11.Text);

end;

if form11.checkBox8.Checked then begin

ADOTable1.FieldByName('usluga4').AsString:=form11.DBEdit1.Text;

ADOTable1.FieldByName('cena_u4').AsFloat:=StrtoFloat(form11.DBEdit2.Text);

end;

if form11.checkBox10.Checked then begin

ADOTable1.FieldByName('usluga5').AsString:=form11.DBEdit3.Text;

ADOTable1.FieldByName('cena_u5').AsFloat:=StrtoFloat(form11.DBEdit4.Text);

end;

if form11.checkBox12.Checked then begin

ADOTable1.FieldByName('usluga6').AsString:=form11.DBEdit5.Text;

ADOTable1.FieldByName('cena_u6').AsFloat:=StrtoFloat(form11.DBEdit13.Text);

end;

if form11.checkBox14.Checked then begin

ADOTable1.FieldByName('usluga7').AsString:=form11.DBEdit14.Text;

ADOTable1.FieldByName('cena_u7').AsFloat:=StrtoFloat(form11.DBEdit15.Text);

end;

if form11.checkBox16.Checked then begin

ADOTable1.FieldByName('usluga8').AsString:=form11.DBEdit16.Text;

ADOTable1.FieldByName('cena_u8').AsFloat:=StrtoFloat(form11.DBEdit17.Text);

end;

if form11.checkBox18.Checked then begin

ADOTable1.FieldByName('usluga9').AsString:=form11.DBEdit18.Text;

ADOTable1.FieldByName('cena_u9').AsFloat:=StrtoFloat(form11.DBEdit19.Text);

end;

if form11.checkBox20.Checked then begin

ADOTable1.FieldByName('usluga10').AsString:=form11.DBEdit20.Text;

ADOTable1.FieldByName('cena_u10').AsFloat:=StrtoFloat(form11.DBEdit21.Text);

end;

if form11.checkBox22.Checked then begin

ADOTable1.FieldByName('usluga11').AsString:=form11.DBEdit22.Text;

ADOTable1.FieldByName('cena_u11').AsFloat:=StrtoFloat(form11.DBEdit23.Text);

end;

if form11.checkBox24.Checked then begin

ADOTable1.FieldByName('usluga12').AsString:=form11.DBEdit24.Text;

ADOTable1.FieldByName('cena_u12').AsFloat:=StrtoFloat(form11.DBEdit25.Text);

end;

if form11.checkBox26.Checked then begin

ADOTable1.FieldByName('usluga13').AsString:=form11.DBEdit26.Text;

ADOTable1.FieldByName('cena_u13').AsFloat:=StrtoFloat(form11.DBEdit27.Text);

end;

if form11.checkBox28.Checked then begin

ADOTable1.FieldByName('usluga14').AsString:=form11.DBEdit28.Text;

ADOTable1.FieldByName('cena_u14').AsFloat:=StrtoFloat(form11.DBEdit29.Text);

end;

if form11.checkBox30.Checked then begin

ADOTable1.FieldByName('usluga15').AsString:=form11.DBEdit30.Text;

ADOTable1.FieldByName('cena_u15').AsFloat:=StrtoFloat(form11.DBEdit31.Te);

end;

if form5.checkBox1.Checked then begin

ADOTable1.FieldByName('mat1').AsString:=form5.DBEdit1.Text;

ADOTable1.FieldByName('cenamat1').AsFloat:=StrtoFloat(form5.DBEdit3.Text);

ADOTable1.FieldByName('metrach1').AsFloat:=StrtoFloat(form5.Edit1.Text);

end;

if form5.checkBox2.Checked then begin

ADOTable1.FieldByName('mat2').AsString:=form5.DBEdit2.Text;

ADOTable1.FieldByName('cenamat2').AsFloat:=StrtoFloat(form5.DBEdit5.Text);

ADOTable1.FieldByName('metracht2').AsFloat:=StrtoFloat(form5.Edit2.Text);

end;

if form5.checkBox3.Checked then begin

ADOTable1.FieldByName('mat3').AsString:=form5.DBEdit6.Text;

ADOTable1.FieldByName('cenamat3').AsFloat:=StrtoFloat(form5.DBEdit8.Text);

ADOTable1.FieldByName('metracht3').AsFloat:=StrtoFloat(form5.Edit3.Text);

end;

if form10.checkBox1.Checked then begin

ADOTable1.FieldByName('fur1').AsString:=form10.DBEdit1.Text;

ADOTable1.FieldByName('kolvo_fur1').AsFloat:=StrtoFloat(form10.Edit1.Text);

ADOTable1.FieldByName('cenafur1').AsFloat:=StrtoFloat(form10.DBEdit7.Text);

end;

if form10.checkBox2.Checked then begin

ADOTable1.FieldByName('fur2').AsString:=form10.DBEdit2.Text;

ADOTable1.FieldByName('kolvo_fur2').AsFloat:=StrtoFloat(form10.Edit2.Text);

ADOTable1.FieldByName('cena_fur2').AsFloat:=StrtoFloat(form10.DBEdit8.Tex;

end;

if form10.checkBox3.Checked then begin

ADOTable1.FieldByName('fur3').AsString:=form10.DBEdit3.Text;

ADOTable1.FieldByName('kolvo_fur3').AsFloat:=StrtoFloat(form10.Edit3.Text);

ADOTable1.FieldByName('cenafur3').AsFloat:=StrtoFloat(form10.DBEdit9.Text);

end;

if form6.checkBox1.Checked then begin

ADOTable1.FieldByName('ukr1').AsString:=form6.DBEdit1.Text;

ADOTable1.FieldByName('kolvo_ukr1').AsFloat:=StrtoFloat(form6.Edit1.Text);

ADOTable1.FieldByName('cenaukr1').AsFloat:=StrtoFloat(form6.DBEdit7.Text);

end;

if form6.checkBox1.Checked then begin

ADOTable1.FieldByName('ukr2').AsString:=form6.DBEdit2.Text;

ADOTable1.FieldByName('kolvo_ukr2').AsFloat:=StrtoFloat(form6.Edit2.Text);

ADOTable1.FieldByName('cenaukr2').AsFloat:=StrtoFloat(form6.DBEdit8.Text);

end;

if form6.checkBox3.Checked then begin

ADOTable1.FieldByName('ukr3').AsString:=form6.DBEdit3.Text;

ADOTable1.FieldByName('kolvo_ukr3').AsFloat:=StrtoFloat(form6.Edit3.Text);

ADOTable1.FieldByName('cenaukr3').AsFloat:=StrtoFloat(form6.DBEdit9.Text);

end;

ADOTable1.Post;

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

form9.Close;

end;

procedure TForm9.BitBtn3Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm9.BitBtn4Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm9.BitBtn5Click(Sender: TObject);

begin

form10.Show;

end;

procedure TForm9.BitBtn6Click(Sender: TObject);

begin

form11.Show;

end;

procedure TForm9.BitBtn7Click(Sender: TObject);

begin

adotable1.delete;

end;

procedure TForm9.ADOTable1CalcFields(DataSet: TDataSet);

begin

ADOTAble1Summa.Value:=(ADOTAble1cena_u1.Value+ADOTAble1cena_u2.Value+ADOTAble1cena_u3.Value+ADOTAble1cena_u4.Value+ADOTAble1cena_u5.Value

+ADOTAble1cena_u6.Value+ADOTAble1cena_u7.Value+ADOTAble1cena_u8.Value+ADOTAble1cena_u9.Value+ADOTAble1cena_u10.Value+ADOTAble1cena_u11.Value

+ADOTAble1cena_u12.Value+ADOTAble1cena_u13.Value+ADOTAble1cena_u14.Value+ADOTAble1cena_u15.Value)+(ADOTAble1metrach1.Value*ADOTAble1cenamat1.Value)+(ADOTAble1metracht2.Value*ADOTAble1cenamat2.Value)+(ADOTAble1metracht3.Value*ADOTAble1cenamat3.Value)+(ADOTAble1kolvo_fur1.Value*ADOTAble1cenafur1.Value)+(ADOTAble1kolvo_fur2.Value*ADOTAble1cena_fur2.Value)+(ADOTAble1kolvo_fur3.Value*ADOTAble1cenafur3.Value)+(ADOTAble1kolvo_ukr1.Value*ADOTAble1cenaukr1.Value)+(ADOTAble1kolvo_ukr2.Value*ADOTAble1cenaukr2.Value)+(ADOTAble1kolvo_ukr3.Value*ADOTAble1cenaukr3.Value);

end;

procedure TForm9.BitBtn8Click(Sender: TObject);

var

Sheet,XLApp:Variant;

begin

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

XLApp.Visible:=True;

XLApp.Workbooks.Open[квитанция.xls'];

Sheet:=XLApp.Workbooks[1].WorkSheets['лист3'];

XLApp.Range['C2']:=DBedit59.text;

XLApp.Range['E2']:=DBedit61.text;

XLApp.Range['B3']:=DBedit12.text;

XLApp.Range['B4']:=DBedit6.text;

XLApp.Range['B5']:=DBedit8.text;

XLApp.Range['B6']:=DBedit10.text;

XLApp.Range['B7']:=DBedit1.text;

XLApp.Range['B8']:=DBedit3.text;

XLApp.Range['B9']:=DBedit5.text;

XLApp.Range['B10']:=DBedit14.text;

XLApp.Range['B11']:=DBedit16.text;

XLApp.Range['B12']:=DBedit18.text;

XLApp.Range['B13']:=DBedit20.text;

XLApp.Range['B14']:=DBedit22.text;

XLApp.Range['B15']:=DBedit24.text;

XLApp.Range['B16']:=DBedit26.text;

XLApp.Range['B17']:=DBedit28.text;

XLApp.Range['B18']:=DBedit30.text;

XLApp.Range['E4']:=DBedit7.text;

XLApp.Range['E5']:=DBedit9.text;

XLApp.Range['E6']:=DBedit11.text;

XLApp.Range['E7']:=DBedit2.text;

XLApp.Range['E8']:=DBedit4.text;

XLApp.Range['E9']:=DBedit13.text;

XLApp.Range['E10']:=DBedit15.text;

XLApp.Range['E11']:=DBedit17.text;

XLApp.Range['E12']:=DBedit19.text;

XLApp.Range['E13']:=DBedit21.text;

XLApp.Range['E14']:=DBedit23.text;

XLApp.Range['E15']:=DBedit25.text;

XLApp.Range['E16']:=DBedit27.text;

XLApp.Range['E17']:=DBedit29.text;

XLApp.Range['E18']:=DBedit31.text;

XLApp.Range['B20']:=DBedit32.text;

XLApp.Range['B21']:=DBedit33.text;

XLApp.Range['B22']:=DBedit34.text;

XLApp.Range['D20']:=DBedit38.text;

XLApp.Range['D21']:=DBedit39.text;

XLApp.Range['D22']:=DBedit40.text;

XLApp.Range['E20']:=DBedit35.text;

XLApp.Range['E21']:=DBedit36.text;

XLApp.Range['E22']:=DBedit37.text;

XLApp.Range['B24']:=DBedit41.text;

XLApp.Range['B25']:=DBedit42.text;

XLApp.Range['B26']:=DBedit43.text;

XLApp.Range['D24']:=DBedit49.text;

XLApp.Range['D25']:=DBedit47.text;

XLApp.Range['D26']:=DBedit48.text;XLApp.Range['E24']:=DBedit44.text;

XLApp.Range['E25']:=DBedit45.text;

XLApp.Range['E26']:=DBedit46.text;

XLApp.Range['B28']:=DBedit50.text;

XLApp.Range['B29']:=DBedit51.text;

XLApp.Range['B30']:=DBedit52.text;

XLApp.Range['D28']:=DBedit53.text;

XLApp.Range['D29']:=DBedit54.text;

XLApp.Range['D30']:=DBedit55.text;

XLApp.Range['E28']:=DBedit56.text;

XLApp.Range['E29']:=DBedit57.text;

XLApp.Range['E30']:=DBedit58.text;

XLApp.Range['E32']:=ADOTable1.Fields.Fields[64].AsInteger;

end;

procedure TForm9.N1Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm9.N2Click(Sender: TObject);

begin

form9.close;

end;

procedure TForm9.N3Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm9.N6Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm9.N7Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm9.N9Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm9.N4Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm9.N5Click(Sender: TObject);

begin

Winhelp(form1.Handle,'справка.hlp',HELP_CONTEXT,1);

end;

end.