📄 unit7.~dfm
字号:
object Form7: TForm7
Left = 261
Top = 122
BorderIcons = []
BorderStyle = bsDialog
Caption = #20449#24687#26597#35810#32479#35745
ClientHeight = 341
ClientWidth = 489
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 4
Top = 168
Width = 482
Height = 9
Shape = bsTopLine
end
object Label5: TLabel
Left = 8
Top = 184
Width = 41
Height = 16
AutoSize = False
Caption = #20849#26377#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 48
Top = 184
Width = 49
Height = 16
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 96
Top = 184
Width = 57
Height = 16
AutoSize = False
Caption = #26465#20449#24687#65292
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 153
Top = 184
Width = 54
Height = 16
AutoSize = False
Caption = #26597#35810#21040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 209
Top = 184
Width = 41
Height = 16
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 257
Top = 184
Width = 56
Height = 16
AutoSize = False
Caption = #26465#20449#24687#12290
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 310
Top = 184
Width = 89
Height = 16
AutoSize = False
Caption = #21344#24635#20154#25968#30340#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 390
Top = 184
Width = 32
Height = 16
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 427
Top = 184
Width = 12
Height = 16
AutoSize = False
Caption = '%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Button1: TButton
Left = 294
Top = 135
Width = 81
Height = 25
Caption = #25191#34892#26597#35810#32479#35745
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 402
Top = 135
Width = 78
Height = 25
Caption = #36864' '#20986
TabOrder = 1
OnClick = Button2Click
end
object DBGrid1: TDBGrid
Left = 6
Top = 206
Width = 477
Height = 130
DataSource = DataSource1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object R1: TRadioButton
Left = 7
Top = 23
Width = 146
Height = 17
Caption = #25353#24615#21035#26597#35810#32479#35745
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
TabStop = True
end
object R2: TRadioButton
Left = 7
Top = 65
Width = 146
Height = 17
Caption = #25353#27665#26063#26597#35810#32479#35745
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object R3: TRadioButton
Left = 7
Top = 104
Width = 154
Height = 17
Caption = #25353#25307#29983#20154#26597#35810#32479#35745
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object ComboBox1: TComboBox
Left = 163
Top = 59
Width = 121
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 6
Text = #27721#26063
Items.Strings = (
#27721#26063
#21704#33832#20811#26063
#22238#26063
#32500#26063
#20044#23388#21035#20811#26063
#22612#22612#23572#26063
#33945#21476#26063
#28385#26063)
end
object ComboBox4: TComboBox
Left = 164
Top = 17
Width = 121
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 7
Text = #30007
Items.Strings = (
#30007
#22899)
end
object Edit1: TEdit
Left = 160
Top = 104
Width = 121
Height = 21
TabOrder = 8
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XYBMXT.MDB;Persist ' +
'Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 72
Top = 136
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 104
Top = 136
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 40
Top = 136
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'xyxxb'
Left = 8
Top = 136
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -