TClientDataSet - MIDAS

Комментарии

• don

  December 2003 отредактировано 19:26

  А в чем собственно дело, примеры есть, руки есть.
• lvi

  December 2003 отредактировано 19:26

  У меня чего то не получается , я хочу сделать не ввиде постоянного компонента , а тока в данном приложении , могу набросать.
  Даже самое простое почему то ругается.
  
  Я делал по примеру.
• don

  December 2003 отредактировано 19:26

  Как ругается?
  Пришли код, может помогу.
• lvi

  December 2003 отредактировано 19:26

  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 отредактировано 19:26

  Дой своё мыло или асю если есть
• don

  December 2003 отредактировано 19:26

  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 отредактировано 19:26

  Это не помогает
• lvi

  December 2003 отредактировано 19:26

  Всё заработало - ок - ты меня заставил разобраться - СПАСИБО
  
  Лень раньше родилася нас.