Создание нового товара
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
t]:=0;.tbl5.FieldValues[The_general_estimation_of_market_adequacy]:=0;.tbl5.Post;;.Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, OleServer, ExcelXP, ComObj, Menus;= class(TForm): TButton;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;Button1Click(Sender: TObject);FormCreate(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);Sendtodatabase1Click(Sender: TObject);Close1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;: Variant;;
{$R *.dfm}TForm2.Button1Click(Sender: TObject);:= CreateOleObject(Excel.Application);.Workbooks.Open(С:\дип.Олейник\Анкета.xls);.Range[D2] := edt1.Text;.Range[D3] := edt2.Text;.Range[D4] := edt3.Text;.Range[D5] := edt4.Text;.Range[D6] := edt5.Text;.Range[D9] := edt6.Text;.Range[D10] := edt7.Text;.Range[D11] := edt8.Text;.Range[D12] := edt9.Text;.Range[D13] := edt10.Text;.Columns[4].Insert;.Application.Quit;;TForm2.FormCreate(Sender: TObject);:= CreateOleObject(Excel.Application);.Workbooks.Open(С:\дип.Олейник\Анкета.xls);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Text:=IntToStr(0);.Caption := Ap.Range[A2];.Caption := Ap.Range[A3];.Caption := Ap.Range[A4];.Caption := Ap.Range[A5];.Caption := Ap.Range[A6];.Caption := Ap.Range[A1];.Caption := Ap.Range[A8];.Application.Quit;;TForm2.FormClose(Sender: TObject; var Action: TCloseAction);:= CreateOleObject(Excel.Application);.Workbooks.Open(С:\дип.Олейник\Анкета.xls);.tbl2.Edit;.tbl2.FieldValues[Analytical_modeling]:=Ap.Range[A15];.tbl2.Post;.Application.Quit;;TForm2.Sendtodatabase1Click(Sender: TObject);:= CreateOleObject(Excel.Application);.Workbooks.Open(С:\дип.Олейник\Анкета.xls);.Range[D2] := edt1.Text;.Range[D3] := edt2.Text;.Range[D4] := edt3.Text;.Range[D5] := edt4.Text;.Range[D6] := edt5.Text;.Range[D9] := edt6.Text;.Range[D10] := edt7.Text;.Range[D11] := edt8.Text;.Range[D12] := edt9.Text;.Range[D13] := edt10.Text;.Columns[4].Insert;.Application.Quit;;TForm2.Close1Click(Sender: TObject);:= CreateOleObject(Excel.Application);.Workbooks.Open(С:\дип.Олейник\Анкета.xls);.tbl2.Edit;.tbl2.FieldValues[Analytical_modeling]:=Ap.Range[A15];.tbl2.Post;.Application.Quit;
Form2.Close;;.