Реферат Розробка інформаційно-програмного комплексу для використання на IBM-сумісних ПК в якості автоматизованого робочого місця обробки інформації

unit Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm5; Unit2, Unit1;

{$ R *. dfm} TForm5.Button1Click (Sender: TObject);. IBQuery2.Close;. IBQuery2.SQL.Clear; Form2.IBQuery2 do.Text: = 'execute procedure PROC_SHOP (' + Form1.IBQuery1.FieldByName ('ID_SHOP'). AsString + ',''' +. Text +'' ',''' + Edit1.Text +'' ',''' + Edit2.Text +'' ' ,'' '+ Edit3.Text +''','' '+. Text +''','' '+ Edit5.Text +''','' '+ Edit6.Text +''') '; ;. IBQuery2.Open;. IBQuery2.Close;. IBQuery1.Close;. IBQuery1.Open; Flag1 then Form5.Close;; TForm5.Button2Click (Sender: TObject);. Close;;

end.

unit Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, unit1; = class (TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel ;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm6; Unit2;

{$ R *. dfm} TForm6.Button1Click (Sender: TObject);. IBQuery2.Close;. IBQuery2.SQL.Clear; Flag thenForm2.IBQuery2 do.Text: = 'execute procedure PROC_OTDELY ( -1,'' '+. Text +''','' '+ Edit2.Text +''','' '+ Edit3.Text +''','' '+. Text +''', ' '' + Edit6.Text +'' ', 1)';; Form2.IBQuery2 do.Text: = 'execute procedure PROC_OTDELY (' + Form1.IBQuery1.FieldByName ('ID_OTDEL'). AsString + ',''' + . Text +'' ',''' + Edit2.Text +'' ',''' + Edit3.Text +'' ',''' +. Text +'' ',''' + Edit6.Text + '' ', 1)';;;. IBQuery2.Open;. IBQuery2.Close;. IBQuery1.Close;. IBQuery1.Open; Flag1 then Form6.Close;; TForm6.Button2Click (Sender: TObject);. Close;;

end.

unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, frxClass; = class (TForm): TEdit;: TEdit;: TEdit;: TEdit;: TLabel ;: TLabel;: TLabel;: TLabel;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm7; Unit1, Uni...