94
IBQuery1.ParamByName('par3').Value:=DataSource1.DataSet.FieldByName('ID_PR
EP').Value;
IBQuery1.Active:=True;
end;
procedure TViborF.FormActivate(Sender: TObject);
begin
IBQuery1.Active:=False;
IBQuery2.Active:=False;
IBQuery1.Active:=True;
IBQuery2.Active:=True;
DataSource2.DataSet.Last;
end;
procedure TViborF.sButton2Click(Sender: TObject);
var
Excel, WorkBook, Sheet:variant;
i, j,a,x: integer;
s:string;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
Excel.Visible:= False;
Workbook:=Excel.
Workbooks.Add;
Sheet:= Workbook.ActiveSheet;
sDBGrid1.DataSource.DataSet.First;
x:=2;
for j:= 0 to sDBGrid1.FieldCount-1 do
begin
s:=sDBGrid1.Columns[j].Title.Caption;
95
Sheet.Cells[1 ,j+1]:=WideString(StringToPWide(s,a));
end;
for i:= 0 to sDBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for j:= 0 to sDBGrid1.FieldCount-1 do
Sheet.Cells[x
,j+1]:=WideString(StringToPWide(trim(sDBGrid1.DataSource.DataSet.Fields[j].AsSt
ring),a));
inc(x);
sDBGrid1.DataSource.DataSet.next;
end;
Sheet.Columns['A:E'].AutoFit;
Excel.Visible:= True;
end;
end.
unit TyPredU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, sPanel, sDBNavigator, DB, IBCustomDataSet, Grids,
DBGrids, acDBGrid;
type
TTyPredF = class(TForm)
sDBGrid1: TsDBGrid;
DataSource1: TDataSource;
IBDataSet1: TIBDataSet;
96
sDBNavigator1: TsDBNavigator;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TyPredF: TTyPredF;
implementation
uses DMU;
{$R *.dfm}
procedure TTyPredF.FormActivate(Sender: TObject);
begin
IBDataSet1.Active:=False;
IBDataSet1.Active:=True;
end;
end.
unit TypeAuU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
97
Dialogs, ExtCtrls, sPanel, sDBNavigator, Grids, DBGrids, acDBGrid, DB,
IBCustomDataSet;
type
TTypeAuF = class(TForm)
IBDataSet1: TIBDataSet;
DataSource1: TDataSource;
sDBGrid1: TsDBGrid;
sDBNavigator1: TsDBNavigator;
procedure IBDataSet1AfterTransactionEnd(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TypeAuF: TTypeAuF;
implementation
uses DMU;
{$R *.dfm}
procedure TTypeAuF.IBDataSet1AfterTransactionEnd(Sender: TObject);
begin
//DM.Transaction.CommitRetaining;
//DM.Transaction.Active:=True;
IBDataSet1.Active:=False;
IBDataSet1.Active:=true;
end;
98
procedure TTypeAuF.FormActivate(Sender: TObject);
begin
IBDataSet1.Active:=False;
IBDataSet1.Active:=True;
end;
end.