aphics, Controls, Forms,, unit1, StdCtrls; = class (TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel ;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TCheckBox;: TLabel;: TButton;: TEdit;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3; Unit2;
{$ R *. dfm} TForm3.Button1Click (Sender: TObject); check: string;. IBQuery2.Close;. IBQuery2.SQL.Clear; Form3.CheckBox1.Checked then check: = ' + 'else check: =' - '; Flag thenForm2.IBQuery2 do.Text: =' execute procedure PROC_PROD (-1,'' '+. Text +''','' '+ Edit2.Text +''', '' '+ Edit3.Text +''','' '+ +''','' '+ Edit5.Text +''','' '+ Edit6.Text +''','' '+. Text +'' ')';; Form2.IBQuery2 do.Text: = 'execute procedure PROC_PROD (' + Form1.IBQuery1.FieldByName ('ID'). AsString + ',''' +. Text +'' ', '' '+ Edit2.Text +''','' '+ Edit3.Text +''','' '+ +''','' '+ Edit5.Text +''','' '+ Edit6 . Text +'' ',''' +. Text +'' ')';;;. IBQuery2.Open;. IBQuery2.Close;. IBQuery1.Close;. IBQuery1.Open; Flag1 then Form3.Close;; TForm3 . Button2Click (Sender: TObject);. Close;;
end.
unit Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, unit1; = class (TForm): TLabel;: TLabel;: TLabel;: TLabel;: TEdit ;: TEdit;: TEdit;: TEdit;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm4; Unit2;
{$ R *. dfm} TForm4.Button1Click (Sender: TObject);. IBQuery2.Close;. IBQuery2.SQL.Clear; Flag thenForm2.IBQuery2 do.Text: = 'execute procedure PROC_DISC ( -1,'' '+. Text +''','' '+ Edit2.Text +''','' '+ Edit3.Text +''','' '+. Text +''', ' '' +
'1 '+''') ';; Form2.IBQuery2 do.Text: =' execute procedure PROC_DISC ('+ Form1.IBQuery1.FieldByName (' ID '). AsString +', ' '' +. Text +'' ',''' + Edit2.Text +'' ',''' + Edit3.Text +'' ',''' +. Text +'' ',''' +
'1 '+''') ';;;. IBQuery2.Open;. IBQuery2.Close;. IBQuery1.Close;. IBQuery1.Open; Flag1 then Form4.Close;; TForm4.Button2Click (Sender: TObject);. Close;;
end.
...
