📄 unitumanage.dfm
字号:
object frmUManage: TfrmUManage
Left = 197
Top = 232
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = #29992#25143#24080#21495#26435#38480#31649#29702
ClientHeight = 313
ClientWidth = 535
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 535
Height = 313
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #29992#25143#20449#24687
object GroupBox1: TGroupBox
Left = 3
Top = 19
Width = 262
Height = 204
Caption = #29992#25143#20449#24687
TabOrder = 0
object Label1: TLabel
Left = 30
Top = 36
Width = 33
Height = 13
Caption = #24080#21495':'
end
object Label2: TLabel
Left = 30
Top = 125
Width = 33
Height = 13
Caption = #23494#30721':'
end
object Label3: TLabel
Left = 30
Top = 80
Width = 33
Height = 13
Caption = #26165#31216':'
end
object Label4: TLabel
Left = 4
Top = 170
Width = 59
Height = 13
Caption = #30830#35748#23494#30721':'
end
object dbedtID: TDBEdit
Left = 62
Top = 34
Width = 190
Height = 21
DataField = 'id'
DataSource = dsUser
TabOrder = 0
end
object dbedtUSN: TDBEdit
Left = 62
Top = 77
Width = 190
Height = 21
DataField = 'usn'
DataSource = dsUser
TabOrder = 1
end
object dbedtPWD: TDBEdit
Left = 62
Top = 120
Width = 190
Height = 21
DataField = 'pwd'
DataSource = dsUser
PasswordChar = '*'
TabOrder = 2
end
object edtPWDC: TEdit
Left = 64
Top = 166
Width = 190
Height = 21
PasswordChar = '*'
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 266
Top = 18
Width = 257
Height = 205
Caption = #29992#25143#21015#34920
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 253
Height = 188
Align = alClient
DataSource = dsUser
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'id'
Title.Caption = #24080#21495
Width = 115
Visible = True
end
item
Expanded = False
FieldName = 'usn'
Title.Caption = #26165#31216
Width = 120
Visible = True
end>
end
end
object GroupBox3: TGroupBox
Left = 4
Top = 228
Width = 520
Height = 57
Caption = #25805#20316':'
TabOrder = 2
object BitBtn1: TBitBtn
Left = 103
Top = 22
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 182
Top = 22
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 1
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 263
Top = 22
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 2
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 341
Top = 22
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 3
OnClick = BitBtn4Click
end
object BitBtn9: TBitBtn
Left = 421
Top = 22
Width = 75
Height = 25
Caption = #20851#38381
TabOrder = 4
OnClick = BitBtn9Click
end
end
end
object TabSheet2: TTabSheet
Caption = #29992#25143#26435#38480
ImageIndex = 1
object GroupBox4: TGroupBox
Left = 0
Top = 0
Width = 527
Height = 285
Align = alClient
TabOrder = 0
object GroupBox5: TGroupBox
Left = 202
Top = 222
Width = 317
Height = 57
Caption = #25805#20316':'
TabOrder = 0
object BitBtn5: TBitBtn
Left = 9
Top = 22
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 0
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 83
Top = 22
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 1
OnClick = BitBtn6Click
end
object BitBtn7: TBitBtn
Left = 157
Top = 22
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 2
OnClick = BitBtn7Click
end
object BitBtn8: TBitBtn
Left = 231
Top = 22
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 3
OnClick = BitBtn8Click
end
end
object GroupBox6: TGroupBox
Left = 202
Top = 10
Width = 317
Height = 203
Caption = #20010#20154#26435#38480#20449#24687#21015#34920
TabOrder = 1
object DBGrid2: TDBGrid
Left = 2
Top = 15
Width = 313
Height = 186
Align = alClient
DataSource = dsLv
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'id'
Title.Caption = #33258#21160#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'frmName'
Title.Caption = #26435#38480#31383#21475
Visible = True
end>
end
end
object GroupBox7: TGroupBox
Left = 4
Top = 10
Width = 195
Height = 269
Caption = #29992#25143#20449#24687':'
TabOrder = 2
object Label5: TLabel
Left = 6
Top = 118
Width = 26
Height = 13
Caption = #26435#38480
end
object Label6: TLabel
Left = 12
Top = 30
Width = 33
Height = 13
Caption = #24080#21495':'
end
object Label7: TLabel
Left = 12
Top = 74
Width = 33
Height = 13
Caption = #26165#31216':'
end
object DBText1: TDBText
Left = 50
Top = 28
Width = 119
Height = 17
DataField = 'id'
DataSource = dsUser
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object DBText2: TDBText
Left = 46
Top = 74
Width = 119
Height = 17
DataField = 'usn'
DataSource = dsUser
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 32
Top = 114
Width = 145
Height = 21
DataField = 'frmLv'
DataSource = dsLv
KeyField = 'frm'
ListField = 'name'
ListSource = dsLvDict
TabOrder = 0
OnCloseUp = DBLookupComboBox1CloseUp
end
object DBCheckBox1: TDBCheckBox
Left = 12
Top = 164
Width = 45
Height = 17
Caption = #26597#30475
DataField = 'Read'
DataSource = dsLv
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object DBCheckBox2: TDBCheckBox
Left = 67
Top = 164
Width = 49
Height = 17
Caption = #21024#38500
DataField = 'Delete'
DataSource = dsLv
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object DBCheckBox3: TDBCheckBox
Left = 122
Top = 164
Width = 49
Height = 17
Caption = #20462#25913
DataField = 'Modify'
DataSource = dsLv
TabOrder = 3
ValueChecked = 'True'
ValueUnchecked = 'False'
end
end
end
end
end
object adoConn: TADOConnection
KeepConnection = False
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 10
Top = 230
end
object dsUser: TDataSource
DataSet = adotbUser
Left = 66
Top = 230
end
object dsLv: TDataSource
DataSet = adotbLv
Left = 65
Top = 257
end
object adotbUser: TADOTable
Connection = adoConn
CursorType = ctStatic
TableName = 'uManage'
Left = 38
Top = 230
end
object adotbLv: TADOTable
Connection = adoConn
CursorType = ctStatic
IndexFieldNames = 'uManage'
MasterFields = 'id'
MasterSource = dsUser
TableName = 'uLevel'
Left = 40
Top = 256
end
object adotbLvDict: TADOTable
Connection = adoConn
CursorType = ctStatic
TableName = 'dLevel'
Left = 38
Top = 282
end
object dsLvDict: TDataSource
DataSet = adotbLvDict
Left = 66
Top = 284
end
object adoLvOper: TADOQuery
Connection = adoConn
Parameters = <>
Left = 94
Top = 230
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -