form3.frm

VB编写的企业管理系统

VERSION 5.00
Begin VB.MDIForm Form3 
   BackColor       =   &H00FFFFFF&
   Caption         =   "企业人事管理系统"
   ClientHeight    =   8115
   ClientLeft      =   75
   ClientTop       =   915
   ClientWidth     =   9930
   Icon            =   "form3.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "form3.frx":08CA
   ScrollBars      =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu system 
      Caption         =   "系统&P"
      Begin VB.Menu add_user 
         Caption         =   "添加用户"
      End
      Begin VB.Menu change_pwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu stuff_info 
      Caption         =   "员工基本信息&I"
      Begin VB.Menu add_stuff 
         Caption         =   "添加员工信息"
      End
      Begin VB.Menu change_stuff 
         Caption         =   "修改员工信息"
      End
      Begin VB.Menu check_stuff 
         Caption         =   "查询员工信息"
      End
      Begin VB.Menu delete_stuff 
         Caption         =   "删除员工信息"
      End
   End
   Begin VB.Menu stuff_check 
      Caption         =   "员工考勤信息&W"
      Begin VB.Menu add_check 
         Caption         =   "添加考勤信息"
         Begin VB.Menu addotherkq 
            Caption         =   "添加其他考勤信息"
         End
         Begin VB.Menu addattendance 
            Caption         =   "添加上下班信息"
         End
      End
      Begin VB.Menu change_check 
         Caption         =   "修改考勤信息"
         Begin VB.Menu changeotherkq 
            Caption         =   "修改其它考勤信息"
         End
         Begin VB.Menu changeattendance 
            Caption         =   "修改上下班信息"
         End
      End
      Begin VB.Menu check_checkin 
         Caption         =   "查询考勤信息"
      End
      Begin VB.Menu del_check 
         Caption         =   "删除考勤信息"
         Begin VB.Menu delinout 
            Caption         =   "删除上下班信息"
         End
      End
      Begin VB.Menu settime 
         Caption         =   "设置上下班时间"
      End
   End
   Begin VB.Menu stuff_alteration 
      Caption         =   "员工调动信息&A"
      Begin VB.Menu add_alter 
         Caption         =   "添加调动信息"
      End
      Begin VB.Menu change_alter 
         Caption         =   "修改调动信息"
      End
      Begin VB.Menu check_alter 
         Caption         =   "查询调动信息"
         Index           =   2
      End
   End
   Begin VB.Menu about 
      Caption         =   "关于"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub check_alter_Click(Index As Integer)
 Form10.Show                                    '查询调动信息
  Form10.ZOrder 0
End Sub


Private Sub exit_Click()
Unload Me
Exit Sub
End Sub




Private Sub About_Click()                         '关于窗体
    frmAbout1.Show
    frmAbout1.ZOrder 0
End Sub

Private Sub add_alter_Click()                     '添加调动信息
    flag = 1
If qx = "guest" Then
    MsgBox "你无权添加记录", 64, "警告"
    Form17.Enabled = False
ElseIf qx = "sys" Then
     Form17.Caption = "添加员工调动信息"
    Form17.Show
    Form17.ZOrder 0
End If
End Sub

Private Sub add_stuff_Click()                      '添加员工信息
    flag = 1
If qx = "guest" Then
    MsgBox "你无权添加记录", 64, "警告"
    Form5.Enabled = False
Else
     
    Form5.Show
    Form5.ZOrder 0
End If
End Sub

Private Sub add_user_Click()                       '添加用户
If qx = "guest" Then
    MsgBox "你无权添加记录", 64, "警告"
    Form18.Enabled = False
Else
    Form18.Show
    Form18.ZOrder 0
End If
End Sub

Private Sub addattendance_Click()                  '添加上下班信息
    flag = 1
If qx = "guest" Then
    MsgBox "你无权添加记录", 64, "警告"
    Form8.Enabled = False
 Else
    Form8.Show
    Form8.ZOrder 0
End If
End Sub

Private Sub addotherkq_Click()                     '添加其他考勤信息
    flag = 1
If qx = "guest" Then
    MsgBox "你无权添加记录", 64, "警告"
    Form13.Enabled = False
    Else
    Form13.Show
    Form13.ZOrder 0
End If
End Sub

Private Sub change_alter_Click()     '修改调动信息
If qx = "guest" Then
    MsgBox "你无权修改记录", 64, "警告"
    Form12.Enabled = False
Else
     
    Form12.Show
    Form12.ZOrder 0
End If
End Sub

Private Sub change_pwd_Click()                      '修改密码
  Dim a As New Form4
   a.Show
   
End Sub

Private Sub change_stuff_Click()  '修改员工信息
If qx = "guest" Then
    MsgBox "你无权修改记录", 64, "警告"
    Form7.Enabled = False
Else
     
    Form7.Label1.Caption = "选择修改条件"
    Form7.Caption = "修改员工基本信息"
    sql = "select * from basic order by sid"
    form6.createList (sql)
     form6.Show
     form6.ZOrder 0
    Form7.Show
    Form7.ZOrder 0
End If
End Sub

Private Sub changeattendance_Click()                 '修改上下班信息
If qx = "guest" Then
    MsgBox "你无权修改记录", 64, "警告"
    Form11.Enabled = False
Else
     
    Form11.Show
    Form11.ZOrder 0
End If
End Sub

Private Sub changeotherkq_Click()                    '修改其他考勤信息
If qx = "guest" Then
    MsgBox "你无权修改记录", 64, "警告"
    Form14.Enabled = False
Else
    Form14.Show
    Form14.ZOrder 0
End If
End Sub

Private Sub check_checkin_Click()                    '查询其他考勤信息
    Form15.Show
    Form15.ZOrder 0
End Sub

Private Sub check_stuff_Click()                       '查询员工信息
   sql = "select * from basic"
    form6.createList (sql)
    form6.Show
    Form7.Show
    form6.ZOrder 1
    Form7.ZOrder 0
End Sub


Private Sub delete_stuff_Click()                          '删除员工信息
If qx = "guest" Then
    MsgBox "你无权删除记录", 64, "警告"
    Form7.Enabled = False
Else
     Form7.Label1.Caption = "选择删除条件"
     Form7.Caption = "删除员工基本信息"
     sql = "select * from basic"
     form6.createList (sql)
     form6.Show
     Form7.Show
     form6.ZOrder 1
     Form7.ZOrder 0
End If
End Sub

Private Sub delinout_Click()                            '删除上下班信息
If qx = "guest" Then
    MsgBox "你无权删除记录", 64, "警告"
    Form11.Enabled = False
 Else
     
    Dim sql As String
    sql = "select * from test order by ID desc"
    Call Form11.ListTopic
    Call Form11.ShowData(sql)
    Form11.Show
    Form11.ZOrder 0
  End If
End Sub




Private Sub MDIForm_Load()

End Sub

Private Sub settime_Click()                               '设置上下班时间
If qx = "guest" Then
    MsgBox "你无权设置记录", 64, "警告"
    Form9.Enabled = False
Else
     
     Form9.Show
     Form9.ZOrder 0
End If
End Sub