home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / CASCCONT.ZIP / CASCMAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-02  |  2.1 KB  |  82 lines
  1. unit CascMain;
  2. {
  3.   Version 1.0
  4.   (C) 1996 Dieter Menne, Biomed Software, Tⁿbingen
  5.   Demo program fⁿr CascCont, cascaded controls;
  6.   Compiled units of CascCont may be freely distributed.
  7.   For source code, contact Dieter Menne, 100016.2125@compuserve.com
  8.  
  9.   Demo uses DBCascDateEdit which is derived from:
  10.  
  11.    Shareware component  TDateEdit Component V1.6
  12.    Copyright (c) 1996  Wes Kinnett
  13.    Email: 103332.1313@compuserve.com
  14.  
  15.    **COMPUSERVE REGISTRATION ID**
  16.    16&32 Bit W/O Source:   SWREG ID 12683
  17.    16&32 Bit With Source:    SWREG ID 12684
  18.  
  19.   This component runs in the IDE only; if you remove  the
  20.   component DateEdit1 from the from, this Demo program should
  21.   run stand-alone.
  22.  }
  23.  
  24. interface
  25.  
  26. uses
  27.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  28.   Dialogs, DBTables, DB, Pxtable, StdCtrls, DBCtrls, ExtCtrls,
  29.   CascCont, Buttons, Dblup2, Mask, ComCtrls, DbRXEdit,
  30.   Menus, dbdateed ;
  31.  
  32. type
  33.   TForm1 = class(TForm)
  34.     TeleTable: TPXTable;
  35.     TeleSource: TDataSource;
  36.     DBNavigator1: TDBNavigator;
  37.     CheckTop: TDBCascCheckBox;
  38.     TeleTableHRBrenn: TSmallintField;
  39.     ChoiceTable: TTable;
  40.     ChoiceSource: TDataSource;
  41.     ChoiceTableID: TSmallintField;
  42.     ChoiceTableHBrenn: TStringField;
  43.     TeleTableDATE: TDateField;
  44.     TeleTableDescript: TStringField;
  45.     Panel1: TPanel;
  46.     ChoiceTableBeschwerden: TStringField;
  47.     TeleTableTopItem: TBooleanField;
  48.     TeleTableSubItem: TBooleanField;
  49.     TeleTableSubSubItem: TBooleanField;
  50.     Edit1: TDBCascEdit;
  51.     Combo1: TDBCascLookupCombo;
  52.     CheckSub: TDBCascCheckBox;
  53.     CheckSubSub: TDBCascCheckBox;
  54.     CheckGroup: TDBCascCheckGroup;
  55.     TeleTableBeArtMemo: TMemoField;
  56.     DBCascMemo1: TDBCascMemo;
  57.     Label1: TLabel;
  58.     Label2: TLabel;
  59.     Edit2: TDBCascEdit;
  60.     TeleTableMgAspirin: TSmallintField;
  61.     Memo1: TDBCascMemo;
  62.     DateEdit1: TDBCascDateEdit;
  63.     Label3: TLabel;
  64.     Label4: TLabel;
  65.   private
  66.     { Private declarations }
  67.   public
  68.     { Public declarations }
  69.   end;
  70.  
  71. var
  72.   Form1: TForm1;
  73.  
  74. implementation
  75.  
  76. {$R *.DFM}
  77.  
  78. { No code in here, all is handled by the controls }
  79.  
  80. end.
  81.  
  82.