📄 dmunit.pas
字号:
{ |<PRE>
================================================================================
* 软件名称：
* 单元名称：数据模块窗体
* 单元版本：V1.0
* 单元作者：cm991 (cm@ytht.net)
* 备 注：开发完成
* 开发平台：Access2000 + windows2000 + Delphi7
* 兼容测试：
* 本 地 化：
* 更新记录：2003.03.16 V1.0
* 创建单元
================================================================================
|</PRE>}
unit DMUnit;
interface
uses
messages, windows, SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
conn: TADOConnection;
company: TADOQuery;
dscompany: TDataSource;
companyDSDesigner: TAutoIncField;
companyDSDesigner2: TWideStringField;
companyDSDesigner1: TWideStringField;
companyDSDesigner3: TWideStringField;
companyDSDesigner4: TWideStringField;
companyDSDesigner5: TWideStringField;
companyDSDesigner6: TWideStringField;
companyLogo: TWideStringField;
User: TADOQuery;
dsUser: TDataSource;
UserDSDesigner: TAutoIncField;
UserDSDesigner2: TWideStringField;
UserDSDesigner3: TWideStringField;
UserDSDesigner4: TWideStringField;
UserZY110: TBooleanField;
UserZY120: TBooleanField;
UserZY130: TBooleanField;
UserZY210: TBooleanField;
UserZY220: TBooleanField;
UserZY310: TBooleanField;
UserCX110: TBooleanField;
UserCX120: TBooleanField;
UserCX210: TBooleanField;
UserCX220: TBooleanField;
UserCX310: TBooleanField;
UserCX320: TBooleanField;
UserJS110: TBooleanField;
UserJS210: TBooleanField;
UserJS220: TBooleanField;
UserJS230: TBooleanField;
UserJS240: TBooleanField;
UserJS310: TBooleanField;
UserJS320: TBooleanField;
UserJS410: TBooleanField;
UserJS420: TBooleanField;
UserJS510: TBooleanField;
UserWH110: TBooleanField;
UserWH120: TBooleanField;
UserWH210: TBooleanField;
UserWH310: TBooleanField;
UserWH320: TBooleanField;
UserWH330: TBooleanField;
UserWH340: TBooleanField;
UserWH350: TBooleanField;
UserWH360: TBooleanField;
UserWH410: TBooleanField;
UserWH420: TBooleanField;
UserFW110: TBooleanField;
UserFW120: TBooleanField;
UserFW210: TBooleanField;
UserFW220: TBooleanField;
UserHelp110: TBooleanField;
UserDSDesigner5: TWideStringField;
UserDSDesigner6: TWideStringField;
UserLogin: TADOQuery;
dsUserLogin: TDataSource;
UserLoginDSDesigner: TAutoIncField;
UserLoginDSDesigner2: TWideStringField;
UserLoginDSDesigner3: TWideStringField;
UserLoginDSDesigner4: TWideStringField;
UserLoginDSDesigner5: TWideStringField;
UserLoginDSDesigner6: TWideStringField;
WLType: TADOTable;
dsWLType: TDataSource;
WLTypeDSDesigner: TAutoIncField;
WLTypeDSDesigner2: TWideStringField;
WLTypeDSDesigner3: TDateTimeField;
WLTypeDSDesigner4: TWideStringField;
WTDW: TADOTable;
dsWTDW: TDataSource;
WTDWDSDesigner: TAutoIncField;
WTDWDSDesigner2: TWideStringField;
WTDWDSDesigner3: TWideStringField;
WTDWDSDesigner4: TWideStringField;
WTDWDSDesigner5: TWideStringField;
WTDWDSDesigner6: TWideStringField;
WTDWDSDesigner7: TDateTimeField;
WTDWDSDesigner8: TWideStringField;
JYDW: TADOTable;
dsJYDW: TDataSource;
JYDWDSDesigner: TAutoIncField;
JYDWDSDesigner2: TWideStringField;
JYDWDSDesigner3: TDateTimeField;
JYDWDSDesigner4: TWideStringField;
DGMC: TADOTable;
dsDGMC: TDataSource;
DGMCDSDesigner: TAutoIncField;
DGMCDSDesigner2: TWideStringField;
DGMCDSDesigner3: TDateTimeField;
DGMCDSDesigner4: TWideStringField;
CKMC: TADOTable;
dsCKMC: TDataSource;
CKMCDSDesigner: TAutoIncField;
CKMCDSDesigner2: TWideStringField;
CKMCDSDesigner3: TDateTimeField;
CKMCDSDesigner4: TWideStringField;
CLZL: TADOQuery;
CLZLDSDesigner: TAutoIncField;
CLZLDSDesigner2: TWideStringField;
CLZLDSDesigner3: TWideStringField;
CLZLDSDesigner4: TWideStringField;
CLZLDSDesigner5: TWideStringField;
CLZLDSDesigner6: TWideStringField;
CLZLDSDesigner7: TWideStringField;
CLZLDSDesigner8: TWideStringField;
CLZLDSDesigner9: TWideStringField;
CLZLDSDesigner10: TWideStringField;
CDMC: TADOTable;
dsCDMC: TDataSource;
CDMCDSDesigner: TAutoIncField;
CDMCDSDesigner2: TWideStringField;
QryTemp: TADODataSet;
KHZL: TADOQuery;
KHZLDSDesigner: TAutoIncField;
KHZLDSDesigner2: TWideStringField;
KHZLDSDesigner3: TWideStringField;
KHZLDSDesigner4: TWideStringField;
KHZLDSDesigner5: TWideStringField;
KHZLDSDesigner6: TWideStringField;
CZ: TADOQuery;
dsCZ: TDataSource;
CZDSDesigner: TAutoIncField;
CZDSDesigner2: TWideStringField;
CZDSDesigner3: TWideStringField;
CZDSDesigner4: TWideStringField;
CZDSDesigner5: TWideStringField;
CZDSDesigner6: TWideStringField;
CZDSDesigner7: TWideStringField;
BJD: TADOQuery;
BJDDSDesigner: TAutoIncField;
BJDDSDesigner2: TWideStringField;
BJDDSDesigner3: TMemoField;
BJDDSDesigner4: TWideStringField;
BJDDSDesigner5: TWideStringField;
BJDDSDesigner6: TWideStringField;
HYZY: TADOQuery;
dsHYZY: TDataSource;
dsQryTemp: TDataSource;
QueryTemp: TADOQuery;
dsQueryTemp: TDataSource;
QueryTemp1: TADOQuery;
dsQueryTemp1: TDataSource;
HYMX: TADOQuery;
HYMXDSDesigner: TAutoIncField;
HYMXDSDesigner2: TWideStringField;
HYMXDSDesigner3: TDateTimeField;
HYMXDSDesigner4: TWideStringField;
HYMXDSDesigner5: TWideStringField;
HYMXDSDesigner6: TWideStringField;
HYMXDSDesigner7: TWideStringField;
HYMXDSDesigner8: TWideStringField;
HYMXDSDesigner9: TWideStringField;
HYMXDSDesigner10: TWideStringField;
HYMXDSDesigner11: TWideStringField;
HYMXDSDesigner12: TBCDField;
HYMXDSDesigner13: TBCDField;
HYMXDSDesigner14: TWideStringField;
HYMXDSDesigner15: TWideStringField;
HYMXDSDesigner16: TWideStringField;
HYMXDSDesigner17: TWideStringField;
HYMXDSDesigner18: TWideStringField;
HYMXDSDesigner19: TWideStringField;
HYMXDSDesigner20: TWideStringField;
HYMXDSDesigner21: TBCDField;
HYMXDSDesigner22: TBCDField;
HYMXDSDesigner23: TBooleanField;
HYMXDSDesigner24: TWideStringField;
JCD: TADOQuery;
dsJCD: TDataSource;
JCDDSDesigner: TAutoIncField;
JCDDSDesigner2: TDateTimeField;
JCDDSDesigner3: TWideStringField;
JCDDSDesigner4: TWideStringField;
JCDDSDesigner5: TWideStringField;
JCDDSDesigner6: TWideStringField;
JCDDSDesigner7: TWideStringField;
JCDDSDesigner8: TWideStringField;
JCDDSDesigner9: TWideStringField;
JCDDSDesigner10: TWideStringField;
JCDDSDesigner11: TWideStringField;
JCDDSDesigner12: TWideStringField;
JCDDSDesigner13: TWideStringField;
JCDDSDesigner14: TWideStringField;
JCDDSDesigner15: TWideStringField;
JCDDSDesigner16: TWideStringField;
JCDDSDesigner17: TWideStringField;
JCDDSDesigner18: TWideStringField;
JCDDSDesigner19: TWideStringField;
JCDDSDesigner20: TWideStringField;
JCDDSDesigner21: TBCDField;
JCDDSDesigner22: TBCDField;
JCDDSDesigner23: TBCDField;
JCDDSDesigner24: TBCDField;
JCDDSDesigner25: TBCDField;
JCDDSDesigner26: TBCDField;
JCDDSDesigner27: TWideStringField;
JCDDSDesigner28: TWideStringField;
JCDDSDesigner29: TMemoField;
JCDDSDesigner30: TMemoField;
JCDDSDesigner31: TWideStringField;
JCDDSDesigner32: TWideStringField;
JCDDSDesigner33: TWideStringField;
JCDDSDesigner34: TWideStringField;
JCDDSDesigner35: TWideStringField;
JCDDSDesigner36: TWideStringField;
JCDDSDesigner37: TBooleanField;
JCDDSDesigner38: TWideStringField;
JCDDSDesigner39: TDateTimeField;
JCDDSDesigner40: TBCDField;
JCDDSDesigner41: TBCDField;
JCDDSDesigner42: TWideStringField;
JCDDSDesigner43: TWideStringField;
JCDDSDesigner44: TMemoField;
JCDDSDesigner45: TMemoField;
JCDDSDesigner46: TWideStringField;
JCDDSDesigner47: TWideStringField;
JCDDSDesigner48: TBCDField;
JCDDSDesigner49: TBCDField;
JCDDSDesigner50: TBCDField;
JCDDSDesigner51: TBCDField;
JCDDSDesigner52: TBCDField;
JCDDSDesigner53: TBCDField;
JCDDSDesigner54: TBCDField;
dsCCD: TDataSource;
CCD: TADOQuery;
CCDDSDesigner: TAutoIncField;
CCDDSDesigner2: TDateTimeField;
CCDDSDesigner3: TWideStringField;
CCDDSDesigner4: TWideStringField;
CCDDSDesigner5: TWideStringField;
CCDDSDesigner6: TWideStringField;
CCDDSDesigner7: TWideStringField;
CCDDSDesigner8: TWideStringField;
CCDDSDesigner9: TWideStringField;
CCDDSDesigner10: TWideStringField;
CCDDSDesigner11: TWideStringField;
CCDDSDesigner12: TWideStringField;
CCDDSDesigner13: TWideStringField;
CCDDSDesigner14: TWideStringField;
CCDDSDesigner15: TWideStringField;
CCDDSDesigner16: TWideStringField;
CCDDSDesigner17: TWideStringField;
CCDDSDesigner18: TWideStringField;
CCDDSDesigner19: TWideStringField;
CCDDSDesigner20: TWideStringField;
CCDDSDesigner21: TBCDField;
CCDDSDesigner22: TBCDField;
CCDDSDesigner23: TBCDField;
CCDDSDesigner24: TBCDField;
CCDDSDesigner25: TBCDField;
CCDDSDesigner26: TBCDField;
CCDDSDesigner27: TWideStringField;
CCDDSDesigner28: TWideStringField;
CCDDSDesigner29: TMemoField;
CCDDSDesigner30: TMemoField;
CCDDSDesigner31: TWideStringField;
CCDDSDesigner32: TWideStringField;
CCDDSDesigner33: TWideStringField;
CCDDSDesigner34: TWideStringField;
CCDDSDesigner35: TWideStringField;
CCDDSDesigner36: TWideStringField;
CCDDSDesigner37: TBooleanField;
CCDDSDesigner38: TWideStringField;
CCDDSDesigner39: TDateTimeField;
CCDDSDesigner40: TBCDField;
CCDDSDesigner41: TBCDField;
CCDDSDesigner42: TWideStringField;
CCDDSDesigner43: TWideStringField;
CCDDSDesigner44: TMemoField;
CCDDSDesigner45: TMemoField;
CCDDSDesigner46: TWideStringField;
CCDDSDesigner47: TWideStringField;
CCDDSDesigner48: TBooleanField;
CCDDSDesigner49: TBCDField;
CCDDSDesigner50: TBCDField;
CCDDSDesigner51: TBCDField;
CCDDSDesigner52: TBCDField;
CCDDSDesigner53: TBCDField;
CCDDSDesigner54: TBCDField;
CCDDSDesigner55: TBCDField;
CCDDSDesigner56: TBCDField;
CCDDSDesigner57: TBooleanField;
CCDDSDesigner58: TWideStringField;
CKTJ: TADOTable;
dsCKTJ: TDataSource;
CKTJDSDesigner: TAutoIncField;
CKTJDSDesigner2: TDateTimeField;
CKTJDSDesigner3: TWideStringField;
CKTJDSDesigner4: TWideStringField;
CKTJDSDesigner5: TWideStringField;
CKTJDSDesigner6: TWideStringField;
CKTJDSDesigner7: TWideStringField;
CKTJDSDesigner8: TWideStringField;
CKTJDSDesigner9: TWideStringField;
CKTJDSDesigner10: TWideStringField;
CKTJDSDesigner11: TWideStringField;
CKTJDSDesigner12: TWideStringField;
CKTJDSDesigner13: TWideStringField;
CKTJDSDesigner14: TWideStringField;
CKTJDSDesigner15: TWideStringField;
CKTJDSDesigner16: TWideStringField;
CKTJDSDesigner17: TBCDField;
CKTJDSDesigner18: TBCDField;
CKTJDSDesigner19: TBCDField;
CKTJDSDesigner20: TBCDField;
CKTJDSDesigner21: TBCDField;
CKTJDSDesigner22: TBCDField;
CKTJDSDesigner23: TWideStringField;
CKTJDSDesigner24: TWideStringField;
CKTJDSDesigner25: TWideStringField;
CKTJDSDesigner26: TWideStringField;
CKTJDSDesigner27: TWideStringField;
CKTJDSDesigner28: TWideStringField;
CKTJDSDesigner29: TWideStringField;
CKTJDSDesigner30: TWideStringField;
CKTJDSDesigner31: TWideStringField;
CKTJDSDesigner32: TWideStringField;
CKTJDSDesigner33: TBooleanField;
CKTJDSDesigner34: TWideStringField;
CKTJDSDesigner35: TDateTimeField;
CKTJDSDesigner36: TBCDField;
CKTJDSDesigner37: TBCDField;
CKTJDSDesigner38: TWideStringField;
CKTJDSDesigner39: TWideStringField;
CKTJDSDesigner40: TWideStringField;
CKTJDSDesigner41: TWideStringField;
CKTJDSDesigner42: TWideStringField;
CKTJDSDesigner43: TWideStringField;
CKTJDSDesigner44: TBooleanField;
HYZYDSDesigner: TAutoIncField;
HYZYDSDesigner2: TWideStringField;
HYZYDSDesigner3: TWideStringField;
HYZYDSDesigner4: TWideStringField;
HYZYDSDesigner5: TWideStringField;
HYZYDSDesigner6: TWideStringField;
HYZYDSDesigner7: TWideStringField;
HYZYDSDesigner8: TWideStringField;
HYZYDSDesigner9: TDateTimeField;
HYZYDSDesigner10: TWideStringField;
HYZYDSDesigner11: TWideStringField;
HYZYDSDesigner12: TDateTimeField;
HYZYDSDesigner13: TWideStringField;
HYZYDSDesigner14: TWideStringField;
HYZYDSDesigner15: TWideStringField;
HYZYDSDesigner16: TWideStringField;
HYZYDSDesigner17: TWideStringField;
HYZYDSDesigner18: TWideStringField;
HYZYDSDesigner19: TWideStringField;
HYZYDSDesigner20: TWideStringField;
HYZYDSDesigner21: TWideStringField;
HYZYDSDesigner22: TWideStringField;
HYZYDSDesigner23: TWideStringField;
HYZYDSDesigner24: TWideStringField;
HYZYDSDesigner25: TWideStringField;
HYZYDSDesigner26: TDateTimeField;
HYZYDSDesigner27: TDateTimeField;
HYZYDSDesigner28: TDateTimeField;
HYZYDSDesigner29: TDateTimeField;
HYZYDSDesigner30: TMemoField;
HYZYDSDesigner31: TWideStringField;
HYZYDSDesigner32: TDateTimeField;
HYZYDSDesigner33: TMemoField;
HYZYDSDesigner34: TBooleanField;
HYZYDSDesigner35: TBooleanField;
HYZYDSDesigner36: TBooleanField;
HYZYDSDesigner37: TBooleanField;
HYZYDSDesigner38: TWideStringField;
HYZYDSDesigner39: TWideStringField;
dsImportTable: TDataSource;
ImportTable: TADOQuery;
dsBJD: TDataSource;
dsHYMX: TDataSource;
dsKHZL: TDataSource;
dsCLZL: TDataSource;
JSFD: TADOQuery;
dsJSFD: TDataSource;
JSFDDSDesigner: TAutoIncField;
JSFDDSDesigner2: TWideStringField;
JSFDDSDesigner3: TWideStringField;
JSFDDSDesigner4: TWideStringField;
JSFDDSDesigner5: TWideStringField;
JSFDDSDesigner6: TBCDField;
JSFDDSDesigner7: TWideStringField;
JSFDDSDesigner8: TWideStringField;
JSFDDSDesigner9: TDateTimeField;
JSFDDSDesigner10: TWideStringField;
JSFDDSDesigner11: TWideStringField;
JSFDDSDesigner12: TWideStringField;
JSFDa1: TBCDField;
JSFDa2: TBCDField;
JSFDa3: TBCDField;
JSFDa4: TBCDField;
JSFDa5: TBCDField;
JSFDa6: TBCDField;
JSFDa7: TBCDField;
JSFDa8: TBCDField;
JSFDa9: TBCDField;
JSFDa10: TBCDField;
JSFDa11: TBCDField;
JSFDa12: TBCDField;
JSFDa13: TBCDField;
JSFDa14: TBCDField;
JSFDa15: TBCDField;
JSFDa16: TBCDField;
JSFDa17: TBCDField;
JSFDa18: TBCDField;
JSFDa19: TBCDField;
JSFDa20: TBCDField;
JSFDa21: TBCDField;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -