home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / Duck Report / _SETUP.1 / FOrder.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-05-12  |  849 b   |  47 lines
  1. unit FOrder;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBTables, StdCtrls, DBCtrls;
  8.  
  9. type
  10.   TFormOrderNo = class(TForm)
  11.     Table: TTable;
  12.     DataSource: TDataSource;
  13.     DBLookupListBox1: TDBLookupListBox;
  14.     BOK: TButton;
  15.     BCancel: TButton;
  16.     TableOrderNo: TFloatField;
  17.     procedure BOKClick(Sender: TObject);
  18.     procedure BCancelClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.       dOrder:    Double;
  23.   end;
  24.  
  25. var
  26.   FormOrderNo: TFormOrderNo;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TFormOrderNo.BOKClick(Sender: TObject);
  33. begin
  34.     dOrder    := TableOrderNo.Value;
  35.   Close;
  36.     ModalResult    := mrOK;
  37. end;
  38.  
  39. procedure TFormOrderNo.BCancelClick(Sender: TObject);
  40. begin
  41.     dOrder    := 0;
  42.   Close;
  43.     ModalResult    := mrCancel;
  44. end;
  45.  
  46. end.
  47.