📄 unit2.dfm
字号:
object admin_proc: Tadmin_proc
Left = 304
Top = 219
Width = 580
Height = 320
Caption = #31649#29702#21592#31649#29702
Color = clBtnFace
Constraints.MaxHeight = 320
Constraints.MaxWidth = 580
Constraints.MinHeight = 320
Constraints.MinWidth = 580
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object lable14: TLabel
Left = 8
Top = 8
Width = 60
Height = 20
Caption = #28155' '#21152' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 80
Top = 8
Width = 60
Height = 20
Caption = #21024' '#38500' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 160
Top = 8
Width = 60
Height = 20
Caption = #20462' '#25913' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 232
Top = 8
Width = 65
Height = 20
Caption = #20445' '#23384' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 312
Top = 8
Width = 70
Height = 20
Caption = #21462' '#28040' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 392
Top = 8
Width = 94
Height = 20
Caption = #21047#26032#21015#34920' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBCtrlGrid1: TDBCtrlGrid
Left = 8
Top = 88
Width = 537
Height = 152
ColCount = 1
DataSource = DataSource1
PanelHeight = 76
PanelWidth = 520
TabOrder = 0
RowCount = 2
object Label1: TLabel
Left = 16
Top = 8
Width = 65
Height = 20
Caption = #32534#21495' '
FocusControl = DBEdit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 176
Top = 8
Width = 77
Height = 20
Caption = #29992#25143#21517' '
FocusControl = DBEdit2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 344
Top = 8
Width = 55
Height = 20
Caption = #23494#30721' '
FocusControl = DBEdit3
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 16
Top = 32
Width = 145
Height = 21
DataField = #32534#21495
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 176
Top = 32
Width = 153
Height = 21
DataField = #29992#25143#21517
DataSource = DataSource1
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 344
Top = 32
Width = 153
Height = 21
DataField = #23494#30721
DataSource = DataSource1
TabOrder = 2
end
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 40
Width = 462
Height = 33
DataSource = DataSource1
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
TabOrder = 1
end
object Button1: TButton
Left = 472
Top = 40
Width = 75
Height = 33
Caption = #36864#20986
TabOrder = 2
OnClick = Button1Click
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PMIS\resource\PM' +
'IS1.mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 624
Top = 96
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#31649#29702#21592#34920)
Left = 488
object ADOQuery1DSDesigner: TAutoIncField
FieldName = #32534#21495
ReadOnly = True
end
object ADOQuery1DSDesigner2: TWideStringField
FieldName = #29992#25143#21517
Size = 10
end
object ADOQuery1DSDesigner3: TWideStringField
FieldName = #23494#30721
Size = 10
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 520
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -