📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BackColor = &H00C0C0C0&
Caption = "人事信息管理系统 － 主界面"
ClientHeight = 8310
ClientLeft = 165
ClientTop = 225
ClientWidth = 9990
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MousePointer = 1 'Arrow
ScaleHeight = 8310
ScaleWidth = 9990
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdExit
Caption = "退出 "
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Left = 7800
TabIndex = 8
Top = 6480
Width = 1880
End
Begin VB.CommandButton cmdAbout
Caption = "关于"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Left = 7800
TabIndex = 7
Top = 5400
Width = 1880
End
Begin VB.CommandButton cmdMain
BackColor = &H00C0C0C0&
Caption = "用户授权管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Index = 5
Left = 250
Style = 1 'Graphical
TabIndex = 1
Top = 6480
Width = 1880
End
Begin VB.CommandButton cmdMain
BackColor = &H00C0C0C0&
Caption = "员工信息管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Index = 0
Left = 250
Style = 1 'Graphical
TabIndex = 6
Top = 480
Width = 1880
End
Begin VB.CommandButton cmdMain
BackColor = &H00C0C0C0&
Caption = "人员调动管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Index = 1
Left = 250
Style = 1 'Graphical
TabIndex = 5
Top = 1680
Width = 1880
End
Begin VB.CommandButton cmdMain
BackColor = &H00C0C0C0&
Caption = "工资管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Index = 2
Left = 250
Style = 1 'Graphical
TabIndex = 4
Top = 2880
Width = 1880
End
Begin VB.CommandButton cmdMain
BackColor = &H00C0C0C0&
Caption = "工资发放"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Index = 3
Left = 250
Style = 1 'Graphical
TabIndex = 3
Top = 4080
Width = 1880
End
Begin VB.CommandButton cmdMain
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "登陆用户管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 620
Index = 4
Left = 250
Style = 1 'Graphical
TabIndex = 2
Top = 5280
Width = 1880
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7935
Visible = 0 'False
Width = 9990
_ExtentX = 17621
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Enabled = 0 'False
Object.Width = 11986
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Text = "操作员："
TextSave = "操作员："
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdabout_Click()
frmAbout.Show
End Sub
Private Sub cmdexit_Click()
If MsgBox("真的要退出吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
End
End If
End Sub
Private Sub Form_Load()
subPurView
End Sub
Private Sub subPurView()
Dim mrc As ADODB.Recordset
Dim rcs As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer
' Dim j As Integer
' List1.Clear
For i = 0 To 5
cmdMain(i).Visible = False
Next i
' MsgBox Level, 32, "提示"
'If sLevel <> 0 Then
txtSQL = "select * from 权限 where level = '" & Level & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
' j = 0
For i = 0 To 5
If mrc.Fields(3 + i) = True Then
txtSQL = "select 模块名 from 子模块 where id = '" & (i + 1) & "'"
Set rcs = ExecuteSQL(txtSQL, MsgText)
' List1.AddItem rcs.Fields(0)
' mLevel(j) = i
' j = j + 1
cmdMain(i).Visible = True
End If
' If cmdMain(i).Visible = True Then
' mLevel(j) = i
' j = j + 1
' End If
Next i
' Label1.Caption = mLevel(2)
' For i = 1 To 17
' cmdMain(i).Visible = False
' Next i
' If sLevel <> 0 Then
' For i = 1 To sLevel
' cmdMain(mLevel(i)).Visible = True
' Next i
' End If
' TreeView1.Nodes.Clear
' TreeView1.Sorted = True
' Set mNode = TreeView1.Nodes.Add
' With mNode
' .Text = "主界面"
' .Tag = "topNode"
' End With
' For i = 0 To (sLevel - 1)
' txtSQL = "select 子模块.模块名 from 子模块 where 子模块.id = '" & mLevel(i) & "'"
' Set mrc = ExecuteSQL(txtSQL, MsgText)
' List1.AddItem mrc.Fields(0)
' Set mNode = TreeView1.Nodes.Add(1, tvwChild,, mrc.Fields(0))
' Next i
'End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'Private Sub Image1_Click()
' Frame1.Visible = False
' menuLead.Checked = False
'End Sub
Private Sub cmdMain_Click(Index As Integer)
Select Case Index
Case 0
renyuan.Show
Case 1
bumengdiaodong.Show
Case 2
frmGongguan.Show
Case 3
frmGongfa.Show
Case 4
frmManager.Show 1
Case 5
frmPower.Show 1
End Select
End Sub
'Private Sub menuLead_Click()
' If menuLead.Checked = True Then
' Frame1.Visible = False
' menuLead.Checked = False
' Else
' Frame1.Visible = True
' menuLead.Checked = True
' End If
'End Sub
'Private Sub menuPassWords_Click()
' frmEdituserinfo.Show 1
'End Sub
Private Sub menuReLoad_Click()
subPurView
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -