?? unit5.dfm
字號:
object Form5: TForm5
Left = 236
Top = 501
Width = 803
Height = 476
BorderIcons = [biSystemMenu, biMinimize]
Caption = #23517#23460#22522#26412#24773#20917
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 8
Top = 2
Width = 777
Height = 223
Color = clCream
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentShowHint = False
ShowHint = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
object gb_1: TGroupBox
Left = 0
Top = 232
Width = 585
Height = 201
TabOrder = 1
object label23: TLabel
Left = 288
Top = 120
Width = 77
Height = 16
Caption = #23517#23460#20154#21592'5'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 288
Top = 24
Width = 77
Height = 16
Caption = #23517#23460#20154#21592'3'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 24
Top = 72
Width = 60
Height = 16
Caption = ' '#23517#23460#38271
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object label11: TLabel
Left = 288
Top = 72
Width = 77
Height = 16
Caption = #23517#23460#20154#21592'4'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object label5: TLabel
Left = 24
Top = 120
Width = 77
Height = 16
Caption = #23517#23460#20154#21592'1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 24
Top = 168
Width = 9
Height = 16
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '@'#26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 24
Top = 24
Width = 60
Height = 16
Caption = ' '#23517#23460#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object label34: TLabel
Left = 288
Top = 160
Width = 77
Height = 16
Caption = #23517#23460#20154#21592'6'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 24
Top = 168
Width = 77
Height = 16
Caption = #23517#23460#20154#21592'2'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object e_qsry3: TEdit
Left = 408
Top = 24
Width = 121
Height = 21
TabOrder = 7
OnKeyPress = e_qsry3KeyPress
end
object e_qsry6: TEdit
Left = 408
Top = 152
Width = 121
Height = 21
TabOrder = 4
OnKeyPress = e_qsry6KeyPress
end
object e_qsry5: TEdit
Left = 408
Top = 104
Width = 121
Height = 21
TabOrder = 5
OnKeyPress = e_qsry5KeyPress
end
object e_qsry4: TEdit
Left = 408
Top = 64
Width = 121
Height = 21
TabOrder = 6
OnKeyPress = e_qsry4KeyPress
end
object e_qsm: TEdit
Left = 128
Top = 24
Width = 121
Height = 21
TabOrder = 0
OnKeyPress = e_qsmKeyPress
end
object e_qsz: TEdit
Left = 128
Top = 64
Width = 121
Height = 21
TabOrder = 1
OnKeyPress = e_qszKeyPress
end
object e_qsry1: TEdit
Left = 128
Top = 112
Width = 121
Height = 21
TabOrder = 2
OnKeyPress = e_qsry1KeyPress
end
object e_qsry2: TEdit
Left = 128
Top = 160
Width = 121
Height = 21
TabOrder = 3
OnKeyPress = e_qsry2KeyPress
end
end
object gb_2: TGroupBox
Left = 608
Top = 232
Width = 153
Height = 201
TabOrder = 2
object b_xz: TBitBtn
Left = 32
Top = 16
Width = 81
Height = 33
Caption = #22686#21152
TabOrder = 0
OnClick = b_xzClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F333333333333330333333333333333733333333}
NumGlyphs = 2
end
object b_sc: TBitBtn
Left = 32
Top = 64
Width = 81
Height = 33
Caption = #21024#38500
TabOrder = 1
OnClick = b_scClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object b_bc: TBitBtn
Left = 32
Top = 112
Width = 81
Height = 33
Caption = #20445#23384
TabOrder = 2
OnClick = b_bcClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object b_qx: TBitBtn
Left = 32
Top = 160
Width = 81
Height = 33
Caption = #21462#28040
TabOrder = 3
OnClick = b_qxClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 48
Top = 40
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from jsb'
'')
Left = 88
Top = 32
object ADOQuery1jsm: TWideStringField
DisplayLabel = #23517#23460#21517
DisplayWidth = 12
FieldName = 'jsm'
Size = 6
end
object ADOQuery1jsz: TWideStringField
DisplayLabel = #23517#23460#38271
DisplayWidth = 12
FieldName = 'jsz'
Size = 8
end
object ADOQuery1ry1: TWideStringField
DisplayLabel = #23517#23460#20154#21592'1'
DisplayWidth = 12
FieldName = 'ry1'
Size = 8
end
object ADOQuery1ry2: TWideStringField
DisplayLabel = #23517#23460#20154#21592'2'
DisplayWidth = 12
FieldName = 'ry2'
Size = 8
end
object ADOQuery1ry3: TWideStringField
DisplayLabel = #23517#23460#20154#21592'3'
DisplayWidth = 13
FieldName = 'ry3'
Size = 8
end
object ADOQuery1ry4: TWideStringField
DisplayLabel = #23517#23460#20154#21592'4'
DisplayWidth = 13
FieldName = 'ry4'
Size = 8
end
object ADOQuery1ry5: TWideStringField
DisplayLabel = #23517#23460#20154#21592'5'
DisplayWidth = 13
FieldName = 'ry5'
Size = 8
end
object ADOQuery1ry6: TWideStringField
DisplayLabel = #23517#23460#20154#21592'6'
DisplayWidth = 15
FieldName = 'ry6'
Size = 8
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\DELPHI'#23487#33293#31649#29702#31995#32479'\data\' +
'ssgl.mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 152
Top = 40
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -