VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H80000011&
   Caption         =   "員工工資管理系統(tǒng)"
   ClientHeight    =   7950
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9255
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu Menu_System 
      Caption         =   "系統(tǒng)"
      Begin VB.Menu Menu_AddUser 
         Caption         =   "添加用戶"
      End
      Begin VB.Menu Menu_ChangePWD 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu Menu_Exit 
         Caption         =   "退出系統(tǒng)"
      End
   End
   Begin VB.Menu Menu_Salary_Setting 
      Caption         =   "工資信息設(shè)置"
      Begin VB.Menu Menu_Basic 
         Caption         =   "基本工資設(shè)置"
      End
      Begin VB.Menu Menu_Others 
         Caption         =   "其他項(xiàng)目設(shè)置"
      End
      Begin VB.Menu Menu_FormulaSetting 
         Caption         =   "工資計(jì)算公式設(shè)置"
      End
   End
   Begin VB.Menu Menu_Salary_Manging 
      Caption         =   "工資信息管理"
      Begin VB.Menu Menu_SumAttendance 
         Caption         =   "出勤統(tǒng)計(jì)"
      End
      Begin VB.Menu Menu_GetSalary 
         Caption         =   "計(jì)算實(shí)發(fā)工資"
      End
      Begin VB.Menu Menu_Check 
         Caption         =   "查詢工資"
      End
      Begin VB.Menu Menu_Out 
         Caption         =   "導(dǎo)出工資表"
      End
   End
   Begin VB.Menu Menu_About 
      Caption         =   "關(guān)于"
   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()              '關(guān)于對(duì)話框
    frmAbout.Show
    frmAbout.ZOrder 0
End Sub

Private Sub Menu_AddUser_Click()            '添加用戶
    frmAddUser.Show
    frmAddUser.ZOrder 0
End Sub

Private Sub Menu_Basic_Click()               '設(shè)置基本工資
    ichangeFlag = 1
    frmBasicSetting.Show
    frmBasicSetting.ZOrder 0
End Sub

Private Sub Menu_ChangePWD_Click()           '修改密碼
    frmChangePWD.Show
    frmChangePWD.ZOrder 0
End Sub

Private Sub Menu_Check_Click()               '查詢信息
    frmResult.Show
    frmResult.ZOrder 0
    frmResult.Caption = "信息查詢"
End Sub

Private Sub Menu_Exit_Click()                '退出系統(tǒng)
    Unload Me
    Exit Sub
End Sub

Private Sub Menu_FormulaSetting_Click()     '設(shè)置計(jì)算公式
    frmFormula.Show
    frmFormula.ZOrder 0
End Sub

Private Sub Menu_GetSalary_Click()          '計(jì)算實(shí)發(fā)工資
    frmSumSalary.Show
    frmSumSalary.ZOrder 0
End Sub

Private Sub Menu_Others_Click()             '設(shè)置其他項(xiàng)目
    ichangeFlag = 1
    frmOtherSetting.Show
    frmOtherSetting.ZOrder 0
End Sub

Private Sub Menu_Out_Click()                '導(dǎo)出數(shù)據(jù)
    frmExport.Show
    frmExport.ZOrder 0
End Sub

Private Sub Menu_SumAttendance_Click()      '考勤統(tǒng)計(jì)
    frmSumInOut.Show
    frmSumInOut.ZOrder 0
End Sub