home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / DATAFRM2.PA_ / DATAFRM2.PA
Text File  |  1996-10-18  |  2KB  |  78 lines
  1. unit Datafrm2;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, DBTables, DBCtrls, Grids, DBGrids, RzLabel,
  8.   RzDBLbl, Mask, RzDBLnEd, RzSpnEdt, RzDBSpin, RzBtnEdt, RzDBBnEd,
  9.   RzDBLook, RzPrgres, RzDBProg, RzTrkBar, RzDBTrak, DB, RzStatus, RzDBStat,
  10.   ExtCtrls, RzPanel, RzRadGrp, RzDBRGrp;
  11.  
  12. type
  13.   TFrmData2 = class(TForm)
  14.     BtnOK: TButton;
  15.     RzDBLabel1: TRzDBLabel;
  16.     DBGrid1: TDBGrid;
  17.     DBNavigator1: TDBNavigator;
  18.     RzLabel1: TRzLabel;
  19.     TblClients: TTable;
  20.     SrcClients: TDataSource;
  21.     GrpRiskLevel: TGroupBox;
  22.     TrkRisk: TRzDBTrackBar;
  23.     GrpRisk: TRzDBRadioGroup;
  24.     TblClientsLAST_NAME: TStringField;
  25.     TblClientsFIRST_NAME: TStringField;
  26.     TblClientsADDRESS_1: TStringField;
  27.     TblClientsCITY: TStringField;
  28.     TblClientsSTATE: TStringField;
  29.     TblClientsZIP: TStringField;
  30.     TblClientsRISK_LEVEL: TStringField;
  31.     TblClientsINTERESTS: TStringField;
  32.     RzLabel9: TRzLabel;
  33.     GroupBox1: TGroupBox;
  34.     RzLabel2: TRzLabel;
  35.     RzLabel3: TRzLabel;
  36.     RzLabel4: TRzLabel;
  37.     RzLabel5: TRzLabel;
  38.     RzLabel6: TRzLabel;
  39.     RzLabel7: TRzLabel;
  40.     RzLabel8: TRzLabel;
  41.     EdtFirstName: TRzDBLineEdit;
  42.     EdtLastName: TRzDBLineEdit;
  43.     EdtAddress: TRzDBLineEdit;
  44.     EdtCity: TRzDBLineEdit;
  45.     EdtState: TRzDBLineEdit;
  46.     EdtZip: TRzDBLineEdit;
  47.     procedure FormCreate(Sender: TObject);
  48.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  54.  
  55. var
  56.   FrmData2: TFrmData2;
  57.  
  58. implementation
  59.  
  60. {$R *.DFM}
  61.  
  62. procedure TFrmData2.FormCreate(Sender: TObject);
  63. begin
  64.   TrkRisk.Hint := 'This is an RzDBTrackBar connected'#13 +
  65.                   'to the RISK_LEVEL field.  It is also'#13 +
  66.                   'using the standard box thumb style.';
  67.   GrpRisk.Hint := 'This is an RzDBRadioGroup, without'#13 +
  68.                   'a border, also connected to the'#13 +
  69.                   'RISK_LEVEL field.';
  70. end;
  71.  
  72. procedure TFrmData2.FormClose(Sender: TObject; var Action: TCloseAction);
  73. begin
  74.   Action := caFree;
  75. end;
  76.  
  77. end.
  78.