frm_popmenu.frm

一个vb开发的人事信息管理软件,提供基本的人事信息管理

VERSION 5.00
Begin VB.Form Frm_PopMenu 
   Caption         =   "弹出式菜单"
   ClientHeight    =   2025
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8325
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2025
   ScaleWidth      =   8325
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu popmenu 
      Caption         =   "PopMenu"
      Begin VB.Menu pop_InfoDel 
         Caption         =   "职工基本信息删除"
      End
   End
   Begin VB.Menu Apopmenu 
      Caption         =   "Apopmenu"
      Begin VB.Menu pop_Alter_Del 
         Caption         =   "职工调动信息删除"
      End
   End
   Begin VB.Menu ATpopmenu 
      Caption         =   "ATpopmenu"
      Begin VB.Menu pop_AttendDel 
         Caption         =   "职工上下班信息删除"
      End
   End
   Begin VB.Menu Lpopmenu 
      Caption         =   "Lpopmenu"
      Begin VB.Menu pop_LeaveInfoDel 
         Caption         =   "职工请假信息删除"
      End
   End
   Begin VB.Menu Opopmenu 
      Caption         =   "Opopmenu"
      Begin VB.Menu pop_OverInfoDel 
         Caption         =   "职工加班信息删除"
      End
   End
   Begin VB.Menu Epopmenu 
      Caption         =   "Epopmenu"
      Begin VB.Menu pop_ErrandInfoDel 
         Caption         =   "职工出差信息删除"
      End
   End
End
Attribute VB_Name = "Frm_PopMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub pop_Alter_Del_Click()
    iAFlag = 2 ''''''代表是删除记录
    Dim i As Integer
    For i = 0 To Frm_AlterChange.Grid1.Cols - 1
        sAData(i) = Frm_AlterChange.Grid1.TextMatrix(Frm_AlterChange.Grid1.Row, i)
    Next
    Frm_AddAlter.Show 1
End Sub

Private Sub pop_AttendDel_Click()
      iATFlag = 2 ''''''代表是删除记录
    Dim i As Integer
    For i = 0 To Frm_AttendanceChange.Grid1.Cols - 1
        sATData(i) = Frm_AttendanceChange.Grid1.TextMatrix(Frm_AttendanceChange.Grid1.Row, i)
    Next
    Frm_AddAttendance.Show 1
End Sub

Private Sub pop_ErrandInfoDel_Click()
    iOEFlag = 2 ''''''代表是删除记录
    iTableType = 3
    Dim i As Integer
    For i = 0 To Frm_OtherKQChange.Grid3.Cols - 1
        sOEData(i) = Frm_OtherKQChange.Grid3.TextMatrix(Frm_OtherKQChange.Grid3.Row, i)
    Next
    Frm_AddOtherKQ.Show 1
End Sub

Private Sub pop_InfoDel_Click()
    iFlag = 2 ''''''代表是删除记录
    Dim i As Integer
    For i = 0 To Frm_InfoChange.Grid1.Cols - 1
        sData(i) = Frm_InfoChange.Grid1.TextMatrix(Frm_InfoChange.Grid1.Row, i)
    Next
    Frm_InfoInput.Show 1
End Sub

Private Sub pop_InfoEdit_Click()
    iFlag = 1 ''''代表修改记录''''''''''
    Dim i As Integer
    For i = 0 To Frm_InfoChange.Grid1.Cols - 1
        sData(i) = Frm_InfoChange.Grid1.TextMatrix(Frm_InfoChange.Grid1.Row, i)
    Next
    Frm_InfoInput.Show 1
End Sub

Private Sub pop_InfoInput_Click()
    iFlag = 0 ''''代表是增加记录
    Frm_InfoInput.Show 1
End Sub

Private Sub pop_LeaveInfoDel_Click()
    iOLFlag = 2 ''''''代表是删除记录
    iTableType = 1
    Dim i As Integer
    For i = 0 To Frm_OtherKQChange.Grid1.Cols - 1
        sOLData(i) = Frm_OtherKQChange.Grid1.TextMatrix(Frm_OtherKQChange.Grid1.Row, i)
    Next
    Frm_AddOtherKQ.Show 1
End Sub

Private Sub pop_OverInfoDel_Click()
    iOOFlag = 2 ''''''代表是删除记录
    iTableType = 2
    Dim i As Integer
    For i = 0 To Frm_OtherKQChange.Grid2.Cols - 1
        sOOData(i) = Frm_OtherKQChange.Grid2.TextMatrix(Frm_OtherKQChange.Grid2.Row, i)
    Next
    Frm_AddOtherKQ.Show 1
End Sub