📄 ywgl_khqjform.dfm
字号:
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #25925#38556#37096#20301
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#20462#29366#20917
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #25152#38656#22791#20214
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #22791#20214#36153#29992
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #36153#29992
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #37329#39069
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #23458#25143
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32852#31995#30005#35805
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32852#31995#20154
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#20462#20154
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #35814#32454#35828#26126
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #38468#20214#20449#24687
Title.Alignment = taCenter
Visible = True
end>
end
object ADOTable2: TADOTable
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Filtered = True
TableName = #23458#25143#21462#26426
Left = 228
Top = 83
object ADOTable2DSDesigner: TStringField
FieldName = #21333#21495
end
object ADOTable2DSDesigner2: TDateTimeField
FieldName = #21462#26426#26085#26399
DisplayFormat = 'yyyy'#39#24180#39'mm'#39#26376#39'dd'#39#26085#39
end
object ADOTable2DSDesigner3: TStringField
FieldName = #32500#25252#26041#27861
end
object ADOTable2DSDesigner4: TStringField
FieldName = #32500#25252#26399#38480
end
object ADOTable2DSDesigner5: TDateTimeField
FieldName = #32500#25252#21040#26399
DisplayFormat = 'yyyy'#39#24180#39'mm'#39#26376#39'dd'#39#26085#39
end
object ADOTable2DSDesigner6: TStringField
FieldName = #21462#26426#20154
end
object ADOTable2DSDesigner7: TStringField
FieldName = #32463#25163#20154
end
object ADOTable2DSDesigner8: TStringField
FieldName = #32467#36134#27454#39033
end
object ADOTable2DSDesigner9: TBCDField
FieldName = #22791#20214#36153#29992
DisplayFormat = '0.00'
Precision = 19
end
object ADOTable2DSDesigner10: TBCDField
FieldName = #32500#20462#36153#29992
DisplayFormat = '0.00'
Precision = 19
end
object ADOTable2DSDesigner11: TBCDField
FieldName = #24635#37329#39069
DisplayFormat = '0.00'
Precision = 19
end
object ADOTable2DSDesigner12: TStringField
FieldName = #32500#20462#20154
end
object ADOTable2DSDesigner13: TStringField
FieldName = #32500#20462#37096#38376
end
object ADOTable2DSDesigner14: TStringField
FieldName = #20184#27454#26041#24335
Size = 30
end
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Filtered = True
TableName = #20462#22797#30331#35760
Left = 190
Top = 83
object ADOTable1DSDesigner: TStringField
FieldName = #21333#21495
end
object ADOTable1DSDesigner2: TDateTimeField
FieldName = #26085#26399
DisplayFormat = 'yyyy'#39#24180#39'mm'#39#26376#39'dd'#39#26085#39
end
object ADOTable1DSDesigner3: TStringField
FieldName = #35774#22791#21517#31216
end
object ADOTable1DSDesigner4: TStringField
FieldName = #21697#29260#12289#26426#22411
end
object ADOTable1DSDesigner5: TStringField
FieldName = #25972#26426#22411#21495
end
object ADOTable1DSDesigner6: TStringField
FieldName = #29256#26426#21495
end
object ADOTable1DSDesigner7: TStringField
FieldName = #24207#21495
end
object ADOTable1DSDesigner8: TStringField
FieldName = #25925#38556#29616#35937
Size = 50
end
object ADOTable1DSDesigner9: TStringField
FieldName = #25925#38556#21407#22240
Size = 50
end
object ADOTable1DSDesigner10: TStringField
FieldName = #25925#38556#37096#20301
Size = 50
end
object ADOTable1DSDesigner11: TStringField
FieldName = #32500#20462#29366#20917
end
object ADOTable1DSDesigner12: TStringField
FieldName = #25152#38656#22791#20214
Size = 50
end
object ADOTable1DSDesigner13: TBCDField
FieldName = #22791#20214#36153#29992
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOTable1DSDesigner15: TBCDField
FieldName = #36153#29992
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOTable1DSDesigner16: TBCDField
FieldName = #37329#39069
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOTable1DSDesigner17: TStringField
FieldName = #23458#25143
end
object ADOTable1DSDesigner18: TStringField
FieldName = #32852#31995#30005#35805
end
object ADOTable1DSDesigner19: TStringField
FieldName = #32852#31995#20154
end
object ADOTable1DSDesigner20: TStringField
FieldName = #32500#20462#20154
end
object ADOTable1DSDesigner21: TStringField
FieldName = #35814#32454#35828#26126
Size = 80
end
object ADOTable1DSDesigner22: TStringField
FieldName = #38468#20214#20449#24687
Size = 50
end
object ADOTable1DSDesigner14: TStringField
FieldName = #32500#20462#37096#38376
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 281
Top = 83
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select '#24211#25151' from '#24211)
Left = 308
Top = 83
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -