frmpopmenu.frm

企业工资管理

VERSION 5.00
Begin VB.Form frmpopMenu 
   Caption         =   "弹出式菜单"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu PopMenu 
      Caption         =   "popmenu"
      Visible         =   0   'False
      Begin VB.Menu PopMenu_AddBasic 
         Caption         =   "添加基本工资设置"
      End
      Begin VB.Menu PopMenu_ChangeBasic 
         Caption         =   "修改基本工资设置"
      End
      Begin VB.Menu PopMenu_DelBasic 
         Caption         =   "删除基本工资设置"
      End
   End
   Begin VB.Menu popmenu2 
      Caption         =   "popmenu2"
      Visible         =   0   'False
      Begin VB.Menu PopMenu_AddOther 
         Caption         =   "添加其他项目设置"
      End
      Begin VB.Menu PopMenu_ChangeOther 
         Caption         =   "修改其他项目设置"
      End
      Begin VB.Menu PopMenu_DelOther 
         Caption         =   "删除其他项目设置"
      End
   End
End
Attribute VB_Name = "frmpopMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub PopMenu_AddBasic_Click()                 '设置基本工资
    ichangeFlag = 1
    frmBasicSetting.Show
    frmBasicSetting.ZOrder 0
End Sub

Private Sub PopMenu_AddOther_Click()                 '设置其他项目
    ichangeFlag = 1
    frmOtherSetting.Show
    frmOtherSetting.ZOrder 0
End Sub

Private Sub PopMenu_ChangeBasic_Click()              '修改基本工资
    ichangeFlag = 2
    If frmResult.MSFlexGrid2.Rows > 1 Then
        strPublicSQL = "select * from SalarySetting where ID=" & Trim(frmResult.MSFlexGrid2.TextMatrix( _
                frmResult.MSFlexGrid2.Row, 0))
        frmBasicSetting.Show
        frmBasicSetting.ZOrder 0
    Else
     MsgBox "目前没有基本工资信息信息,请先添加信息！", vbOKOnly + vbExclamation, "警告!"
     ichangeFlag = 1
     frmBasicSetting.Show
     frmBasicSetting.ZOrder 0
    End If
End Sub

Private Sub PopMenu_ChangeOther_Click()             '修改其他项目
    ichangeFlag = 2
    If frmResult.MSFlexGrid3.Rows > 1 Then
        strPublicSQL = "select * from SalaryOther where ID=" & Trim(frmResult.MSFlexGrid3.TextMatrix( _
                frmResult.MSFlexGrid3.Row, 0))
        frmOtherSetting.Show
        frmOtherSetting.ZOrder 0
    Else
     MsgBox "目前没有其他项目信息,请先添加信息！", vbOKOnly + vbExclamation, "警告!"
     ichangeFlag = 1
     frmOtherSetting.Show
     frmOtherSetting.ZOrder 0
    End If
End Sub

Private Sub PopMenu_DelBasic_Click()                '删除基本工资
    Dim sql As String
    Dim strID As String
    If frmResult.MSFlexGrid2.Rows = 1 Then
        MsgBox "目前没有基本工资信息,请先添加信息！", vbOKOnly + vbExclamation, "警告!"
        ichangeFlag = 1
        frmBasicSetting.Show
        frmBasicSetting.ZOrder 0
    Else
        sql = "delete from SalarySetting where ID=" & Trim(frmResult.MSFlexGrid2.TextMatrix( _
                frmResult.MSFlexGrid2.Row, 0))
        If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
        Then
        Call TransactSQL(sql, "Salary")
        MsgBox "基本工资信息记录已经删除！", vbOKOnly + vbExclamation, "提示!"
        sql = "select * from SalarySetting"
        Call frmResult.BasicTopic
        Call frmResult.showBasic(sql)
        frmBasicSetting.Show
        frmBasicSetting.ZOrder 0
        MsgBox "请重新设置员工的基本工资"
        Call frmSumSalary.reSumSalary(Date)                   '重新统计当月工资
        sql = "select * from SalaryStatistics"
        Call frmResult.ListTopic
        Call frmResult.ShowData(sql)
        End If
    End If
End Sub

Private Sub PopMenu_DelOther_Click()                '删除其他项目
     Dim sql As String
    If frmResult.MSFlexGrid3.Rows = 1 Then
        MsgBox "目前没有其他项目信息,请先添加信息！", vbOKOnly + vbExclamation, "警告!"
        ichangeFlag = 1
        frmOtherSetting.Show
        frmOtherSetting.ZOrder 0
    Else
        sql = "delete from SalaryOther where ID=" & Trim(frmResult.MSFlexGrid3.TextMatrix( _
                frmResult.MSFlexGrid3.Row, 0))
        If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
        Then
        Call TransactSQL(sql, "Salary")
        MsgBox "基本其他项目记录已经删除！", vbOKOnly + vbExclamation, "提示!"
        sql = "select * from SalaryOther"
        Call frmResult.OtherTopic
        Call frmResult.showOther(sql)
        End If
    End If
End Sub