📄 chgpasswd.dfm
字号:
object FormChgPasswd: TFormChgPasswd
Left = 378
Top = 250
AutoScroll = False
BorderIcons = []
Caption = #26356#25913#20010#20154#23494#30721
ClientHeight = 206
ClientWidth = 400
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object bsSkinPanel2: TbsSkinPanel
Left = 0
Top = 0
Width = 400
Height = 206
TabOrder = 0
SkinData = dbs.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel1'
Align = alClient
object bsSkinStdLabel2: TbsSkinStdLabel
Left = 48
Top = 20
Width = 113
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #36755#20837#26087#23494#30721#65306
end
object bsSkinStdLabel1: TbsSkinStdLabel
Left = 72
Top = 60
Width = 89
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #26032#23494#30721#65306
end
object bsSkinStdLabel3: TbsSkinStdLabel
Left = 56
Top = 100
Width = 105
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #30830#35748#26032#23494#30721#65306
end
object bsSkinButtonLogin: TbsSkinButton
Left = 135
Top = 142
Width = 88
Height = 32
TabOrder = 1
SkinData = dbs.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #20462#25913'(&M)'
NumGlyphs = 1
Spacing = 1
Default = True
OnClick = bsSkinButtonLoginClick
end
object bsSkinButtonClose: TbsSkinButton
Left = 233
Top = 142
Width = 88
Height = 32
TabOrder = 2
SkinData = dbs.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #20851#38381'(&C)'
NumGlyphs = 1
Spacing = 1
Cancel = True
OnClick = bsSkinButtonCloseClick
end
object bsSkinPasswordEdit1: TbsSkinPasswordEdit
Left = 168
Top = 16
Width = 150
Height = 21
Cursor = crIBeam
TabOrder = 0
SkinDataName = 'edit'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
PasswordKind = pkRoundRect
end
object bsSkinPasswordEdit2: TbsSkinPasswordEdit
Left = 168
Top = 56
Width = 150
Height = 21
Cursor = crIBeam
TabOrder = 3
SkinDataName = 'edit'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
PasswordKind = pkRoundRect
end
object bsSkinPasswordEdit3: TbsSkinPasswordEdit
Left = 168
Top = 96
Width = 150
Height = 21
Cursor = crIBeam
TabOrder = 4
SkinDataName = 'edit'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
PasswordKind = pkRoundRect
end
end
object bsBusinessSkinForm1: TbsBusinessSkinForm
UseFormCursorInNCArea = False
MaxMenuItemsInWindow = 0
ClientWidth = 0
ClientHeight = 0
HideCaptionButtons = False
AlwaysShowInTray = False
LogoBitMapTransparent = False
AlwaysMinimizeToTray = False
UseSkinFontInMenu = True
ShowIcon = False
MaximizeOnFullScreen = False
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 200
ShowObjectHint = False
UseDefaultObjectHint = True
MenusAlphaBlend = False
MenusAlphaBlendAnimation = False
MenusAlphaBlendValue = 200
DefCaptionFont.Charset = DEFAULT_CHARSET
DefCaptionFont.Color = clBtnText
DefCaptionFont.Height = 14
DefCaptionFont.Name = #23435#20307
DefCaptionFont.Style = [fsBold]
DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
DefInActiveCaptionFont.Color = clBtnShadow
DefInActiveCaptionFont.Height = 14
DefInActiveCaptionFont.Name = #23435#20307
DefInActiveCaptionFont.Style = [fsBold]
DefMenuItemHeight = 20
DefMenuItemFont.Charset = DEFAULT_CHARSET
DefMenuItemFont.Color = clWindowText
DefMenuItemFont.Height = 14
DefMenuItemFont.Name = #23435#20307
DefMenuItemFont.Style = []
UseDefaultSysMenu = True
SkinData = dbs.bsSkinData1
MinHeight = 0
MinWidth = 0
MaxHeight = 0
MaxWidth = 0
Magnetic = False
MagneticSize = 5
BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
Left = 40
Top = 16
end
object cdsChgPassword: TADOQuery
Connection = dbs.ADOConn
Parameters = <
item
Name = 'password'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = Null
end
item
Name = 'name'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end>
SQL.Strings = (
'UPDATE '#29992#25143' SET '#23494#30721'=:password where '#29992#25143#21517'=:name')
Left = 32
Top = 104
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -