开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
LookupForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

LookupForm.pas：源码内容
  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.