📄 uvendor.pas
字号:
unit uvendor;
interface
uses
Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, upub1, dxExEdtr, ActnList,
Menus, ImgList, DB,StdCtrls, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, Buttons, DBCtrls, Mask, ToolWin,
dxDBTLCl, dxGrClms;
type
TfmVendor = class(Tfmpub1)
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
DBCheckBox1: TDBCheckBox;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Label12: TLabel;
DBEdit12: TDBEdit;
Label13: TLabel;
DBEdit13: TDBEdit;
Label14: TLabel;
DBEdit14: TDBEdit;
DBGrid1VendorID: TdxDBGridMaskColumn;
DBGrid1ShortName: TdxDBGridMaskColumn;
DBGrid1FullName: TdxDBGridMaskColumn;
DBGrid1Status: TdxDBGridCheckColumn;
DBGrid1Grade: TdxDBGridMaskColumn;
DBGrid1Country: TdxDBGridMaskColumn;
DBGrid1City: TdxDBGridMaskColumn;
DBGrid1Address: TdxDBGridMaskColumn;
DBGrid1PostCode: TdxDBGridMaskColumn;
DBGrid1Contact: TdxDBGridMaskColumn;
DBGrid1Tel: TdxDBGridMaskColumn;
DBGrid1Fax: TdxDBGridMaskColumn;
DBGrid1Email: TdxDBGridMaskColumn;
DBGrid1Web: TdxDBGridMaskColumn;
DBGrid1Remark: TdxDBGridMaskColumn;
DBGrid1Creator: TdxDBGridMaskColumn;
DBGrid1CreateDate: TdxDBGridDateColumn;
DBGrid1Updator: TdxDBGridMaskColumn;
DBGrid1UpdateDate: TdxDBGridDateColumn;
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmVendor: TfmVendor;
implementation
uses udmbase;
{$R *.dfm}
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -