📄 ywgl_sbwxform.dfm
字号:
Expanded = False
FieldName = #35814#32454#35828#26126
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end>
end
end
end
object Edit2: TEdit
Left = 216
Top = 4
Width = 113
Height = 20
Hint = #32500#20462#35774#22791#21333#21495
Color = clAqua
ReadOnly = True
TabOrder = 2
end
object BitBtn1: TBitBtn
Left = 485
Top = 2
Width = 96
Height = 25
Hint = #35774#22791#20462#22797#25945#24037#30331#35760
Caption = #20462#22797#25945#24037'[&X]'
TabOrder = 3
OnClick = BitBtn1Click
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000C40E0000C40E00000000000000000000CCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCC000000999999999999CCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCC00000000000000000099CCFF336699FFFFFF66
99CC000000999999CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCFFFFFF
99CCFF336699FFFFFF99CCFF3366993366996699CC000000999999CCCCCCCCCC
CCCCCCCCCCCCCCCCCCCC99CCFF336699FFFFFF00000033669933669933669900
00003366996699CC000000999999CCCCCCCCCCCCCCCCCCCCCCCC000000000000
FF9999FF99996633330000006666CC6666CC0000AA3366996699CC0000009999
99CCCCCCCCCCCCCCCCCCCCCCCC000000FF9999FF99996633330000006666CC66
66CC0000AA0000AA3366996699CC000000999999CCCCCCCCCCCCCCCCCC000000
FF9999FF99996633330000006666CC6666CC0000AA0000AA33669999CCFF6699
CC000000999999CCCCCCCCCCCC000000FFFFFFFFCCCC00000000CCFF00000066
66CC9999FF0000996699CC99CCFF99CCFF6699CC000000999999CCCCCCCCCCCC
00000000000000CCFF00CCFF0099FF0000006666CC00000099CCFFFFFFFF99CC
FF99CCFF6699CC999999CCCCCCCCCCCCCCCCCC00000000CCFF00CCFF0099FF00
99FF99CCFF99CCFF99CCFF99CCFF99CCFF99CCFF336699999999CCCCCCCCCCCC
00000000000000CCFF00FFFF0099FF0099FF6699CC6699CCFFFFFF99CCFFFFFF
FF336699336699000000CCCCCCCCCCCCFFFFFF99CCFF00FFFF00FFFF00FFFF00
99FF99CCFF99CCFFFFFFFF33669999CCFF99CCFF99CCFF000000CCCCCCCCCCCC
00000000000000000000FFFF000000000000000000000000CCCCCCFFFFFF99CC
FF000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC}
end
object BitBtn2: TBitBtn
Left = 589
Top = 2
Width = 84
Height = 25
Hint = #31163#24320#35774#22791#20462#22797#30331#35760
Caption = #31163' '#24320'[&E]'
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object ComboBox1: TComboBox
Left = 79
Top = 4
Width = 82
Height = 20
Style = csDropDownList
Color = clAqua
ItemHeight = 12
TabOrder = 5
OnClick = ComboBox1Click
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 * from '#32844#21592#24037#20316#34920' where '#29616#26377#24037#20316'<>'#39#39';')
Left = 248
Top = 32
object ADOQuery1DSDesigner: TStringField
FieldName = #32844#21592
end
object ADOQuery1DSDesigner2: TStringField
FieldName = #32844#21153
end
object ADOQuery1DSDesigner3: TStringField
FieldName = #29616#26377#24037#20316
end
object ADOQuery1DSDesigner4: TStringField
FieldName = #27966#20462#26085#26399
end
object ADOQuery1DSDesigner5: TFloatField
FieldName = #25552#25104#30334#20998#27604
end
object ADOQuery1DSDesigner6: TStringField
FieldName = #24212#29992#24037#20855
Size = 50
end
end
object ADOQuery2: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Filtered = True
Parameters = <>
SQL.Strings = (
'select * from '#27966#20462#30331#35760)
Left = 280
Top = 32
object ADOQuery2DSDesigner: TStringField
FieldName = #21333#21495
end
object ADOQuery2DSDesigner2: TDateTimeField
FieldName = #26085#26399
DisplayFormat = 'yyyy'#39#24180#39'mm'#39#26376#39'dd'#39#26085#39
end
object ADOQuery2DSDesigner3: TStringField
FieldName = #35774#22791#21517#31216
end
object ADOQuery2DSDesigner4: TStringField
FieldName = #21697#29260#12289#26426#22411
end
object ADOQuery2DSDesigner5: TStringField
FieldName = #25972#26426#22411#21495
end
object ADOQuery2DSDesigner6: TStringField
FieldName = #24207#21495
end
object ADOQuery2DSDesigner7: TStringField
FieldName = #25925#38556#29616#35937
Size = 50
end
object ADOQuery2DSDesigner8: TStringField
FieldName = #25925#38556#37096#20301
Size = 50
end
object ADOQuery2DSDesigner9: TStringField
FieldName = #25925#38556#21407#22240
Size = 50
end
object ADOQuery2DSDesigner10: TStringField
FieldName = #32500#20462#29366#20917
end
object ADOQuery2DSDesigner11: TStringField
FieldName = #25152#38656#22791#20214
Size = 100
end
object ADOQuery2DSDesigner12: TBCDField
FieldName = #36153#29992
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOQuery2DSDesigner13: TBCDField
FieldName = #22791#20214#36153#29992
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOQuery2DSDesigner14: TStringField
FieldName = #23458#25143
end
object ADOQuery2DSDesigner15: TStringField
FieldName = #32852#31995#30005#35805
end
object ADOQuery2DSDesigner16: TStringField
FieldName = #32852#31995#20154
end
object ADOQuery2DSDesigner17: TStringField
FieldName = #32500#20462#20154
end
object ADOQuery2DSDesigner18: TStringField
FieldName = #35814#32454#35828#26126
Size = 80
end
object ADOQuery2DSDesigner19: TStringField
FieldName = #29256#26426#21495
end
object ADOQuery2DSDesigner20: TStringField
FieldName = #38468#20214#20449#24687
Size = 50
end
object ADOQuery2DSDesigner21: TStringField
FieldName = #32500#20462#37096#38376
end
end
object DataSource2: TDataSource
DataSet = ADOQuery2
OnDataChange = DataSource2DataChange
Left = 392
Top = 72
end
object DataSource3: TDataSource
DataSet = ADOTable1
Left = 360
Top = 72
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 = 348
Top = 31
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 ADOTable1DSDesigner14: TStringField
FieldName = #38468#20214#20449#24687
Size = 50
end
object ADOTable1DSDesigner22: TStringField
FieldName = #32500#20462#37096#38376
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 = #20462#22797#35760#24405
Left = 388
Top = 31
object ADOTable2DSDesigner: TStringField
FieldName = #21333#21495
end
object ADOTable2DSDesigner2: TDateTimeField
FieldName = #26085#26399
end
object ADOTable2DSDesigner3: TStringField
FieldName = #35774#22791#21517#31216
end
object ADOTable2DSDesigner4: TStringField
FieldName = #21697#29260#12289#26426#22411
end
object ADOTable2DSDesigner5: TStringField
FieldName = #25972#26426#22411#21495
end
object ADOTable2DSDesigner6: TStringField
FieldName = #29256#26426#21495
end
object ADOTable2DSDesigner7: TStringField
FieldName = #24207#21495
end
object ADOTable2DSDesigner8: TStringField
FieldName = #25925#38556#29616#35937
Size = 50
end
object ADOTable2DSDesigner9: TStringField
FieldName = #25925#38556#21407#22240
Size = 50
end
object ADOTable2DSDesigner10: TStringField
FieldName = #25925#38556#37096#20301
Size = 50
end
object ADOTable2DSDesigner11: TStringField
FieldName = #32500#20462#29366#20917
end
object ADOTable2DSDesigner12: TStringField
FieldName = #25152#38656#22791#20214
Size = 50
end
object ADOTable2DSDesigner13: TBCDField
FieldName = #22791#20214#36153#29992
Precision = 19
end
object ADOTable2DSDesigner15: TBCDField
FieldName = #36153#29992
Precision = 19
end
object ADOTable2DSDesigner16: TBCDField
FieldName = #37329#39069
Precision = 19
end
object ADOTable2DSDesigner17: TStringField
FieldName = #23458#25143
end
object ADOTable2DSDesigner18: TStringField
FieldName = #32852#31995#30005#35805
end
object ADOTable2DSDesigner19: TStringField
FieldName = #32852#31995#20154
end
object ADOTable2DSDesigner20: TStringField
FieldName = #32500#20462#20154
end
object ADOTable2DSDesigner21: TStringField
FieldName = #35814#32454#35828#26126
Size = 80
end
object ADOTable2DSDesigner14: TStringField
FieldName = #32500#20462#37096#38376
end
end
object ADOTable3: TADOTable
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
TableName = #32844#21592#24037#20316#35760#24405
Left = 428
Top = 31
object ADOTable3DSDesigner: TStringField
FieldName = #32844#21592
end
object ADOTable3DSDesigner2: TStringField
FieldName = #27966#20462#26085#26399
end
object ADOTable3DSDesigner3: TStringField
FieldName = #23436#25104#26085#26399
end
object ADOTable3DSDesigner4: TStringField
FieldName = #24037#20316#35760#24405
end
object ADOTable3DSDesigner5: TBCDField
FieldName = #32500#20462#36153#29992
Precision = 19
end
object ADOTable3DSDesigner6: TFloatField
FieldName = #25552#25104#27604#20363
end
object ADOTable3DSDesigner7: TFloatField
FieldName = #32844#21592#25552#25104
end
end
object ADOQuery3: 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 = 316
Top = 31
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -