home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / DEMO01.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-18  |  1KB  |  68 lines
  1. unit demo01;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, CBBand, Cb_Types,
  8.   CBReport, Cb_lab, CBSystem;
  9.  
  10. type
  11.   TFBDemo01 = class(TForm)
  12.     Table1SpeciesNo: TFloatField;
  13.     Table1Category: TStringField;
  14.     Table1Common_Name: TStringField;
  15.     Table1SpeciesName: TStringField;
  16.     Table1Lengthcm: TFloatField;
  17.     Table1Length_In: TFloatField;
  18.     Table1Notes: TMemoField;
  19.     Table1Graphic: TGraphicField;
  20.     DBNavigator: TDBNavigator;
  21.     Panel1: TPanel;
  22.     DataSource1: TDataSource;
  23.     Table1: TTable;
  24.     CBReport1: TCBReport;
  25.     PageHeader: TCBBand;
  26.     Title: TCBBand;
  27.     Master: TCBBand;
  28.     Label9: TLabel;
  29.     DBEdit1: TDBEdit;
  30.     Label10: TLabel;
  31.     DBEdit2: TDBEdit;
  32.     Label11: TLabel;
  33.     DBEdit3: TDBEdit;
  34.     Label12: TLabel;
  35.     DBEdit4: TDBEdit;
  36.     Label13: TLabel;
  37.     DBEdit5: TDBEdit;
  38.     Label15: TLabel;
  39.     DBMemo1: TDBMemo;
  40.     Label16: TLabel;
  41.     DBImage1: TDBImage;
  42.     CB_Label1: TCB_Label;
  43.     CB_Label2: TCB_Label;
  44.     PageFooter: TCBBand;
  45.     CB_Label3: TCB_Label;
  46.     CBSystem1: TCBSystem;
  47.     Label1: TLabel;
  48.     CBSystem2: TCBSystem;
  49.     procedure FormCreate(Sender: TObject);
  50.   private
  51.     { private declarations }
  52.   public
  53.     { public declarations }
  54.   end;
  55.  
  56. var
  57.   FBDemo01: TFBDemo01;
  58.  
  59. implementation
  60.  
  61. {$R *.DFM}
  62.  
  63. procedure TFBDemo01.FormCreate(Sender: TObject);
  64. begin
  65.   Table1.Open;
  66. end;
  67.  
  68. end.