📄 unit7.dfm
字号:
object Form7: TForm7
Left = 649
Top = 344
Width = 767
Height = 606
Caption = 'Form7'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 18
Top = 75
Width = 32
Height = 16
Caption = #33457#26679
Color = clMenuText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 13
Top = 20
Width = 40
Height = 16
Caption = #26085#26399':'
Color = clMenuText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 310
Top = 71
Width = 32
Height = 16
Caption = #25968#37327
Color = clMenuText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label6: TLabel
Left = 224
Top = 18
Width = 32
Height = 16
Caption = #23458#25143
Color = clMenuText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label8: TLabel
Left = 168
Top = 74
Width = 32
Height = 16
Caption = #21333#20215
Color = clMenuText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label9: TLabel
Left = 152
Top = 336
Width = 8
Height = 16
Caption = '0'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label3: TLabel
Left = 444
Top = 70
Width = 32
Height = 16
Caption = #39044#20184
Color = clMenuText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Edit1: TEdit
Left = 53
Top = 73
Width = 78
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentFont = False
TabOrder = 0
OnKeyPress = Edit1KeyPress
end
object Edit4: TEdit
Left = 211
Top = 72
Width = 75
Height = 24
TabStop = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentFont = False
TabOrder = 1
OnKeyPress = Edit4KeyPress
end
object dt1: TDateTimePicker
Left = 56
Top = 16
Width = 145
Height = 24
CalAlignment = dtaLeft
Date = 39120.9601572917
Time = 39120.9601572917
Color = clBtnFace
DateFormat = dfLong
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 2
end
object ComboBox3: TComboBox
Left = 258
Top = 15
Width = 247
Height = 27
Ctl3D = True
DropDownCount = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ItemHeight = 19
ParentCtl3D = False
ParentFont = False
TabOrder = 3
Text = 'ComboBox1'
OnKeyPress = ComboBox3KeyPress
Items.Strings = (
#20840#37096#23458#25143)
end
object DBGrid2: TDBGrid
Left = 10
Top = 128
Width = 727
Height = 369
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'khh'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #23458#25143#21495
Width = 53
Visible = True
end
item
Expanded = False
FieldName = 'khm'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #23458#25143#21517
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'rq'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #26085#26399
Width = 124
Visible = True
end
item
Expanded = False
FieldName = 'hy'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #33457#26679
Width = 85
Visible = True
end
item
Expanded = False
FieldName = 'dj'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #21333#20215#65288#20803#65289
Width = 78
Visible = True
end
item
Expanded = False
FieldName = 'sl'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #25968#37327
Width = 92
Visible = True
end
item
Expanded = False
FieldName = 'ze'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #24635#39069
Width = 89
Visible = True
end
item
Expanded = False
FieldName = 'yf'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Title.Caption = #39044#20184
Width = 76
Visible = True
end>
end
object Button2: TButton
Left = 600
Top = 64
Width = 121
Height = 33
Caption = #30331#35760#20837#24211
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button2Click
end
object Edit3: TEdit
Left = 353
Top = 70
Width = 75
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentFont = False
TabOrder = 6
OnKeyPress = Edit3KeyPress
end
object Button1: TButton
Left = 216
Top = 522
Width = 90
Height = 30
Caption = #20462#25913
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = Button1Click
end
object Button3: TButton
Left = 400
Top = 522
Width = 90
Height = 30
Caption = #20445#23384
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = Button3Click
end
object Edit2: TEdit
Left = 487
Top = 68
Width = 75
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentFont = False
TabOrder = 9
Text = '0'
OnKeyPress = Edit2KeyPress
end
object Button4: TButton
Left = 600
Top = 8
Width = 121
Height = 33
Caption = #26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10
OnClick = Button4Click
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 40
Top = 176
end
object ADOQuery1: TADOQuery
Connection = loginform.ADOConnection1
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'')
Left = 88
Top = 176
end
object ADOQuery2: TADOQuery
Connection = loginform.ADOConnection1
Parameters = <>
Left = 200
Top = 8
end
object ADOQuery5: TADOQuery
Connection = loginform.ADOConnection1
Parameters = <>
Left = 344
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -