📄 datamodule.dfm
字号:
object DM: TDM
OldCreateOrder = False
OnCreate = DataModuleCreate
Left = 41
Top = 446
Height = 244
Width = 861
object DBCnt: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Password=gauser;Persist Security Info=True;U' +
'ser ID=gauser;Initial Catalog=GA4;Data Source=dsvr;Use Procedure' +
' for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ' +
'ID=gauser;Use Encryption for Data=False;Tag with column collatio' +
'n when possible=False'
LoginPrompt = False
Mode = cmReadWrite
Provider = 'SQLOLEDB.1'
Left = 32
Top = 8
end
object tblMasterCode: TADOTable
Connection = DBCnt
CursorType = ctStatic
TableName = 'master_code'
Left = 32
Top = 96
object tblMasterCodecode: TWideStringField
DisplayLabel = #31867#21035#20195#30721
DisplayWidth = 14
FieldName = 'code'
end
object tblMasterCodecaption: TWideStringField
DisplayLabel = #25551#36848
DisplayWidth = 23
FieldName = 'caption'
Size = 50
end
object tblMasterCodenote: TWideStringField
DisplayLabel = #27880#37322
DisplayWidth = 14
FieldName = 'note'
Size = 50
end
end
object tblDetailCode: TADOTable
Connection = DBCnt
CursorType = ctStatic
IndexFieldNames = 'master_code'
MasterFields = 'code'
MasterSource = dsMasterCode
TableName = 'detail_code'
Left = 104
Top = 96
object tblDetailCodemaster_code: TWideStringField
DisplayLabel = #31867#21035#20195#30721
FieldName = 'master_code'
Visible = False
end
object tblDetailCodedetail_code: TWideStringField
DisplayLabel = #26126#32454#20195#30721
DisplayWidth = 16
FieldName = 'detail_code'
Size = 50
end
object tblDetailCodecaption: TWideStringField
DisplayLabel = #25551#36848
DisplayWidth = 15
FieldName = 'caption'
Size = 50
end
object tblDetailCodenote: TWideStringField
DisplayLabel = #27880#37322
DisplayWidth = 12
FieldName = 'note'
Size = 50
end
end
object dsMasterCode: TDataSource
AutoEdit = False
DataSet = tblMasterCode
Left = 32
Top = 152
end
object dsDetailCode: TDataSource
AutoEdit = False
DataSet = tblDetailCode
Left = 104
Top = 152
end
object tblGSMC: TADOTable
Connection = DBCnt
CursorType = ctStatic
TableName = 'gsmc'
Left = 176
Top = 96
object tblGSMCzwm: TWideStringField
DisplayLabel = #20013#25991#21517#31216
FieldName = 'zwm'
Size = 50
end
object tblGSMCywsx: TWideStringField
DisplayLabel = #33521#25991#32553#20889
FieldName = 'ywsx'
Size = 15
end
object tblGSMCywm: TWideStringField
DisplayLabel = #33521#25991#21517#31216
FieldName = 'ywm'
Size = 100
end
end
object dsGSMC: TDataSource
AutoEdit = False
DataSet = tblGSMC
Left = 176
Top = 152
end
object dsJHLB: TDataSource
AutoEdit = False
DataSet = tblJHLB
Left = 248
Top = 152
end
object tblJHLB: TADOTable
Connection = DBCnt
CursorType = ctStatic
TableName = 'jhlb'
Left = 248
Top = 96
object tblJHLBjhlbm: TWideStringField
DisplayLabel = #20117#21495#31867#21035#21517#31216
FieldName = 'jhlbm'
Size = 3
end
object tblJHLBpysx: TWideStringField
DisplayLabel = #25340#38899#32553#20889
FieldName = 'pysx'
Size = 3
end
end
object tblCLFF: TADOTable
Connection = DBCnt
CursorType = ctStatic
TableName = 'clff'
Left = 320
Top = 96
object tblCLFFclffsm: TWideStringField
DisplayLabel = #22788#29702#26041#27861#35828#26126
FieldName = 'clffsm'
Size = 28
end
object tblCLFFclffbh: TWideStringField
DisplayLabel = #22788#29702#26041#27861#32534#21495
FieldName = 'clffbh'
Size = 2
end
end
object dsCLFF: TDataSource
AutoEdit = False
DataSet = tblCLFF
Left = 320
Top = 152
end
object tblDJDA: TADOTable
Connection = DBCnt
CursorType = ctStatic
TableName = 'v_djda'
Left = 392
Top = 96
object tblDJDADAH: TWideStringField
DisplayLabel = #26723#26696#21495
FieldName = 'DAH'
ReadOnly = True
Size = 87
end
object tblDJDAJH: TWideStringField
DisplayLabel = #20117#21495
FieldName = 'JH'
Size = 14
end
object tblDJDALB: TWideStringField
DisplayLabel = #31867#21035
FieldName = 'LB'
Size = 10
end
object tblDJDAQKH: TWideStringField
DisplayLabel = #21306#22359#21495
FieldName = 'QKH'
Size = 10
end
object tblDJDAlbxh: TWideStringField
DisplayLabel = #31867#21035#24207#21495
FieldName = 'lbxh'
Size = 50
end
object tblDJDAzwbt: TWideStringField
DisplayLabel = #20013#25991#26631#39064
FieldName = 'zwbt'
Size = 100
end
object tblDJDAywbt: TWideStringField
DisplayLabel = #33521#25991#26631#39064
FieldName = 'ywbt'
Size = 100
end
object tblDJDAWZ: TWideStringField
DisplayLabel = #25991#31181
FieldName = 'WZ'
Size = 1
end
object tblDJDATS: TSmallintField
DisplayLabel = #22871#25968
FieldName = 'TS'
end
object tblDJDABG: TSmallintField
DisplayLabel = #25253#21578
FieldName = 'BG'
end
object tblDJDAFJ: TSmallintField
DisplayLabel = #38468#20214
FieldName = 'FJ'
end
object tblDJDAFT: TSmallintField
DisplayLabel = #38468#22270
FieldName = 'FT'
end
object tblDJDABL: TWideStringField
DisplayLabel = #27604#20363
FieldName = 'BL'
Size = 10
end
object tblDJDAFB: TSmallintField
DisplayLabel = #38468#34920
FieldName = 'FB'
end
object tblDJDAJC: TSmallintField
DisplayLabel = #38598#20876
FieldName = 'JC'
end
object tblDJDAZRZ: TWideStringField
DisplayLabel = #36131#20219#32773
FieldName = 'ZRZ'
end
object tblDJDABZ: TWideStringField
DisplayLabel = #32534#32773
FieldName = 'BZ'
end
object tblDJDAbzrq: TDateTimeField
DisplayLabel = #32534#21046#26085#26399
FieldName = 'bzrq'
end
object tblDJDAgdrq: TDateTimeField
DisplayLabel = #24402#26723#26085#26399
FieldName = 'gdrq'
end
object tblDJDAMJ: TWideStringField
DisplayLabel = #23494#32423
FieldName = 'MJ'
Size = 2
end
object tblDJDABGQX: TWideStringField
DisplayLabel = #20445#31649#26399#38480
FieldName = 'BGQX'
Size = 2
end
object tblDJDAjdsx: TFloatField
DisplayLabel = #20117#27573#19978#38480
FieldName = 'jdsx'
end
object tblDJDAjdxx: TFloatField
DisplayLabel = #20117#27573#19979#38480
FieldName = 'jdxx'
end
object tblDJDAltdz: TWideStringField
DisplayLabel = #34013#22270#22320#22336
FieldName = 'ltdz'
Size = 10
end
object tblDJDAdtdh: TWideStringField
DisplayLabel = #24213#22270#26723#21495
FieldName = 'dtdh'
Size = 7
end
object tblDJDAdtdz: TWideStringField
DisplayLabel = #24213#22270#22320#22336
FieldName = 'dtdz'
Size = 10
end
object tblDJDAfz: TWideStringField
DisplayLabel = #38468#27880
FieldName = 'fz'
Size = 50
end
end
object dsDJDA: TDataSource
AutoEdit = False
DataSet = tblDJDA
Left = 392
Top = 152
end
object tblCWTDA: TADOTable
Connection = DBCnt
CursorType = ctStatic
TableName = 'v_cwtda'
Left = 464
Top = 96
object tblCWTDAdah: TWideStringField
DisplayLabel = #26723#26696#21495
FieldName = 'dah'
ReadOnly = True
Size = 16
end
object tblCWTDAQKH: TWideStringField
DisplayLabel = #21306#22359#21495
FieldName = 'QKH'
Size = 10
end
object tblCWTDALH: TWideStringField
DisplayLabel = #31867#21495
FieldName = 'LH'
Size = 5
end
object tblCWTDAzwbt: TWideStringField
DisplayLabel = #20013#25991#26631#39064
FieldName = 'zwbt'
Size = 100
end
object tblCWTDAywbt: TWideStringField
DisplayLabel = #33521#25991#26631#39064
FieldName = 'ywbt'
Size = 100
end
object tblCWTDAWZ: TWideStringField
DisplayLabel = #25991#31181
FieldName = 'WZ'
Size = 1
end
object tblCWTDATS: TSmallintField
DisplayLabel = #22871#25968
FieldName = 'TS'
end
object tblCWTDABL: TWideStringField
DisplayLabel = #27604#21015
FieldName = 'BL'
Size = 10
end
object tblCWTDAFT: TSmallintField
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -