📄 changepurviewformunit.dfm
字号:
object ChangePurviewForm: TChangePurviewForm
Left = 190
Top = 107
Width = 256
Height = 375
Caption = #20462#25913#26435#38480
Color = clCream
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 30
Top = 118
Width = 70
Height = 13
Caption = #24080#25143#26435#38480#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 30
Top = 54
Width = 70
Height = 13
Caption = #24080#25143#21517#31216#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 29
Top = 86
Width = 70
Height = 13
Caption = #24080#25143#23494#30721#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 88
Top = 16
Width = 81
Height = 21
AutoSize = False
Caption = #20462#25913#26435#38480
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Button2: TButton
Left = 136
Top = 148
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 0
OnClick = Button2Click
end
object Button1: TButton
Left = 32
Top = 148
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 1
OnClick = Button1Click
end
object CBPurview: TComboBox
Left = 92
Top = 114
Width = 121
Height = 21
BevelKind = bkFlat
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 2
Items.Strings = (
#24635#32463#29702
#20154#20107#32463#29702
#36130#21153#32463#29702
#20854#23427#32463#29702)
end
object edtPwd: TEdit
Left = 91
Top = 82
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object edtAccount: TEdit
Left = 92
Top = 50
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object DBGrid1: TDBGrid
Left = 0
Top = 187
Width = 248
Height = 161
Align = alBottom
DataSource = DataM.DSLogin
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -