📄 uuser_m.dfm
字号:
inherited frmuser_m: Tfrmuser_m
Left = 430
Top = 183
Caption = #29992#25143#31649#29702
ClientHeight = 156
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
inherited GroupBox: TGroupBox
Height = 142
TabOrder = 3
inherited Label1: TLabel
Top = 20
Caption = #29992#25143#20195#21495
end
object Label2: TLabel [1]
Left = 8
Top = 43
Width = 57
Height = 17
AutoSize = False
Caption = #21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel [2]
Left = 8
Top = 67
Width = 57
Height = 17
AutoSize = False
Caption = #23494#30721
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel [3]
Left = 8
Top = 91
Width = 57
Height = 17
AutoSize = False
Caption = #25152#23646#32676#32452
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
inherited Edit1: TwwDBEdit
Width = 97
CharCase = ecNormal
DataField = 'fusercode'
DataSource = frmpermiss.DSuser
end
object wwDBEdit1: TwwDBEdit
Left = 64
Top = 40
Width = 145
Height = 21
CharCase = ecUpperCase
DataField = 'fusername'
DataSource = frmpermiss.DSuser
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit2: TwwDBEdit
Left = 64
Top = 65
Width = 121
Height = 21
CharCase = ecUpperCase
DataField = 'fpassword'
DataSource = frmpermiss.DSuser
TabOrder = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBLookupCombo1: TwwDBLookupCombo
Left = 64
Top = 89
Width = 81
Height = 21
DropDownAlignment = taLeftJustify
Selected.Strings = (
'fid'#9'8'#9#24207#21495#9'F'
'fcode'#9'12'#9#32676#32452#20195#21495#9'F'
'fname'#9'20'#9#32676#32452#21517#31216#9'F')
DataField = 'fgroupid'
DataSource = frmpermiss.DSuser
LookupTable = CDSgroup
LookupField = 'fid'
Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
TabOrder = 3
AutoDropDown = False
ShowButton = True
PreciseEditRegion = False
AllowClearKey = False
end
object wwCheckBox1: TwwCheckBox
Left = 64
Top = 114
Width = 97
Height = 17
DisableThemes = False
AlwaysTransparent = False
ValueChecked = 'True'
ValueUnchecked = 'False'
DisplayValueChecked = 'True'
DisplayValueUnchecked = 'False'
NullAndBlankState = cbUnchecked
Caption = #36229#32423#29992#25143
DataField = 'fadmin'
DataSource = frmpermiss.DSuser
TabOrder = 4
end
end
inherited Button1: TButton
TabOrder = 0
end
inherited Button2: TButton
TabOrder = 1
end
inherited Button3: TButton
Top = 120
TabOrder = 2
end
object CDSgroup: TClientDataSet
Aggregates = <>
Params = <>
Left = 224
Top = 88
object CDSgroupfid: TAutoIncField
DisplayLabel = #24207#21495
DisplayWidth = 8
FieldName = 'fid'
ReadOnly = True
end
object CDSgroupfcode: TWideStringField
DisplayLabel = #32676#32452#20195#21495
DisplayWidth = 12
FieldName = 'fcode'
Size = 12
end
object CDSgroupfname: TWideStringField
DisplayLabel = #32676#32452#21517#31216
DisplayWidth = 20
FieldName = 'fname'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -