frmempman.frm

人事信息管理系统 VB毕业设计 原代码+论文

      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "AdoEmpNameList"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSComctlLib.ImageList ImageList3 
      Left            =   0
      Top             =   1200
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483628
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   16777215
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmEmpMan.frx":22A0
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmEmpMan.frx":4C32
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmEmpMan.frx":75C4
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmEmpMan.frx":9F56
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmEmpMan.frx":C8E8
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   2175
      Left            =   120
      TabIndex        =   55
      Top             =   600
      Width           =   2415
      _ExtentX        =   4260
      _ExtentY        =   3836
      _Version        =   393217
      HideSelection   =   0   'False
      LabelEdit       =   1
      Sorted          =   -1  'True
      Style           =   7
      HotTracking     =   -1  'True
      SingleSel       =   -1  'True
      ImageList       =   "ImageList3"
      BorderStyle     =   1
      Appearance      =   1
      MousePointer    =   99
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MouseIcon       =   "FrmEmpMan.frx":F27A
   End
   Begin MSAdodcLib.Adodc AdoEmpDetail 
      Height          =   330
      Left            =   240
      Top             =   5280
      Visible         =   0   'False
      Width           =   2775
      _ExtentX        =   4895
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   1
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "AdoEmpDetail"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
End
Attribute VB_Name = "FrmEmpMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public TmpOk As Boolean

Private Sub Cmd_Add_Click()
  TmpOk = False
  If CurDep.DepId <= 0 Then
    MsgBox "请选择所属部门"
    Exit Sub
  End If
  '设置添加标记
  FrmEmpEdit.Modify = False
  FrmEmpEdit.Show 1
  If TmpOk = True Then
    TreeView1_Click
  End If
End Sub

Private Sub Cmd_Back_Click()
  If FrmPhotoMenu.Visible = True Then
    Unload FrmPhotoMenu
  End If
  
  Unload Me
End Sub

Private Sub Cmd_Del_Click()
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择要删除的员工"
    Exit Sub
  End If
  '确定是否删除
  If MsgBox("姓名:" + Lbl_EmpName + Chr(13), vbYesNo, "是否删除") = vbNo Then
    Exit Sub
  End If
  CurEmp.Delete (CurEmp.EmpId)
  MsgBox "已经删除数据"
  CurEmp.EmpId = 0
  TreeView1_Click
End Sub

Private Sub Cmd_Experience_Click()
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择员工"
    Exit Sub
  End If
  FrmExpMan.OriEmpId = CurEmp.EmpId
  FrmExpMan.Show 1
End Sub

Private Sub Cmd_Family_Click()
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择员工"
    Exit Sub
  End If
  FrmFamilyMan.OriEmpId = CurEmp.EmpId
  FrmFamilyMan.Show 1
End Sub

Private Sub Cmd_Modi_Click()
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择要修改的员工"
    Exit Sub
  End If
  '设置修改标记
  FrmEmpEdit.Modify = True
  FrmEmpEdit.ComboState.ListIndex = ComboState.ListIndex
  FrmEmpEdit.Show 1
  '通过单击DataList控件刷新员工信息的显示
  DataList1_Click
End Sub

Private Sub Cmd_Trans_Click()
  Dim TmpDepid As Long
  
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择员工"
    Exit Sub
  End If
  '保存CurDep
  TmpDepid = CurDep.DepId
  CurDep.Init
  '设置部门调转窗体的控件值
  FrmTrans.Lbl_EmpName = DataList1.Text
  FrmTrans.Lbl_OldDep = TreeView1.SelectedItem.Text
  FrmTrans.ComboDep.Text = ""
  FrmTrans.txtTitle = ""
  FrmTrans.Show 1
  '恢复CurDep
  CurDep.DepId = TmpDepid
  CurDep.GetInfo (CurDep.DepId)
  '更新datalist1
  If FrmTrans.TmpOk = True Then
    TreeView1_Click
    DataList1_Click
  End If
End Sub

Private Sub ComboState_Click()
  '根据ComboState的值刷新AdoEmpNameList，并更新DataList1的内容
  AdoEmpNameList.RecordSource = "SELECT EmpId, EmpName FROM Employees WHERE DepId=" _
        + Trim(Str(CurDep.DepId)) + " And State=" + Trim(Str(ComboState.ListIndex + 1))
  AdoEmpNameList.Refresh
  DataList1_Click
End Sub

Private Sub Command4_Click()
  If FrmRs_PhotoMenu.Visible = True Then
    Unload FrmRs_PhotoMenu
  End If
  
  Unload Me
End Sub

Private Sub Command5_Click()
  Dim TmpDepid As Long
  
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择员工"
    Exit Sub
  End If
  
  TmpDepid = CurDep.DepId
  CurDep.Init
  
  FrmTrans.Lbl_EmpName = DataList1.Text
  FrmTrans.Lbl_OldDep = TreeView1.SelectedItem.Text
  FrmTrans.ComboDep.Text = ""
  FrmTrans.txtTitle = ""
  
  FrmTrans.Show 1
  
  CurDep.DepId = TmpDepid
  CurDep.GetInfo (CurDep.DepId)
  
'更新datalist1
  If FrmTrans.TmpOk = True Then
    TreeView1_Click
    DataList1_Click
  End If
End Sub

Private Sub Command6_Click()
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择员工"
    Exit Sub
  End If
  
  FrmRs_FamilyMan.VarEmpId = CurEmp.EmpId
  FrmRs_FamilyMan.Show 1
End Sub

Private Sub Command8_Click()
  If CurEmp.EmpId <= 0 Then
    MsgBox "请选择员工"
    Exit Sub
  End If
  
  FrmRs_ExperienceMan.VarEmpId = CurEmp.EmpId
  FrmRs_ExperienceMan.Show 1
End Sub

Private Sub DataList1_Click()
  If DataList1.BoundText = "" Then
    CurEmp.Init
    Image1.Picture = LoadPicture("")
    AdoEmpDetail.RecordSource = "SELECT * FROM Employees WHERE EmpId<0"
    Lbl_Upper = ""
    AdoEmpDetail.Refresh
    Exit Sub
  End If
  '根据选择的员工更新AdoEmpDetail
  AdoEmpDetail.RecordSource = "SELECT * FROM Employees " _
        + "WHERE EmpId=" + Trim(Str(DataList1.BoundText))
  AdoEmpDetail.Refresh
  '显示员工照片
  Call ShowImage(Image1, AdoEmpDetail)
  '读取当前员工信息到CurEmp
  CurEmp.GetInfo (DataList1.BoundText)
  '显示上级员工姓名
  Lbl_Upper = MyEmp.GetName(CurEmp.UpperId)
End Sub

Private Sub Form_Load()
  '设置ADO控件的连接字符串
  AdoEmpDetail.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
          + App.Path + "\人事.mdb;Persist Security Info=False"
  AdoEmpNameList.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
          + App.Path + "\人事.mdb;Persist Security Info=False"
  ComboState.ListIndex = 0
  FocusDepName = "人事部"
  Focuskey = ""
  'Root Node
  Set TmpNode = TreeView1.Nodes.Add(, , "a0", "部门信息", 1, 3)
  TmpNode.Selected = True
  TmpNode.ExpandedImage = 2
  '将部门信息添加到TreeView控件中
  Call Add_DepToTree(TreeView1, "a0")
  TreeView1_Click
  '如果不是管理员，则只显示员工姓名列表
  If CurUser.User_type <> 1 Then
    Frame1.Visible = False
    Frame2.Visible = False
    Cmd_Add.Visible = False
    Cmd_Modi.Visible = False
    Cmd_Del.Visible = False
    Cmd_Trans.Visible = False
    Me.Width = 2700
    Cmd_Back.Left = 600
  End If
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  '单击左键，则关闭照片管理菜单
  If Button = 1 Then
    If FrmPhotoMenu.Visible = True Then
      Unload FrmPhotoMenu
    End If
  End If
  '单击右键，打开照片管理菜单
  If Button = 2 Then
    If CurEmp.EmpId <= 0 Then
      Exit Sub
    End If
    FrmPhotoMenu.Show
  End If
End Sub

Private Sub TreeView1_Click()
  Dim Focuskey As String
  '根据关键字获取部门信息
  Focuskey = TreeView1.SelectedItem.Key
  CurDep.DepName = TreeView1.SelectedItem.Text
  CurDep.DepId = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
  
  If Focuskey = "a0" Then '根结点
    AdoEmpNameList.RecordSource = "SELECT * FROM Employees WHERE DepId<0"
    AdoEmpNameList.Refresh
    DataList1_Click
    Exit Sub
  End If
  '如果包含子结点，则设置图像格式
  If CurDep.HaveSon(CurDep.DepId) = False Then
    TreeView1.SelectedItem.ExpandedImage = 4
    TreeView1.SelectedItem.Image = 4
    TreeView1.SelectedItem.SelectedImage = 5
  End If
  '读取CurDep中的所有部门信息
  CurDep.GetInfo (CurDep.DepId)
  '根据选择的部门编号刷新AdoEmpNameList1，从而选择符合条件的员工姓名
  AdoEmpNameList.RecordSource = "SELECT EmpId, EmpName FROM Employees WHERE DepId=" _
        + Trim(Str(CurDep.DepId)) + " And State=" + Trim(Str(ComboState.ListIndex + 1))
  AdoEmpNameList.Refresh
  DataList1_Click
End Sub