📄 dmunit.~dfm
字号:
object DM: TDM
OldCreateOrder = False
OnCreate = DataModuleCreate
Left = 203
Top = 168
Height = 402
Width = 510
object conn: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\HY.mdb;Persist' +
' Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 16
Top = 16
end
object company: TADOQuery
Connection = conn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#20844#21496#21517#31216)
Left = 16
Top = 64
object companyDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object companyDSDesigner2: TWideStringField
FieldName = #21517#31216
Size = 50
end
object companyDSDesigner1: TWideStringField
FieldName = #21517#31216'1'
Size = 14
end
object companyDSDesigner3: TWideStringField
FieldName = #21035#21517
Size = 14
end
object companyDSDesigner4: TWideStringField
FieldName = #30005#35805
Size = 254
end
object companyDSDesigner5: TWideStringField
FieldName = #20256#30495
end
object companyDSDesigner6: TWideStringField
FieldName = #22320#22336
Size = 254
end
object companyLogo: TWideStringField
FieldName = 'Logo'
Size = 100
end
end
object dscompany: TDataSource
DataSet = company
OnDataChange = dscompanyDataChange
Left = 72
Top = 64
end
object User: TADOQuery
Connection = conn
Parameters = <>
SQL.Strings = (
'select * from '#29992#25143#26435#38480)
Left = 16
Top = 112
object UserDSDesigner: TAutoIncField
FieldName = #29992#25143#32534#21495
ReadOnly = True
end
object UserDSDesigner2: TWideStringField
FieldName = #29992#25143#21517#31216
Size = 8
end
object UserDSDesigner3: TWideStringField
FieldName = #37096#38376
Size = 15
end
object UserDSDesigner4: TWideStringField
FieldName = #23494#30721
Size = 15
end
object UserZY110: TBooleanField
FieldName = 'ZY110'
end
object UserZY120: TBooleanField
FieldName = 'ZY120'
end
object UserZY130: TBooleanField
FieldName = 'ZY130'
end
object UserZY210: TBooleanField
FieldName = 'ZY210'
end
object UserZY220: TBooleanField
FieldName = 'ZY220'
end
object UserZY310: TBooleanField
FieldName = 'ZY310'
end
object UserCX110: TBooleanField
FieldName = 'CX110'
end
object UserCX120: TBooleanField
FieldName = 'CX120'
end
object UserCX210: TBooleanField
FieldName = 'CX210'
end
object UserCX220: TBooleanField
FieldName = 'CX220'
end
object UserCX310: TBooleanField
FieldName = 'CX310'
end
object UserCX320: TBooleanField
FieldName = 'CX320'
end
object UserJS110: TBooleanField
FieldName = 'JS110'
end
object UserJS210: TBooleanField
FieldName = 'JS210'
end
object UserJS220: TBooleanField
FieldName = 'JS220'
end
object UserJS230: TBooleanField
FieldName = 'JS230'
end
object UserJS240: TBooleanField
FieldName = 'JS240'
end
object UserJS310: TBooleanField
FieldName = 'JS310'
end
object UserJS320: TBooleanField
FieldName = 'JS320'
end
object UserJS410: TBooleanField
FieldName = 'JS410'
end
object UserJS420: TBooleanField
FieldName = 'JS420'
end
object UserJS510: TBooleanField
FieldName = 'JS510'
end
object UserWH110: TBooleanField
FieldName = 'WH110'
end
object UserWH120: TBooleanField
FieldName = 'WH120'
end
object UserWH210: TBooleanField
FieldName = 'WH210'
end
object UserWH310: TBooleanField
FieldName = 'WH310'
end
object UserWH320: TBooleanField
FieldName = 'WH320'
end
object UserWH330: TBooleanField
FieldName = 'WH330'
end
object UserWH340: TBooleanField
FieldName = 'WH340'
end
object UserWH350: TBooleanField
FieldName = 'WH350'
end
object UserWH360: TBooleanField
FieldName = 'WH360'
end
object UserWH410: TBooleanField
FieldName = 'WH410'
end
object UserWH420: TBooleanField
FieldName = 'WH420'
end
object UserFW110: TBooleanField
FieldName = 'FW110'
end
object UserFW120: TBooleanField
FieldName = 'FW120'
end
object UserFW210: TBooleanField
FieldName = 'FW210'
end
object UserFW220: TBooleanField
FieldName = 'FW220'
end
object UserHelp110: TBooleanField
FieldName = 'Help110'
end
object UserDSDesigner5: TWideStringField
FieldName = #21019#24314#26085#26399
Size = 50
end
object UserDSDesigner6: TWideStringField
FieldName = #21019#24314#26102#38388
Size = 8
end
end
object dsUser: TDataSource
DataSet = User
Left = 72
Top = 112
end
object UserLogin: TADOQuery
Connection = conn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#29992#25143#30331#38470)
Left = 16
Top = 160
object UserLoginDSDesigner: TAutoIncField
FieldName = #29992#25143#32534#21495
ReadOnly = True
end
object UserLoginDSDesigner2: TWideStringField
FieldName = #29992#25143#21517#31216
Size = 12
end
object UserLoginDSDesigner3: TWideStringField
FieldName = #30331#38470#26085#26399
Size = 50
end
object UserLoginDSDesigner4: TWideStringField
FieldName = #30331#38470#26102#38388
Size = 8
end
object UserLoginDSDesigner5: TWideStringField
FieldName = #36864#20986#26085#26399
Size = 50
end
object UserLoginDSDesigner6: TWideStringField
FieldName = #36864#20986#26102#38388
Size = 8
end
end
object dsUserLogin: TDataSource
DataSet = UserLogin
Left = 72
Top = 160
end
object WLType: TADOTable
Connection = conn
TableName = #29289#27969#26041#24335
Left = 16
Top = 216
object WLTypeDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object WLTypeDSDesigner2: TWideStringField
FieldName = #21517#31216
Size = 14
end
object WLTypeDSDesigner3: TDateTimeField
FieldName = #26085#26399
end
object WLTypeDSDesigner4: TWideStringField
FieldName = #25805#20316#20154
Size = 10
end
end
object dsWLType: TDataSource
DataSet = WLType
Left = 80
Top = 216
end
object WTDW: TADOTable
Connection = conn
CursorType = ctStatic
TableName = #22996#25176#21333#20301
Left = 16
Top = 264
object WTDWDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object WTDWDSDesigner2: TWideStringField
FieldName = #21333#20301#31616#31216
Size = 14
end
object WTDWDSDesigner3: TWideStringField
FieldName = #21333#20301#20840#31216
Size = 50
end
object WTDWDSDesigner4: TWideStringField
FieldName = #30005#35805
Size = 50
end
object WTDWDSDesigner5: TWideStringField
FieldName = #32852#31995#20154
Size = 50
end
object WTDWDSDesigner6: TWideStringField
FieldName = #32852#31995#22320#22336
Size = 50
end
object WTDWDSDesigner7: TDateTimeField
FieldName = #21019#24314#26085#26399
end
object WTDWDSDesigner8: TWideStringField
FieldName = #25805#20316#21592
Size = 10
end
end
object dsWTDW: TDataSource
DataSet = WTDW
Left = 80
Top = 264
end
object JYDW: TADOTable
Connection = conn
CursorType = ctStatic
TableName = #32463#33829#21333#20301
Left = 16
Top = 312
object JYDWDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object JYDWDSDesigner2: TWideStringField
FieldName = #21517#31216
Size = 14
end
object JYDWDSDesigner3: TDateTimeField
FieldName = #21019#24314#26085#26399
end
object JYDWDSDesigner4: TWideStringField
FieldName = #25805#20316#20154
Size = 10
end
end
object dsJYDW: TDataSource
DataSet = JYDW
Left = 80
Top = 312
end
object DGMC: TADOTable
Connection = conn
CursorType = ctStatic
TableName = #21040#28207#21517#31216
Left = 136
object DGMCDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object DGMCDSDesigner2: TWideStringField
FieldName = #21517#31216
Size = 14
end
object DGMCDSDesigner3: TDateTimeField
FieldName = #21019#24314#26085#26399
end
object DGMCDSDesigner4: TWideStringField
FieldName = #25805#20316#20154
Size = 10
end
end
object dsDGMC: TDataSource
DataSet = DGMC
Left = 184
end
object CKMC: TADOTable
Connection = conn
CursorType = ctStatic
TableName = #20179#24211#21517#31216
Left = 136
Top = 48
object CKMCDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object CKMCDSDesigner2: TWideStringField
FieldName = #21517#31216
end
object CKMCDSDesigner3: TDateTimeField
FieldName = #21019#24314#26085#26399
end
object CKMCDSDesigner4: TWideStringField
FieldName = #25805#20316#20154
Size = 10
end
end
object dsCKMC: TDataSource
DataSet = CKMC
Left = 184
Top = 48
end
object CLZL: TADOQuery
Connection = conn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#36710#36742#36164#26009)
Left = 136
Top = 104
object CLZLDSDesigner: TAutoIncField
FieldName = #24207#21495
ReadOnly = True
end
object CLZLDSDesigner2: TWideStringField
FieldName = #22995#21517
Size = 14
end
object CLZLDSDesigner3: TWideStringField
FieldName = #36710#29260#21495#30721
end
object CLZLDSDesigner4: TWideStringField
FieldName = #30005#35805#21495#30721
Size = 30
end
object CLZLDSDesigner5: TWideStringField
FieldName = #25163#26426#21495#30721
Size = 25
end
object CLZLDSDesigner6: TWideStringField
FieldName = #32852#31995#22320#22336
Size = 50
end
object CLZLDSDesigner7: TWideStringField
FieldName = #37038#25919#32534#30721
Size = 6
end
object CLZLDSDesigner8: TWideStringField
FieldName = #36523#20221#35777#21495#30721
Size = 18
end
object CLZLDSDesigner9: TWideStringField
FieldName = #24037#20316#21333#20301
Size = 26
end
object CLZLDSDesigner10: TWideStringField
FieldName = #25152#23646#36710#38431
end
end
object CDMC: TADOTable
Connection = conn
CursorType = ctStatic
TableName = #36710#38431#21517#31216
Left = 136
Top = 160
object CDMCDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object CDMCDSDesigner2: TWideStringField
FieldName = #21517#31216
end
end
object dsCDMC: TDataSource
DataSet = CDMC
Left = 184
Top = 160
end
object QryTemp: TADODataSet
Connection = conn
Parameters = <>
Left = 232
Top = 96
end
object KHZL: TADOQuery
Connection = conn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#23458#25143#26126#32454#36164#26009)
Left = 136
Top = 216
object KHZLDSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object KHZLDSDesigner2: TWideStringField
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -