?? unit7.dfm
字號:
object f_cxqs: Tf_cxqs
Left = -19
Top = 113
Width = 808
Height = 450
BorderIcons = [biSystemMenu, biMinimize]
Caption = #26597#35810#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 = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 8
Top = 0
Width = 785
Height = 217
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = DBGrid1DrawDataCell
end
object GroupBox1: TGroupBox
Left = 32
Top = 224
Width = 697
Height = 193
Caption = #26597#35810#23517#23460#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 32
Top = 32
Width = 140
Height = 19
Caption = #35831#36873#25321#26597#35810#26465#20214
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 248
Top = 32
Width = 102
Height = 16
Caption = #35831#36755#20837#26597#35810#20540
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 32
Top = 104
Width = 140
Height = 19
Caption = #35831#36873#25321#26597#35810#26041#24335
end
object e_cx: TEdit
Left = 248
Top = 72
Width = 145
Height = 27
TabOrder = 0
end
object b_kscx: TButton
Left = 488
Top = 32
Width = 121
Height = 41
Caption = #24320#22987#26597#35810
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = b_kscxClick
end
object b_jscx: TButton
Left = 496
Top = 120
Width = 121
Height = 41
Caption = #32467#26463#26597#35810
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = b_jscxClick
end
object ComboBox1: TComboBox
Left = 32
Top = 64
Width = 145
Height = 27
ItemHeight = 19
TabOrder = 3
Items.Strings = (
'jsz'
'jsm')
end
object ComboBox2: TComboBox
Left = 40
Top = 144
Width = 145
Height = 27
ItemHeight = 19
TabOrder = 4
Items.Strings = (
'>'
'<'
'='
'<>'
'<='
'')
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 336
Top = 8
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from jsb')
Left = 392
Top = 16
object ADOQuery1jsm: TWideStringField
DisplayLabel = #23517#23460#21517
DisplayWidth = 15
FieldName = 'jsm'
Size = 6
end
object ADOQuery1jsz: TWideStringField
DisplayLabel = #23517#23460#38271
DisplayWidth = 18
FieldName = 'jsz'
Size = 8
end
object ADOQuery1ry1: TWideStringField
DisplayLabel = #23517#23460#20154#21592'1'
DisplayWidth = 21
FieldName = 'ry1'
Size = 8
end
object ADOQuery1ry2: TWideStringField
DisplayLabel = #23517#23460#20154#21592'2'
DisplayWidth = 21
FieldName = 'ry2'
Size = 8
end
object ADOQuery1ry3: TWideStringField
DisplayLabel = #23517#23460#20154#21592'3'
DisplayWidth = 19
FieldName = 'ry3'
Size = 8
end
object ADOQuery1ry4: TWideStringField
DisplayLabel = #23517#23460#20154#21592'4'
DisplayWidth = 19
FieldName = 'ry4'
Size = 8
end
object ADOQuery1ry5: TWideStringField
DisplayLabel = #23517#23460#20154#21592'5'
DisplayWidth = 25
FieldName = 'ry5'
Size = 8
end
object ADOQuery1ry6: TWideStringField
DisplayLabel = #23517#23460#20154#21592'6'
DisplayWidth = 23
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 = 488
Top = 24
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -