frmmain.frm

软件需求一般包含三个层次—业务需求、用户需求和功能需求

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "员工工资管理系统"
   ClientHeight    =   6105
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   8400
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu Menu_System 
      Caption         =   "系统"
      Begin VB.Menu Menu_adduser 
         Caption         =   "添加用户"
         Index           =   0
      End
      Begin VB.Menu Menu_changepwd 
         Caption         =   "修改密码"
         Index           =   1
      End
      Begin VB.Menu Menu_exit 
         Caption         =   "退出系统"
         Index           =   2
      End
   End
   Begin VB.Menu Menu_info 
      Caption         =   "工资信息设置"
      Begin VB.Menu Menu_basic 
         Caption         =   "基本工资设置"
         Index           =   0
      End
      Begin VB.Menu Menu_others 
         Caption         =   "其他工资设置"
         Index           =   1
      End
      Begin VB.Menu Menu_formulasetting 
         Caption         =   "工资计算公式设置"
         Index           =   2
      End
   End
   Begin VB.Menu Menu_manage 
      Caption         =   "工资信息管理"
      Begin VB.Menu Menu_sumattendance 
         Caption         =   "出勤统计"
         Index           =   0
      End
      Begin VB.Menu Menu_getsalary 
         Caption         =   "计算实发工资"
         Index           =   1
      End
      Begin VB.Menu Menu_check 
         Caption         =   "查询工资"
         Index           =   2
      End
      Begin VB.Menu Menu_out 
         Caption         =   "导出工资表"
         Index           =   3
      End
   End
   Begin VB.Menu Menu_about 
      Caption         =   "关于"
   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 Menu_about_Click()
  frmabout.Show
  frmabout.ZOrder 0
End Sub
Private Sub Menu_adduser_Click(Index As Integer)
  If Trim(strusername) <> "admin" Then
     MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"
  ElseIf Trim(strusername) = "admin" Then
    frmadduser.Show
    frmadduser.ZOrder 0
  End If
End Sub
Private Sub Menu_basic_Click(Index As Integer)
  If Trim(strusername) <> "admin" Then
     MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"
  ElseIf Trim(strusername) = "admin" Then
    ichangeflag = 1
    frmbasicsetting.Show
    frmbasicsetting.ZOrder 0
  End If
End Sub
Private Sub Menu_changepwd_Click(Index As Integer)
  frmchangepwd.Show
  frmchangepwd.ZOrder 0
End Sub
Private Sub Menu_check_Click(Index As Integer)
  frmresult.Show
  frmresult.ZOrder 0
  frmresult.Caption = "信息查询"
End Sub
Private Sub Menu_exit_Click(Index As Integer)
  Unload Me
  Exit Sub
End Sub
Private Sub Menu_formulasetting_Click(Index As Integer)
  If Trim(strusername) <> "admin" Then
     MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"
  ElseIf Trim(strusername) = "admin" Then
    frmformula.Show
    frmformula.ZOrder 0
  End If
End Sub
Private Sub Menu_getsalary_Click(Index As Integer)
  If Trim(strusername) <> "admin" Then
    MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"
  ElseIf Trim(strusername) = "admin" Then
    frmsumsalary.Show
    frmsumsalary.ZOrder 0
  End If
End Sub
Private Sub Menu_others_Click(Index As Integer)
  If Trim(strusername) <> "admin" Then
     MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"
  ElseIf Trim(strusername) = "admin" Then
    ichangeflag = 1
    frmothersetting.Show
    frmothersetting.ZOrder 0
  End If
End Sub
Private Sub Menu_out_Click(Index As Integer)
  If Trim(strusername) <> "admin" Then
     MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"
  ElseIf Trim(strusername) = "admin" Then
    frmexport.Show
    frmexport.ZOrder 0
  End If
End Sub
Private Sub Menu_sumattendance_Click(Index As Integer)
  frmsuminout.Show
  frmsuminout.ZOrder 0
End Sub