informed about your actions ...'); rb1.Checked then Close;; TForm1.btn10Click (Sender: TObject);. tbl4.Edit;; TForm1.btn11Click ( Sender: TObject);. tbl4.Post;; TForm1.btn12Click (Sender: TObject);. Tbl5.Post;; TForm1.btn15Click (Sender: TObject);. Show;; TForm1.statistic1Click (Sender: TObject);. Show;; TForm1.Goods1Click (Sender: TObject);. Tbl1.Edit;; TForm1.Marketadequacy1Click (Sender: TObject);. Tbl2.Edit;; TForm1.Multicriteriaestimation1Click (Sender: TObject);. tbl3.Edit;; TForm1.Forecasts1Click (Sender: TObject);. tbl4.Edit;; TForm1.Goods2Click (Sender: TObject);. tbl1.Post;; TForm1.Marketadequacy2Click (Sender : TObject);. tbl2.Post;; TForm1.Multicriteriaestimation2Click (Sender: TObject);. tbl3.Post;; TForm1.Forecasts2Click (Sender: TObject);. tbl4.Post;; TForm1.Marketadequacy3Click (Sender: then then ShowMessage ('Development of this goods is illigal! FBI is already informed about your actions ...'); rb1.Checked then Close;; TForm1.Forecasts3Click (Sender: 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);: = : = 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);: = : = 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);: = TObject);: = : = 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);: =
Form2.Close;;.
