home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / CASCCONT.ZIP / TESTCASC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-23  |  1.4 KB  |  58 lines
  1. unit CascMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DBTables, DB, Pxtable, StdCtrls, DBCtrls, ExtCtrls,
  8.   CascCont, Buttons, Dblup2, Mask, ComCtrls, TDBREdit, DbRXEdit,
  9.   Menus ;
  10.  
  11. type
  12.   TForm1 = class(TForm)
  13.     TeleTable: TPXTable;
  14.     TeleSource: TDataSource;
  15.     DBNavigator1: TDBNavigator;
  16.     CheckTop: TDBCascCheckBox;
  17.     TeleTableHRBrenn: TSmallintField;
  18.     ChoiceTable: TTable;
  19.     ChoiceSource: TDataSource;
  20.     ChoiceTableID: TSmallintField;
  21.     ChoiceTableHBrenn: TStringField;
  22.     TeleTableDATE: TDateField;
  23.     TeleTableDescript: TStringField;
  24.     Panel1: TPanel;
  25.     ChoiceTableBeschwerden: TStringField;
  26.     TeleTableTopItem: TBooleanField;
  27.     TeleTableSubItem: TBooleanField;
  28.     TeleTableSubSubItem: TBooleanField;
  29.     Edit1: TDBCascEdit;
  30.     Combo1: TDBCascLookupCombo;
  31.     CheckSub: TDBCascCheckBox;
  32.     CheckSubSub: TDBCascCheckBox;
  33.     CheckGroup: TDBCascCheckGroup;
  34.     TeleTableBeArtMemo: TMemoField;
  35.     Memo1: TDBCascMemo;
  36.     DBCascMemo1: TDBCascMemo;
  37.     Label1: TLabel;
  38.     Label2: TLabel;
  39.     Edit2: TDBCascEdit;
  40.     TeleTableMgAspirin: TSmallintField;
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. var
  48.   Form1: TForm1;
  49.  
  50. implementation
  51.  
  52. {$R *.DFM}
  53.  
  54. { No code in here, all is handled by the controls }
  55.  
  56. end.
  57.  
  58.