popmenu.frm

VB编写的企业管理系统

VERSION 5.00
Begin VB.Form popmenu 
   Caption         =   "菜单"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form19"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu popmenu 
      Caption         =   "popmenu"
      Visible         =   0   'False
      Begin VB.Menu add 
         Caption         =   "添加员工基本信息"
      End
      Begin VB.Menu change 
         Caption         =   "修改员工基本信息"
      End
      Begin VB.Menu check 
         Caption         =   "查询员工基本信息"
      End
      Begin VB.Menu del 
         Caption         =   "删除员工基本信息"
      End
   End
   Begin VB.Menu popmenu1 
      Caption         =   "popmenu1"
      Visible         =   0   'False
      Begin VB.Menu addinout 
         Caption         =   "添加上下班信息"
      End
      Begin VB.Menu checkkq1 
         Caption         =   "查询考勤信息"
      End
      Begin VB.Menu delkq1 
         Caption         =   "删除上下班信息"
      End
   End
   Begin VB.Menu popmenu2 
      Caption         =   "popmenu2"
      Visible         =   0   'False
      Begin VB.Menu addotherkq 
         Caption         =   "添加其他考勤信息"
      End
      Begin VB.Menu checkkq2 
         Caption         =   "查询考勤信息"
      End
   End
   Begin VB.Menu popmenu3 
      Caption         =   "popmenu3"
      Visible         =   0   'False
      Begin VB.Menu addalteration 
         Caption         =   "添加调动信息"
      End
      Begin VB.Menu changealter 
         Caption         =   "修改调动信息"
      End
   End
End
Attribute VB_Name = "popmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Public str1 As String

Private Sub add_Click()                             '添加员工信息
    flag = 1
    form6.Hide
    Form5.Show
    Form5.ZOrder 0
    form6.ZOrder 1
End Sub

Private Sub addalteration_Click()                   '添加调动信息
    flag = 1
    Form17.Show
     Form17.ZOrder 0
End Sub

Private Sub addinout_Click()                        '添加上下班信息
    flag = 1
     Form8.Show
     Form8.ZOrder 0
End Sub

Private Sub addotherkq_Click()                       '添加其他考勤信息
    flag = 1
     Form13.Show
     Form13.ZOrder 0
End Sub
 
Private Sub change_Click()                           '修改员工信息
    flag = 2
    If form6.rsGrid.Rows > 1 Then
        gSQL = "select * from basic where sid='" & Trim(form6.rsGrid.TextMatrix( _
                form6.rsGrid.Row, 0)) & "'"
         Form5.Show
         Form5.ZOrder 0
    Else
     MsgBox "目前没有员工信息,请先添加员工信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
      Form5.Show
    End If
End Sub

Private Sub changealter_Click()                      '修改调动信息
    Dim rs As New ADODB.Recordset
    flag = 2
     Form17.Caption = "修改员工调动信息"
    If Form12.DataGrid1.Row < 0 Then
        MsgBox "目前没有记录！", vbOKOnly + vbExclamation, "提示！"
        flag = 1
         Form17.Show
         Form17.ZOrder 0
    Else
       str1 = "select * from away where ID=" & Trim( _
             Form12.DataGrid1.Columns(0))
         Form17.ID = Trim(Form12.DataGrid1.Columns(0))
        Set rs = TransactSQL(str1)
        If rs.EOF = False Then
        With rs
            Form17.Combo1 = rs(1)
            Form17.Text1 = rs(2)
            Form17.Combo2 = rs(3)
            Form17.Text2 = rs(4)
            Form17.Text3 = rs(5)
            Form17.Text4 = rs(6)
            Form17.Text5 = rs(7)
            Form17.Text6 = rs(8)
            Form17.Text7 = rs(9)
        End With
            rs.Close
        End If
        Form17.Show
        Form17.ZOrder 0
    End If
End Sub

Private Sub check_Click()                            '查询员工信息
    Form7.Show
 End Sub

Private Sub checkkq1_Click()                         '查询考勤班信息
    Form15.Show
   Form15.ZOrder 0
End Sub

Private Sub checkkq2_Click()                         '查询考勤班信息
    Form15.Show
    Form15.ZOrder 0
End Sub

Private Sub del_Click()                              '删除员工信息
    Dim sql As String
  If form6.rsGrid.Rows = 1 Then
        MsgBox "目前没有员工信息,请先添加员工信息！", vbOKOnly + vbExclamation, "警告!"
        flag = 1
        Form5.Show
        Form5.ZOrder 0
    Else
        sql = "delete from basic where sid='" & Trim(form6.rsGrid.TextMatrix( _
                form6.rsGrid.Row, 0)) & "'"
        If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
        Then
        TransactSQL (sql)
        MsgBox "员工信息记录已经删除！", vbOKOnly + vbExclamation, "警告!"
        Unload Me
        sql = "select * from basic"
        form6.createList (sql)
        
        form6.Show
        End If
    End If
End Sub

Private Sub delkq1_Click()                           '删除上下班信息
    Dim sql As String
    If Form11.recordlist.Rows = 1 Then
        MsgBox "目前没有上下班信息！", vbOKOnly + vbExclamation, "警告！"
        flag = 1
        Form8.Show
        Form8.ZOrder 0
    Else
        sql = "delete from away where ID='" & Trim(Form11.recordlist.TextMatrix( _
                Form11.recordlist.Row, 0)) & "'"
        If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
        Then
        TransactSQL (sql)
        MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "警告!"
        Unload Me
        sql = "select * from away"
        Form11.ListTopic
        Form11.ShowData (sql)
        Form11.Show
        End If
    End If
End Sub

Private Sub Form_Load()

End Sub