home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / DBFLDLST.INT < prev    next >
Text File  |  1995-05-26  |  2KB  |  54 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                  DBFLDLST.PAS 1.00                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit DbFldLst;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, OoMisc, DbField, AdDataB;
  19.  
  20. type
  21.   TFrmDBFieldList = class(TForm)
  22.     FieldList: TListBox;
  23.     OkBtn: TBitBtn;
  24.     CancelBtn: TBitBtn;
  25.     UpBtn: TSpeedButton;
  26.     DownBtn: TSpeedButton;
  27.     HelpBtn: TBitBtn;
  28.     AddBtn: TBitBtn;
  29.     EditBtn: TBitBtn;
  30.     DeleteBtn: TBitBtn;
  31.     procedure AddBtnClick(Sender: TObject);
  32.     procedure EditBtnClick(Sender: TObject);
  33.     procedure DeleteBtnClick(Sender: TObject);
  34.     procedure OkBtnClick(Sender: TObject);
  35.     procedure FieldListDblClick(Sender: TObject);
  36.     procedure UpBtnClick(Sender: TObject);
  37.     procedure DownBtnClick(Sender: TObject);
  38.   private
  39.     EditFields : TDBFieldList;
  40.     DBFields   : TDBFieldList;
  41.  
  42.   public
  43.     constructor Create(AOwner : TComponent; Fields : TDBFieldList);
  44.     destructor Destroy; override;
  45.  
  46.     procedure EditPrim;
  47.       {-Change the values for a particular database field}
  48.     function RecSize : Word;
  49.       {-Return the size of a database record}
  50.     procedure SwapItems(I, J : Word);
  51.       {-Swap the positions of two database items}
  52.   end;
  53.  
  54.