📄 frmsys.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form FrmSys
BorderStyle = 3 'Fixed Dialog
Caption = "仓储管理_用户管理"
ClientHeight = 5160
ClientLeft = 3510
ClientTop = 1560
ClientWidth = 6315
ForeColor = &H80000008&
Icon = "FrmSys.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5160
ScaleWidth = 6315
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 4995
Left = 135
TabIndex = 0
Top = 75
Width = 6135
_ExtentX = 10821
_ExtentY = 8811
_Version = 393216
Tabs = 4
Tab = 3
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "修改当前用户"
TabPicture(0) = "FrmSys.frx":030A
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "fra1"
Tab(0).ControlCount= 1
TabCaption(1) = "增加新用户"
TabPicture(1) = "FrmSys.frx":0326
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "fra2"
Tab(1).ControlCount= 1
TabCaption(2) = "删除用户"
TabPicture(2) = "FrmSys.frx":0342
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "fra3"
Tab(2).ControlCount= 1
TabCaption(3) = "权限设定"
TabPicture(3) = "FrmSys.frx":035E
Tab(3).ControlEnabled= -1 'True
Tab(3).Control(0)= "fra4"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).ControlCount= 1
Begin VB.Frame fra4
Height = 4530
Left = 75
TabIndex = 37
Top = 360
Width = 5940
Begin VB.TextBox txtUser
Height = 315
Left = 330
TabIndex = 53
Text = "User"
Top = 3645
Visible = 0 'False
Width = 1155
End
Begin VB.ListBox LisUser
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1950
Left = 75
TabIndex = 51
Top = 1440
Width = 2160
End
Begin VB.Frame Frame2
Caption = "仓库业务"
Height = 2355
Left = 4245
TabIndex = 45
Top = 1020
Width = 1410
Begin VB.CheckBox cheQC
Caption = "增加记录"
Height = 315
Index = 0
Left = 135
TabIndex = 49
Top = 360
Width = 1230
End
Begin VB.CheckBox cheQC
Caption = "修改记录"
Height = 315
Index = 1
Left = 105
TabIndex = 48
Top = 840
Width = 1230
End
Begin VB.CheckBox cheQC
Caption = "删除记录"
Height = 315
Index = 2
Left = 105
TabIndex = 47
Top = 1320
Width = 1230
End
Begin VB.CheckBox cheQC
Caption = "打印记录"
Height = 315
Index = 3
Left = 105
TabIndex = 46
Top = 1800
Width = 1230
End
End
Begin VB.Frame Frame1
Caption = "公司业务"
Height = 2355
Left = 2520
TabIndex = 40
Top = 1035
Width = 1410
Begin VB.CheckBox cheZG
Caption = "打印记录"
Height = 315
Index = 3
Left = 105
TabIndex = 44
Top = 1800
Width = 1215
End
Begin VB.CheckBox cheZG
Caption = "删除记录"
Height = 315
Index = 2
Left = 105
TabIndex = 43
Top = 1320
Width = 1215
End
Begin VB.CheckBox cheZG
Caption = "修改记录"
Height = 315
Index = 1
Left = 105
TabIndex = 42
Top = 840
Width = 1215
End
Begin VB.CheckBox cheZG
Caption = "增加记录"
Height = 315
Index = 0
Left = 105
TabIndex = 41
Top = 360
Width = 1215
End
End
Begin VB.CommandButton cmdExit3
Caption = "退出"
Height = 810
Left = 3330
Picture = "FrmSys.frx":037A
Style = 1 'Graphical
TabIndex = 39
Top = 3585
Width = 900
End
Begin VB.CommandButton cmdSave
Caption = "保存设定"
Height = 810
Left = 1785
Picture = "FrmSys.frx":0C44
Style = 1 'Graphical
TabIndex = 38
Top = 3585
Width = 885
End
Begin VB.Label Label13
Caption = "请在下表中选择用户："
Height = 300
Left = 105
TabIndex = 52
Top = 1005
Width = 1860
End
Begin VB.Label lbl3
Alignment = 2 'Center
Caption = "当前用户是普通用户，没有修改权限设定的权限"
Height = 300
Left = 390
TabIndex = 50
Top = 405
Visible = 0 'False
Width = 4815
End
End
Begin VB.Frame fra3
Height = 4545
Left = -74925
TabIndex = 29
Top = 360
Width = 5985
Begin VB.TextBox txtSelectUser
Enabled = 0 'False
Height = 285
Left = 2550
TabIndex = 13
Top = 2985
Width = 2910
End
Begin VB.CommandButton cmdDelete
Caption = "删除用户"
Height = 810
Left = 1635
Picture = "FrmSys.frx":150E
Style = 1 'Graphical
TabIndex = 14
Top = 3645
Width = 885
End
Begin VB.CommandButton cmdExit2
Caption = "退出"
Height = 810
Left = 3165
Picture = "FrmSys.frx":1DD8
Style = 1 'Graphical
TabIndex = 15
Top = 3645
Width = 900
End
Begin VB.ListBox ListUserName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1950
Left = 615
TabIndex = 12
Top = 930
Width = 4860
End
Begin VB.Label Label12
Caption = "选中要删除的用户名为："
Height = 300
Left = 600
TabIndex = 35
Top = 3045
Width = 2085
End
Begin VB.Label lblPurview
Height = 480
Left = 2040
TabIndex = 32
Top = 165
Width = 3465
End
Begin VB.Label Label11
Caption = "当前用户权限："
Height = 285
Left = 645
TabIndex = 31
Top = 195
Width = 1305
End
Begin VB.Label Label10
Caption = "请在下表中选择要删除的用户："
Height = 300
Left = 630
TabIndex = 30
Top = 675
Width = 4740
End
End
Begin VB.Frame fra2
Height = 4470
Left = -74880
TabIndex = 16
Top = 345
Width = 5925
Begin VB.CommandButton cmdNew
Caption = "保存设定"
Enabled = 0 'False
Height = 810
Left = 1890
Picture = "FrmSys.frx":26A2
Style = 1 'Graphical
TabIndex = 10
Top = 3240
Width = 885
End
Begin VB.CommandButton cmdExit1
Caption = "退出"
Height = 810
Left = 3435
Picture = "FrmSys.frx":2F6C
Style = 1 'Graphical
TabIndex = 11
Top = 3255
Width = 900
End
Begin VB.ComboBox cbPurview
Height = 300
ItemData = "FrmSys.frx":3836
Left = 2265
List = "FrmSys.frx":3840
Style = 2 'Dropdown List
TabIndex = 17
Top = 1455
Width = 2136
End
Begin VB.TextBox txtPWD1
BeginProperty Font
Name = "Symbol"
Size = 9
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 276
IMEMode = 3 'DISABLE
Left = 2265
PasswordChar = "*"
TabIndex = 8
Top = 1920
Width = 2136
End
Begin VB.TextBox txtPWD2
BeginProperty Font
Name = "Symbol"
Size = 9
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 276
IMEMode = 3 'DISABLE
Left = 2265
PasswordChar = "*"
TabIndex = 9
Top = 2340
Width = 2136
End
Begin VB.TextBox txtUser2
Height = 276
Left = 2265
TabIndex = 7
Top = 1020
Width = 2136
End
Begin VB.Label lblStatus
Alignment = 2 'Center
Caption = "当前用户是普通用户，没有增加新用户的权限"
Height = 300
Left = 705
TabIndex = 36
Top = 225
Visible = 0 'False
Width = 4815
End
Begin VB.Label Label7
Caption = "权 限："
Height = 330
Left = 1440
TabIndex = 21
Top = 1470
Width = 1335
End
Begin VB.Label Label3
Caption = "确认密码："
Height = 330
Left = 1440
TabIndex = 20
Top = 2400
Width = 1335
End
Begin VB.Label Label2
Caption = "密 码："
Height = 330
Left = 1440
TabIndex = 19
Top = 1950
Width = 1335
End
Begin VB.Label Label1
Caption = "用户名："
Height = 330
Left = 1455
TabIndex = 18
Top = 1035
Width = 1335
End
End
Begin VB.Frame fra1
Height = 4530
Left = -74925
TabIndex = 22
Top = 360
Width = 5940
Begin VB.TextBox txtOldPWD1
Height = 270
Left = 4170
TabIndex = 34
Top = 4170
Visible = 0 'False
Width = 1410
End
Begin VB.TextBox txtID
Height = 270
Left = 4395
TabIndex = 33
Top = 3765
Visible = 0 'False
Width = 1200
End
Begin VB.CommandButton cmdEdit
Caption = "保存设定"
Height = 810
Left = 1785
Picture = "FrmSys.frx":3856
Style = 1 'Graphical
TabIndex = 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -