home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / DBFIELD.INT < prev    next >
Text File  |  1995-05-26  |  1KB  |  46 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   DBFIELD.PAS 1.00                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit DbField;
  13.   {-Field information form for TDBFieldList property editor}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  19.   Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, AdDataB;
  20.  
  21. type
  22.   TFrmFieldInfo = class(TForm)
  23.     OkBtn: TBitBtn;
  24.     CancelBtn: TBitBtn;
  25.     HelpBtn: TBitBtn;
  26.     GroupBox1: TGroupBox;
  27.     Label1: TLabel;
  28.     Label2: TLabel;
  29.     StrTypeCheckBox: TCheckBox;
  30.     FieldNameEdit: TEdit;
  31.     MaxLenEdit: TEdit;
  32.     procedure OkBtnClick(Sender: TObject);
  33.     procedure StrTypeCheckBoxClick(Sender: TObject);
  34.   private
  35.     EditData : TDBFieldInfo;
  36.     RecSize  : Word;
  37.     DBFields : TDBFieldList;
  38.  
  39.   public
  40.     procedure Initialize(FieldInfo : TDBFieldInfo; Size : Word; Fields : TDBFieldList);
  41.       {-Initialize dialog fields with values from FieldInfo}
  42.     procedure AcceptValues;
  43.       {-Place values from dialog fields into EditData}
  44.   end;
  45.  
  46.