LookupForm.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit LookupForm;
  2. interface
  3. uses
  4.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  5.   StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, ExtCtrls, DBLookup,
  6.   Grids, Mask;
  7. type
  8.   TFormLookup = class(TForm)
  9.     ScrollBox: TScrollBox;
  10.     Label1: TLabel;
  11.     EditOrderNo: TDBEdit;
  12.     Label3: TLabel;
  13.     EditSaleDate: TDBEdit;
  14.     Label4: TLabel;
  15.     EditShipToContact: TDBEdit;
  16.     Label5: TLabel;
  17.     EditShipToAddr: TDBEdit;
  18.     Label6: TLabel;
  19.     EditShipToAddr2: TDBEdit;
  20.     Label7: TLabel;
  21.     EditShipToCity: TDBEdit;
  22.     Label8: TLabel;
  23.     EditShipToState: TDBEdit;
  24.     Label9: TLabel;
  25.     EditShipToZip: TDBEdit;
  26.     Label10: TLabel;
  27.     EditShipToCountry: TDBEdit;
  28.     Label11: TLabel;
  29.     EditPaymentMethod: TDBEdit;
  30.     Label12: TLabel;
  31.     EditItemsTotal: TDBEdit;
  32.     DBNavigator: TDBNavigator;
  33.     Panel1: TPanel;
  34.     DataSourceOrders: TDataSource;
  35.     Panel2: TPanel;
  36.     QueryOrders: TQuery;
  37.     Label13: TLabel;
  38.     DataSourceCustomer: TDataSource;
  39.     TableCustomers: TTable;
  40.     DBLookupComboBox1: TDBLookupComboBox;
  41.     DBText1: TDBText;
  42.     Label2: TLabel;
  43.   private
  44.     { private declarations }
  45.   public
  46.     { public declarations }
  47.   end;
  48. var
  49.   FormLookup: TFormLookup;
  50. implementation
  51. {$R *.DFM}
  52. end.