Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
LookupForm.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 1k
Category:

Delphi VCL

Development Platform:

Delphi

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