📄 unit3.~dfm
字号:
object Form3: TForm3
Left = 147
Top = 152
BorderIcons = []
BorderStyle = bsDialog
Caption = #20449#24687#36755#20837
ClientHeight = 331
ClientWidth = 572
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 572
Height = 331
Align = alClient
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Bevel1: TBevel
Left = 3
Top = 50
Width = 566
Height = 9
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 3
Top = 274
Width = 566
Height = 9
Shape = bsBottomLine
end
object Label1: TLabel
Left = 168
Top = 6
Width = 264
Height = 48
Caption = #20449' '#24687' '#36755' '#20837
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -48
Font.Name = #21326#25991#26032#39759
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 29
Top = 63
Width = 89
Height = 20
AutoSize = False
Caption = #22995#21517
FocusControl = DBEdit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 206
Top = 63
Width = 65
Height = 20
AutoSize = False
Caption = #24615#21035
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 301
Top = 63
Width = 65
Height = 20
AutoSize = False
Caption = #27665#26063
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 29
Top = 119
Width = 81
Height = 20
AutoSize = False
Caption = #19987#19994
FocusControl = DBEdit5
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 439
Top = 63
Width = 89
Height = 20
AutoSize = False
Caption = #20986#29983#24180#26376
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 208
Top = 177
Width = 65
Height = 20
AutoSize = False
Caption = #32564#36153
FocusControl = DBEdit6
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 206
Top = 119
Width = 129
Height = 20
AutoSize = False
Caption = #24037#20316#21333#20301
FocusControl = DBEdit7
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 29
Top = 177
Width = 121
Height = 20
AutoSize = False
Caption = #32852#31995#30005#35805
FocusControl = DBEdit8
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 28
Top = 224
Width = 81
Height = 20
AutoSize = False
Caption = #22791#27880
FocusControl = DBEdit9
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 320
Top = 200
Width = 81
Height = 16
AutoSize = False
Caption = '('#21333#20301#65306#20803')'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 407
Top = 174
Width = 81
Height = 25
AutoSize = False
Caption = #25307#29983#20154
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 29
Top = 84
Width = 145
Height = 21
DataField = #22995#21517
DataSource = DataSource1
TabOrder = 0
end
object DBEdit5: TDBEdit
Left = 29
Top = 141
Width = 145
Height = 21
DataField = #19987#19994
DataSource = DataSource1
TabOrder = 1
end
object DBEdit6: TDBEdit
Left = 208
Top = 198
Width = 104
Height = 21
DataField = #32564#36153
DataSource = DataSource1
TabOrder = 2
OnKeyPress = DBEdit6KeyPress
end
object DBEdit7: TDBEdit
Left = 206
Top = 141
Width = 331
Height = 21
DataField = #24037#20316#21333#20301
DataSource = DataSource1
TabOrder = 3
end
object DBEdit8: TDBEdit
Left = 29
Top = 198
Width = 145
Height = 21
DataField = #32852#31995#30005#35805
DataSource = DataSource1
TabOrder = 4
OnKeyPress = DBEdit8KeyPress
end
object DBEdit9: TDBEdit
Left = 28
Top = 248
Width = 513
Height = 21
DataField = #22791#27880
DataSource = DataSource1
TabOrder = 5
end
object Button1: TButton
Left = 76
Top = 293
Width = 75
Height = 26
Caption = #36755' '#20837
TabOrder = 6
OnClick = Button1Click
end
object Button2: TButton
Left = 244
Top = 293
Width = 75
Height = 26
Caption = #21462' '#28040
TabOrder = 7
OnClick = Button2Click
end
object Button3: TButton
Left = 396
Top = 293
Width = 75
Height = 26
Caption = #36864' '#20986
TabOrder = 8
OnClick = Button3Click
end
object DBComboBox1: TDBComboBox
Left = 301
Top = 83
Width = 111
Height = 21
Style = csDropDownList
DataField = #27665#26063
DataSource = DataSource1
ItemHeight = 13
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)
TabOrder = 9
end
object DateTimePicker1: TDateTimePicker
Left = 440
Top = 83
Width = 97
Height = 21
CalAlignment = dtaLeft
Date = 38675.9431890162
Time = 38675.9431890162
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 10
end
object DBComboBox2: TDBComboBox
Left = 208
Top = 84
Width = 68
Height = 21
Style = csDropDownList
DataField = #24615#21035
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#30007
#22899)
TabOrder = 11
end
object DBComboBox3: TDBComboBox
Left = 407
Top = 196
Width = 130
Height = 21
DataField = #25307#29983#20154
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#38472#22269#23454
#23665#28023#26609
#26446#21512
#27573#26032#29618)
TabOrder = 12
end
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 = 520
Top = 16
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'xyxxb'
Left = 488
Top = 16
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 72
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -