home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / Design / UAddRange.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-09-26  |  1.2 KB  |  56 lines
  1. unit UAddRange;
  2.  
  3. interface
  4.  
  5. uses
  6.   Forms,
  7.   StdCtrls, UFLxMessages, db, Buttons, Controls, Classes, UXlsDB, SysUtils;
  8.  
  9. type
  10.   TAddRange = class(TForm)
  11.     cbName: TComboBox;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     edRange: TEdit;
  15.     BtnOk: TBitBtn;
  16.     BitBtn2: TBitBtn;
  17.     procedure cbNameChange(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     procedure InitData(const RangeTxt: string; const aDataModule: TComponent);
  22.     { Public declarations }
  23.   end;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. { TAddRange }
  30.  
  31. procedure TAddRange.InitData(const RangeTxt: string; const aDataModule: TComponent);
  32. var
  33.   i: integer;
  34.   IDs: IXlsDataSet;
  35. begin
  36.   edRange.Text:=RangeTxt;
  37.  
  38.   cbName.Text:='';
  39.   BtnOk.Enabled:=false;
  40.   cbName.Items.Clear;
  41.   for i:=0 to aDataModule.ComponentCount-1 do
  42.   begin
  43.     if (aDataModule.Components[i]is TDataSet) then
  44.      cbName.Items.Add(DataSetStr+(aDataModule.Components[i] as TDataSet).Name+DataSetStr);
  45.     if Supports(aDataModule.Components[i], IXlsDataSet, IDs) then
  46.      cbName.Items.Add(DataSetStr+IDs.DsName+DataSetStr);
  47.   end;
  48. end;
  49.  
  50. procedure TAddRange.cbNameChange(Sender: TObject);
  51. begin
  52.   BtnOk.Enabled:=cbName.Text<>'';
  53. end;
  54.  
  55. end.
  56.