📄 ywgl_shfwform.dfm
字号:
object YWGL_SHFW: TYWGL_SHFW
Left = 82
Top = 203
BorderIcons = []
BorderStyle = bsSingle
Caption = #21806#21518#26381#21153
ClientHeight = 413
ClientWidth = 782
Color = clBtnFace
Constraints.MaxHeight = 600
Constraints.MaxWidth = 790
Constraints.MinHeight = 440
Constraints.MinWidth = 790
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Bevel1: TBevel
Left = -6
Top = 160
Width = 849
Height = 3
end
object Bevel2: TBevel
Left = -51
Top = 196
Width = 849
Height = 3
end
object Label1: TLabel
Left = 15
Top = 170
Width = 66
Height = 21
Caption = #21333' '#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #38582#20070
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 214
Top = 170
Width = 132
Height = 21
Caption = #32500' '#25252' '#27425' '#25968':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #38582#20070
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 3
Top = 2
Width = 776
Height = 153
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = #21333#21495
ReadOnly = True
Title.Alignment = taCenter
Width = 74
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #22791#20214#36153#29992
ReadOnly = True
Title.Alignment = taCenter
Width = 52
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#20462#36153#29992
ReadOnly = True
Title.Alignment = taCenter
Width = 54
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #24635#37329#39069
ReadOnly = True
Title.Alignment = taCenter
Width = 58
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #21462#26426#26085#26399
ReadOnly = True
Title.Alignment = taCenter
Width = 76
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#25252#26041#27861
ReadOnly = True
Title.Alignment = taCenter
Width = 102
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#25252#26399#38480
ReadOnly = True
Title.Alignment = taCenter
Width = 106
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#25252#21040#26399
ReadOnly = True
Title.Alignment = taCenter
Width = 98
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #21462#26426#20154
ReadOnly = True
Title.Alignment = taCenter
Width = 101
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#20462#20154
ReadOnly = True
Title.Alignment = taCenter
Width = 105
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32463#25163#20154
ReadOnly = True
Title.Alignment = taCenter
Width = 110
Visible = True
end>
end
object BitBtn1: TBitBtn
Left = 583
Top = 168
Width = 92
Height = 25
Caption = #21806#21518#26597#35810'[&S]'
TabOrder = 1
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 = 483
Top = 168
Width = 94
Height = 25
Caption = #32500#25252#30331#35760'[&A]'
TabOrder = 2
OnClick = BitBtn2Click
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 DBGrid2: TDBGrid
Left = 3
Top = 204
Width = 775
Height = 204
DataSource = DataSource2
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = #21333#21495
ReadOnly = True
Title.Alignment = taCenter
Width = 83
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#25252#26085#26399
ReadOnly = True
Title.Alignment = taCenter
Width = 79
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#25252#20154
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 = #32500#25252#21407#22240
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #32500#25252#20869#23481
ReadOnly = True
Title.Alignment = taCenter
Visible = True
end>
end
object Edit1: TEdit
Left = 89
Top = 170
Width = 116
Height = 20
Color = clAqua
ReadOnly = True
TabOrder = 4
end
object Edit2: TEdit
Left = 352
Top = 170
Width = 115
Height = 20
Color = clAqua
ReadOnly = True
TabOrder = 5
end
object BitBtn3: TBitBtn
Left = 680
Top = 168
Width = 82
Height = 25
Caption = #31163' '#24320'[&E]'
TabOrder = 6
OnClick = BitBtn3Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Parameters = <
item
Name = 'dd'
DataType = ftString
Size = 16
Value = Null
end>
SQL.Strings = (
'select * from '#23458#25143#21462#26426
'where '#32500#25252#21040#26399' < :dd')
Left = 192
Top = 96
end
object DataSource1: TDataSource
DataSet = ADOQuery1
OnDataChange = DataSource1DataChange
Left = 216
Top = 96
end
object ADOQuery2: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#21806#21518#26381#21153#30331#35760)
Left = 160
Top = 240
object ADOQuery2DSDesigner: TStringField
FieldName = #21333#21495
end
object ADOQuery2DSDesigner2: TDateTimeField
FieldName = #32500#25252#26085#26399
end
object ADOQuery2DSDesigner3: TStringField
FieldName = #32500#25252#21407#22240
Size = 50
end
object ADOQuery2DSDesigner4: TStringField
FieldName = #32500#25252#20869#23481
Size = 50
end
object ADOQuery2DSDesigner5: TStringField
FieldName = #32500#25252#20154
end
object ADOQuery2DSDesigner6: TStringField
FieldName = #23458#25143
end
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 192
Top = 240
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -