frmpopmenu.frm

用VB写的工资管理系统,带论文的哦.非常不错

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