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         =   ""
      Enabled         =   0   'False
      Visible         =   0   'False
   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_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