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

9;;. SQL: = Memo1.Lines;. Open;; TForm1.Button27Click (Sender: TObject); Edit13.Text ='' then begin.MessageBox (' Введіть id договору ',' товари ');;;. Enabled: = true;. Close;. Lines.Clear;. Lines [0]: =' select * from TOVARY_DOGOVOR where ID_DOGOVOR = '+ Edit13.Text;. SQL: = Memo1.Lines;. Open ;; TForm1.Button28Click (Sender: TObject); t: TfrxMemoView; Edit13.Text ='' then begin.MessageBox ('Введіть id договору', 'товари');;;: = TfrxMemoView (Form8.frxReport1.FindObject (' Memo10 ')); t <> nil then.memo.text: = Edit13.Text;. Close;. SQL.Clear;. Lines.Clear;. Lines [0]: =' select * from DOGOVOR where id = '+ Edit13.Text;. SQL: = Memo1.Lines;. Open;: = TfrxMemoView (Form8.frxReport1.FindObject (' Memo11 ')); t <> nil then.memo.text: = IBQuery1.FieldByName ( 'DATADOGOVORA'). AsString;: = TfrxMemoView (Form8.frxReport1.FindObject ('Memo14')); t <> nil then.memo.Text: = IBQuery1.FieldByName ('SUMMA'). AsString;. SQL. Clear;. Lines.Clear;. Lines [0]: = 'select * from TOVARY_DOGOVOR where id_dogovor =' + Edit13.Text;. SQL: = Memo1.Lines;. Open;. Show;. frxReport1.ShowReport;;

end.

unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, unit1, IBDatabase, DB, IBCustomDataSet, IBQuery; = class (TForm): TEdit;: TEdit; : TEdit;: TEdit;: TEdit;: TButton;: TIBQuery;: TIBTransaction;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TLabel;: TCheckBox;: TButton; Button1Click (Sender: TObject ); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2;

{$ R *. dfm} TForm2.Button1Click (Sender: TObject); check: string;. Close;. SQL.Clear; Form2.CheckBox1.Checked then check: = '+' else check : = '-'; Flag thenIBQuery2 do.Text: = 'execute procedure PROC_NAL (-1,''' +. Text +'' ',''' + Edit2.Text +'' ',''' + Edit3. Text +'' ',''' + +'' ',''' + Edit5.Text +'' ',''' + Edit6.Text +'' ',''' +. Text +'' ') ';; IBQuery2 do.Text: =' execute procedure PROC_NAL ('+ Form1.IBQuery1.FieldByName (' ID '). AsString +','' '+. Text +''','' '+ Edit2.Text + '' ',''' + Edit3.Text +'' ',''' + +'' ',''' + Edit5.Text +'' ',''' + Edit6.Text +'' ',' '' +. Text +'' ')';;;. Open;. Close;. IBQuery1.Close;. IBQuery1.Open; Flag1 then Form2.Close;; TForm2.Button2Click (Sender: TObject);. Close;;

end.

unit Unit3;, Messages, SysUtils, Variants, Classes, Gr...