t9;
{$ R *. dfm} TForm7.Button1Click (Sender: TObject); t: TfrxMemoView; Form1.IBQuery1 do begin;. Clear;. Text: = 'execute procedure PROC_DOG (''' + Edit1.Text +'' ',''' + Edit2.Text +'' ',''' + Edit3.Text +'' ',''' + Edit4.Text +'' ', 1)';;. Commit;;. Text: = 'select * from dogovor';;;
{==============}: = TfrxMemoView (Form9.frxReport1.FindObject ('Memo5')); t <> nil then.memo. text: = Edit2.Text;: = TfrxMemoView (Form9.frxReport1.FindObject ('Memo7')); t <> nil then.memo.text: = Edit4.Text;: = TfrxMemoView (Form9.frxReport1.FindObject ( 'Memo9')); t <> nil then.memo.text: = Edit1.Text;. IBQuery2.Last;: = TfrxMemoView (Form9.frxReport1.FindObject ('Memo15')); t <> nil then.memo.text: = IntToStr (Form1.IBQuery2.RecordCount);: = TfrxMemoView (Form9.frxReport1.FindObject ('Memo3')); t <> nil then.memo.text: = : = 'Select * from SHOP';. IBQuery2.Open;: = TfrxMemoView (Form9.frxReport1.FindObject ('Memo11')); t <> nil then.memo.text: = Form1.IBQuery2.FieldByName (' NAZVANIE '). AsString;: = TfrxMemoView (Form9.frxReport1.FindObject (' Memo13 ')); t <> nil then.memo.text: = Form1.IBQuery2.FieldByName (' BANK_S4ET '). AsString;. Show ;. frxReport1.ShowReport;
{==============} Form1.IBQuery2 do begin;. Clear;. Text: = 'Insert into TOVARY_DOGOVOR (ID, NAIMENOVANIE, RAZMER, CENA, UPAKOVKA, GARANTSROK, ID_DOGOVOR, ID_OTDEL) '+
'select * from KORZINA';;. Commit;;. Clear;. Text: = 'DELETE FROM KORZINA';;. Commit;;;. Button15.Enabled: = false;. Button22. Enabled: = false;. Button16.Enabled: = false;. Label8.Caption: = '0 ';. Visible: = false;; TForm7.Button2Click (Sender: TObject);. Visible: = false;;
end.
unit Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, frxClass, frxDBSet, frxPreview, StdCtrls, frxExportXLS; = class (TForm): TfrxReport;: TfrxPreview;: TfrxDBDataset ;: TfrxXLSExport;: TButton; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm8;
{$ R *. dfm} TForm8.Button1Click (Sender: TObject);. frxReport1.Export (Form8.frxXLSExport1);;
end.
unit Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, frxClass, frxPreview, frxExportRTF, frxDBSet; = class (TForm): TfrxDBDataset;: TfrxReport;: TfrxRTFExport ;: TfrxPreview;: TButton; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm9;
{$ R *. dfm} TForm9.Button1Click (Sender: TObject);. frxReport1.Export (Fo...
