toggle menu
Быстрые отчеты форум
Быстрые отчеты форум
Разделы
Дискуссии
Войти
·
Регистрация
Войти
·
Регистрация
Разделы
Дискуссии
Активность
Войти
·
Регистрация
×
Начало
›
Разработки Fast Reports
›
FastReport 2.xx VCL
TClientDataSet - MIDAS
lvi
December 2003
отредактировано 04:32
Раздел:
FastReport 2.xx VCL
Нужна компонета TfrClientDataSet к FastReport для доступа из дизайнера
Комментарии
don
December 2003
отредактировано 04:32
А в чем собственно дело, примеры есть, руки есть.
lvi
December 2003
отредактировано 04:32
У меня чего то не получается , я хочу сделать не ввиде постоянного компонента , а тока в данном приложении , могу набросать.
Даже самое простое почему то ругается.
Я делал по примеру.
don
December 2003
отредактировано 04:32
Как ругается?
Пришли код, может помогу.
lvi
December 2003
отредактировано 04:32
unit FR_CDS;
interface
{$I FR.inc}
uses
FR_Class, DB, DBClient, FR_DBSet;
type
TfrCDSDataset = class(TfrNonVisualControl)
protected
FDataSet: TCustomClientDataSet;
FDataSource: TDataSource;
FDBDataSet: TfrDBDataset;
public
constructor Create; override;
destructor Destroy; override;
end;
TfrClientDataSet = class(TfrCDSDataSet)
private
FClientDataSet: TClientDataSet;
public
constructor Create; override;
end;
implementation
{ TfrCDSDataset }
constructor TfrCDSDataset.Create;
begin
inherited Create;
FDataSource := TDataSource.Create(frDialogForm);
FDataSource.DataSet := nil;
FDBDataSet := TfrDBDataSet.Create(frDialogForm);
FDBDataSet.DataSource := FDataSource;
Flags := Flags or flDontUndo;
end;
destructor TfrCDSDataset.Destroy;
begin
FDBDataset.Free;
FDataSource.Free;
FDataSet.Free;
inherited Destroy;
end;
{ TfrClientDataSet }
constructor TfrClientDataSet.Create;
begin
inherited Create;
FClientDataSet:= TClientDataSet.Create(frDialogForm);
FDataSet := FClientDataSet;
FDataSource.DataSet := FDataSet;
Component := FClientDataSet;
BaseName := 'Table';
Bmp.LoadFromResourceName(hInstance, 'FR_CDS');
end;
initialization
frRegisterControl(TfrClientDataSet,nil,'frClientDataSet');
finalization
frUnRegisterObject(TfrClientDataSet);
end.
lvi
December 2003
отредактировано 04:32
Дой своё мыло или асю если есть
don
December 2003
отредактировано 04:32
Bmp надо объявить и создать:
var
Bmp: TBitmap;
initialization
Bmp := TBitmap.Create;
Bmp.LoadFromResourceName(hInstance, 'FR_...');
frRegisterControl(Tfr..., Bmp, IntToStr('Добавить CLDS'));
finalization
frUnRegisterObject(Tfr...);
Bmp.Free;
lvi
December 2003
отредактировано 04:32
Это не помогает
lvi
December 2003
отредактировано 04:32
Всё заработало - ок - ты меня заставил разобраться - СПАСИБО
Лень раньше родилася нас.
Оставить комментарий
Paragraph
H2
Toggle Heading Menu
List Unordered
Toggle Heading Menu
Quote
Toggle Heading Menu
Paragraph
Paragraph
H2
Heading 2
H3
Heading 3
H4
Heading 4
H5
Heading 5
List Unordered
Bulleted List
List Ordered
Ordered List
Indent
Indent
Outdent
Outdent
Quote
Quote
Paragraph Code Block
Code Block
Spoiler
Spoiler
Bold
Italic
Strikethrough
Paragraph Code Block
Link
Close
Emoji
Embed
Начало
•
FastReport 2.xx VCL
Комментировать как ...
Комментарии
Даже самое простое почему то ругается.
Я делал по примеру.
Пришли код, может помогу.
interface
{$I FR.inc}
uses
FR_Class, DB, DBClient, FR_DBSet;
type
TfrCDSDataset = class(TfrNonVisualControl)
protected
FDataSet: TCustomClientDataSet;
FDataSource: TDataSource;
FDBDataSet: TfrDBDataset;
public
constructor Create; override;
destructor Destroy; override;
end;
TfrClientDataSet = class(TfrCDSDataSet)
private
FClientDataSet: TClientDataSet;
public
constructor Create; override;
end;
implementation
{ TfrCDSDataset }
constructor TfrCDSDataset.Create;
begin
inherited Create;
FDataSource := TDataSource.Create(frDialogForm);
FDataSource.DataSet := nil;
FDBDataSet := TfrDBDataSet.Create(frDialogForm);
FDBDataSet.DataSource := FDataSource;
Flags := Flags or flDontUndo;
end;
destructor TfrCDSDataset.Destroy;
begin
FDBDataset.Free;
FDataSource.Free;
FDataSet.Free;
inherited Destroy;
end;
{ TfrClientDataSet }
constructor TfrClientDataSet.Create;
begin
inherited Create;
FClientDataSet:= TClientDataSet.Create(frDialogForm);
FDataSet := FClientDataSet;
FDataSource.DataSet := FDataSet;
Component := FClientDataSet;
BaseName := 'Table';
Bmp.LoadFromResourceName(hInstance, 'FR_CDS');
end;
initialization
frRegisterControl(TfrClientDataSet,nil,'frClientDataSet');
finalization
frUnRegisterObject(TfrClientDataSet);
end.
var
Bmp: TBitmap;
initialization
Bmp := TBitmap.Create;
Bmp.LoadFromResourceName(hInstance, 'FR_...');
frRegisterControl(Tfr..., Bmp, IntToStr('Добавить CLDS'));
finalization
frUnRegisterObject(Tfr...);
Bmp.Free;
Лень раньше родилася нас.