www.pudn.com > zytgzgl.rar > frmpopmenu.frm, change:2004-06-16,size:4728b

VERSION 5.00 
Begin VB.Form frmpopmenu  
   Caption         =   "弹出式菜单" 
   ClientHeight    =   4800 
   ClientLeft      =   165 
   ClientTop       =   555 
   ClientWidth     =   6855 
   LinkTopic       =   "Form2" 
   ScaleHeight     =   4800 
   ScaleWidth      =   6855 
   StartUpPosition =   3  '窗口缺省 
   Begin VB.Menu Popmenu  
      Caption         =   "popmenu" 
      Visible         =   0   'False 
      Begin VB.Menu popmenu_addbasic  
         Caption         =   "添加基本工资设置" 
         Index           =   0 
      End 
      Begin VB.Menu popmenu_changebasic  
         Caption         =   "修改基本工资设置" 
         Index           =   1 
      End 
      Begin VB.Menu popmenu_delbasic  
         Caption         =   "删除基本工资设置" 
         Index           =   2 
      End 
   End 
   Begin VB.Menu Popmenu2  
      Caption         =   "popmenu2" 
      Visible         =   0   'False 
      Begin VB.Menu popmenu_addother  
         Caption         =   "添加其他项目设置" 
         Index           =   0 
      End 
      Begin VB.Menu popmenu_changeother  
         Caption         =   "修改其他项目设置" 
         Index           =   1 
      End 
      Begin VB.Menu popmenu_delother  
         Caption         =   "删除其他项目设置" 
         Index           =   2 
      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(Index As Integer) 
   ichangeflag = 1 
   frmbasicsetting.Show 
   frmbasicsetting.ZOrder 0 
End Sub 
Private Sub popmenu_addother_Click(Index As Integer) 
   ichangeflag = 1 
   frmothersetting.Show 
   frmothersetting.ZOrder 0 
End Sub 
Private Sub popmenu_changebasic_Click(Index As Integer) 
   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(Index As Integer) 
   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(Index As Integer) 
   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("真的要删除这条记录吗？", vbOKOnly + 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(Index As Integer) 
   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("真的要删除这条记录吗？", vbOKOnly + vbExclamation, "提示！") = vbOK Then 
      Call transactsql(sql, "salary") 
      MsgBox "其他项目记录已经删除！", vbOKOnly + vbExclamation, "提示！" 
      sql = "select * from salarysetting" 
      Call frmresult.othertopic 
      Call frmresult.showother(sql) 
      End If 
   End If 
End Sub