Please help me,a very difficulty problem !!
hello everyone.
i'm from china P.R.
my english is very pool.
I have edit the frxDCtrl.pas , on it I have add some components (TfrxRadioGroupControl , TfrxDBGridControl)
and edit below
frxObjects.RegisterObject1(TfrxDateEditControl, nil, '', '', 0, 20); //add by hz
frxObjects.RegisterObject1(TfrxImageControl, nil, '', '', 0, 3); //add by hz
frxObjects.RegisterObject1(TfrxBevelControl, nil, '', '', 0, 33); //add by hz
frxObjects.RegisterObject1(TfrxBitBtnControl, nil, '', '', 0, 45); //add by hz
frxObjects.RegisterObject1(TfrxSpeedButtonControl, nil, '', '', 0, 46); //add by hz
frxObjects.RegisterObject1(TfrxMaskEditControl, nil, '', '', 0, 47); //add by hz
frxObjects.RegisterObject1(TfrxCheckListBoxControl, nil, '', '', 0, 48); //add by hz
frxObjects.RegisterObject1(TfrxRadioGroupControl, nil, '', '', 0, 49); //add by hz
frxObjects.RegisterObject1(TfrxDBGridControl, nil, '', '', 0, 50); //add by hz
so , i edit the form frxDesgn and edit the ObjectsTB1's with ,then these components work OK,
but now I went to add TDataSource as TfrxTDataSourceControl ,there some difficulty for me, can someone help to write this code for me?
Thanks!
hz
from 上海
Comments
query -->dbgrid--->"look the result"-->Preview--->print
Example:
type
TfrxDBGridControl = class(TfrxDialogControl)
private
FDBGrid: TDBGrid;
FDataSource: TDataSource;
FDataSet: TfrxDBDataSet;
procedure SetDataSet(const Value: TfrxDBDataSet);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property DataSet: TfrxDBDataSet read FDataSet write SetDataSet;
end;
constructor TfrxDBGridControl.Create(AOwner: TComponent);
begin
inherited;
FDBGrid := TDBGrid.Create(nil);
InitControl(FDBGrid);
FDataSource := TDataSource.Create(nil);
FDBGrid.DataSource := FDataSource;
Width := 185;
Height := 105;
end;
destructor TfrxDBGridControl.Destroy;
begin
FDataSource.Free;
inherited;
end;
procedure TfrxDBGridControl.SetDataSet(const Value: TfrxDBDataSet);
begin
FDataSet := Value;
if Value <> nil then
FDataSource.DataSet := Value.GetDataset;
end;
tell you a good tidings
Our company decide buy the "FastReport 3 Enterprise Edition"
next week our manager will look The Demo of "FastReport 3.14 Enterprise Edition"