📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form FrmMain
BorderStyle = 1 'Fixed Single
Caption = "项目售后支持管理系统"
ClientHeight = 8220
ClientLeft = 45
ClientTop = 330
ClientWidth = 11850
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "FrmMain.frx":0CCA
ScaleHeight = 8220
ScaleWidth = 11850
StartUpPosition = 2 '屏幕中心
Begin VB.Label lblPr
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "问题管理"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 7050
MouseIcon = "FrmMain.frx":2CB66
MousePointer = 99 'Custom
TabIndex = 6
Top = 1920
Width = 1260
End
Begin VB.Label lblexit
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "退出系统"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 9885
MouseIcon = "FrmMain.frx":2CE70
MousePointer = 99 'Custom
TabIndex = 5
Top = 5640
Width = 1260
End
Begin VB.Image Image1
Height = 300
Left = 6240
Picture = "FrmMain.frx":2D17A
Top = 1920
Width = 300
End
Begin VB.Label LblDespatch
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "工作分配"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 9810
MouseIcon = "FrmMain.frx":2D596
MousePointer = 99 'Custom
TabIndex = 4
Top = 1920
Width = 1260
End
Begin VB.Image Image2
Height = 300
Left = 9000
Picture = "FrmMain.frx":2D8A0
Top = 1920
Width = 300
End
Begin VB.Label lblTask
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "工作记录"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 7050
MouseIcon = "FrmMain.frx":2DCBC
MousePointer = 99 'Custom
TabIndex = 3
Top = 2880
Width = 1260
End
Begin VB.Image Image3
Height = 300
Left = 6240
Picture = "FrmMain.frx":2DFC6
Top = 2880
Width = 300
End
Begin VB.Label lblInvestigate
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "服务调查"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 9810
MouseIcon = "FrmMain.frx":2E3E2
MousePointer = 99 'Custom
TabIndex = 2
Top = 2820
Width = 1260
End
Begin VB.Image Image4
Height = 300
Left = 9000
Picture = "FrmMain.frx":2E6EC
Top = 2820
Width = 300
End
Begin VB.Label LblManager
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "信息查询"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 7050
MouseIcon = "FrmMain.frx":2EB08
MousePointer = 99 'Custom
TabIndex = 1
Top = 3840
Width = 1260
End
Begin VB.Image Image5
Height = 300
Left = 6240
Picture = "FrmMain.frx":2EE12
Top = 3840
Width = 300
End
Begin VB.Shape Shape1
BackColor = &H00000080&
BorderColor = &H00000080&
Height = 735
Left = 9645
Shape = 4 'Rounded Rectangle
Top = 5400
Width = 1695
End
Begin VB.Image Image6
Height = 300
Left = 9045
Picture = "FrmMain.frx":2F22E
Top = 3840
Width = 300
End
Begin VB.Label lblUsers
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户管理"
BeginProperty Font
Name = "幼圆"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 300
Left = 9855
MouseIcon = "FrmMain.frx":2F64A
MousePointer = 99 'Custom
TabIndex = 0
Top = 3840
Width = 1260
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
FrmLogin.Show 1
End Sub
Private Sub LblDespatch_Click()
If CurUser.UserType = 2 Then
FrmDesMan.Show 1
Else
MsgBox "没有权限"
End If
End Sub
Private Sub lblexit_Click()
DBapi_Disconnect
End
End Sub
Private Sub lblInvestigate_Click()
If CurUser.UserType = 1 Then
FrmInvMan.Show 1
Else
MsgBox "没有权限"
End If
End Sub
Private Sub LblManager_Click()
FrmFullview.Show 1
End Sub
Private Sub lblPr_Click()
If CurUser.UserType = 1 Then
FrmPrMan.Show 1
Else
MsgBox "没有权限"
End If
End Sub
Private Sub lblTask_Click()
If CurUser.UserType <> 1 Then
FrmTaskMan.Show 1
Else
MsgBox "没有权限"
End If
End Sub
Private Sub lblUsers_Click()
If CurUser.UserName = "Manager" Or CurUser.UserType = 1 Then '只有Manager和管理员才能进入用户管理窗体
FrmUserMan.Show 1
Else '其他用户只能编辑自己的用户信息
With FrmUserEdit
.OriUser = CurUser.UserName
.txtUserName = CurUser.UserName
.txtPass = CurUser.UserPwd
.txtPass2 = CurUser.UserPwd
If CurUser.UserType = 2 Then
.ComboType.AddItem "主管用户"
Else
.ComboType.AddItem "普通用户"
End If
.ComboType.ListIndex = 0
.txtEname = CurUser.Ename
.txtEname.Enabled = False
.txtEmail = CurUser.Email
.Modify = True
.Show 1
End With
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -