form2.frm

这是学生做的人事档案系统

conn.Open connstring

sql = "select * from info"

rs.Open sql, conn, adOpenKeyset, adLockPessimistic



TreeView1.Font.Size = 15
TreeView1.ImageList = ImageList2
Dim nodx As Node
Set nodx = TreeView1.Nodes.add(, , "all", "所有员工", "all")
nodx.Expanded = True
Set nodx = TreeView1.Nodes.add("all", tvwChild, "1node", "部门", "bufen")
Set nodx = TreeView1.Nodes.add("all", tvwChild, "2node", "性别", "bufen")
Set nodx = TreeView1.Nodes.add("all", tvwChild, "3node", "民族", "bufen")
Set nodx = TreeView1.Nodes.add("all", tvwChild, "4node", "婚姻状况", "bufen")
Set nodx = TreeView1.Nodes.add("all", tvwChild, "5node", "职务", "bufen")
Set nodx = TreeView1.Nodes.add("1node", tvwChild, "11node", "人事部", "dange")
Set nodx = TreeView1.Nodes.add("1node", tvwChild, "12node", "财务部", "dange")
Set nodx = TreeView1.Nodes.add("1node", tvwChild, "13node", "宣传部", "dange")
Set nodx = TreeView1.Nodes.add("1node", tvwChild, "14node", "保卫处", "dange")
Set nodx = TreeView1.Nodes.add("2node", tvwChild, "21node", "男", "dange")
Set nodx = TreeView1.Nodes.add("2node", tvwChild, "22node", "女", "dange")
Set nodx = TreeView1.Nodes.add("3node", tvwChild, "31node", "汉", "dange")
Set nodx = TreeView1.Nodes.add("3node", tvwChild, "32node", "回", "dange")
Set nodx = TreeView1.Nodes.add("3node", tvwChild, "33node", "满", "dange")
Set nodx = TreeView1.Nodes.add("3node", tvwChild, "34node", "藏", "dange")
Set nodx = TreeView1.Nodes.add("4node", tvwChild, "41node", "未婚", "dange")
Set nodx = TreeView1.Nodes.add("4node", tvwChild, "42node", "已婚", "dange")
Set nodx = TreeView1.Nodes.add("5node", tvwChild, "51node", "经理", "dange")
Set nodx = TreeView1.Nodes.add("5node", tvwChild, "52node", "主任", "dange")
Set nodx = TreeView1.Nodes.add("5node", tvwChild, "53node", "科长", "dange")
Set nodx = TreeView1.Nodes.add("5node", tvwChild, "54node", "组长", "dange")


Toolbar1.ImageList = ImageList1
Toolbar1.Buttons.add 1, , , tbrSeparator
Toolbar1.Buttons.add 2, "Add", "添加", , "Add"
Toolbar1.Buttons.add 3, , , tbrSeparator
Toolbar1.Buttons.add 4, "change", "修改", , "change"
Toolbar1.Buttons.add 5, , , tbrSeparator
Toolbar1.Buttons.add 6, "del", "删除", , "del"
Toolbar1.Buttons.add 7, , , tbrSeparator
Toolbar1.Buttons.add 8, "find", "查询", , "find"
Toolbar1.Buttons.add 9, , , tbrSeparator
Toolbar1.Buttons.add 10, "jsj", "计算器", , "jsj"
Toolbar1.Buttons.add 11, , , tbrSeparator
Toolbar1.Buttons.add 12, "help", "帮助", , "help"
Toolbar1.Buttons.add 13, , , tbrSeparator
Toolbar1.Buttons.add 14, "zhuxiao", "注销", , "zhuxiao"
'Toolbar1.Buttons.add 14, , , tbrSeparatorT

'Toolbar1.Buttons.add 15, , "所有职工" & i & "个"

StatusBar1.Panels.add
StatusBar1.Panels.add
StatusBar1.Panels.add
StatusBar1.Panels.add
StatusBar1.Panels(1).Width = 3900
StatusBar1.Panels(3).Width = 5000
StatusBar1.Panels(3).text = " 欢迎使用好帮手管理软件：开发人员：  魏杰  "
StatusBar1.Panels(5).Width = 2000
StatusBar1.Panels(4).Width = 2200
StatusBar1.Panels(2).Width = 2000
userid = loge.userid
StatusBar1.Panels(1).text = "管理员：" + userid
StatusBar1.Panels(2).text = "共有记录： " + i + " 条"
StatusBar1.Panels(4).text = Year(Now()) & " 年 " & Month(Now()) & " 月 " & Day(Now()) & " 日 "
StatusBar1.Panels(5).text = Hour(time()) & " 点 " & Minute(time()) & " 分 " & Second(time()) & " 秒 "
Timer1.Enabled = True
 
    Dim clmx As ColumnHeader '为ColumnHeader对象创建对象变量
Set clmx = ListView1.ColumnHeaders.add(, , "", 500) '添加表头，分段
Set clmx = ListView1.ColumnHeaders.add(, , "编 号", 700)
Set clmx = ListView1.ColumnHeaders.add(, , "姓  名", 1000)
Set clmx = ListView1.ColumnHeaders.add(, , "性 别", 700) '添加表头，分段
Set clmx = ListView1.ColumnHeaders.add(, , "民 族", 700)
Set clmx = ListView1.ColumnHeaders.add(, , "出生日期", 1500)
Set clmx = ListView1.ColumnHeaders.add(, , "政治面貌", 1000) '添加表头，分段
Set clmx = ListView1.ColumnHeaders.add(, , "所在部门", 1500)
Set clmx = ListView1.ColumnHeaders.add(, , "职务", 1000)
Set clmx = ListView1.ColumnHeaders.add(, , "婚姻情况", 800) '添加表头，分段
Set clmx = ListView1.ColumnHeaders.add(, , "身份证号", 2000)
Set clmx = ListView1.ColumnHeaders.add(, , "联系电话", 1500)
Set clmx = ListView1.ColumnHeaders.add(, , "联系地址", 2500) '添加表头，分段

ListView1.View = lvwReport '设置View属性为报表形
ListView1.GridLines = True '显示表格线
ListView1.FullRowSelect = True '整行选择
    
    
    
    rs.Close







sql = "select * from info"
    Call grid(rs, ListView1, StatusBar1, sql)
    


End Sub


Private Sub Form_Resize()
ListView1.Width = system.Width * 0.815
ListView1.Height = system.Height * 0.8
TreeView1.Height = system.Height * 0.8
StatusBar1.Height = system.Height * 0.05
End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub


Private Sub help_Click()
MsgBox "对不起，本系统暂无帮助，请您谅解。"
End Sub

Private Sub jsq_Click()
Shell (App.Path & "\计算器.exe")
End Sub



Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
'单击ColumnHeader对象时，将根据那一列的子项目把ListView控件排序。
ListView1.SortKey = ColumnHeader.Index - 1
ListView1.Sorted = True
If ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending '升序
Else
ListView1.SortOrder = lvwDescending '降序
End If
End Sub


Private Sub ListView1_DblClick()
yan = "luilan"
luilan.Show
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
lname = Item.ListSubItems(1).text
lcode = Item.ListSubItems(2).text
End Sub

Private Sub mohu_Click()
findmh.Show
End Sub

Private Sub pxcsny_Click()
ListView1.SortKey = ListView1.ColumnHeaders(1).Index
ListView1.Sorted = True
ListView1.SortOrder = lvwAscending '升序
End Sub
Private Sub pxxingbie_Click()
sort.Show
End Sub

Private Sub sjbf_Click()
 Dim mOldFile As String
    Dim mNewFile As String
    
    Dim mTemp As String
    
    
    mTemp = Year(Now) & Month(Now) & Day(Now) & Int(10 * Rnd) '& Time()
    
    
    mOldFile = App.Path & "\rsgl.mdb"
    mNewFile = App.Path & "\backup\rsgl" & mTemp & ".mdb"
    
    CopyFile mOldFile, mNewFile, Not True
    MsgBox "备份完成"
    
        Exit Sub

End Sub

Private Sub sjhf_Click()
Dim mOldFile As String
    Dim mNewFile As String
     
    dlgDBop.InitDir = App.Path
    dlgDBop.Filter = "备份文件(*.mdb)|*.mdb|所有文件(*.*)|*.*|"
    dlgDBop.ShowOpen
    
    
    mOldFile = dlgDBop.FileName
    
    If mOldFile = "" Then Exit Sub
    
    mNewFile = App.Path & "\rsgl.mdb"
    CopyFile mOldFile, mNewFile, Not True
    
    MsgBox "恢复完成，请重新启动程序"
 
    Exit Sub

End Sub

Private Sub tiaojian_Click()
findtj.Show
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(5).text = Hour(time()) & " 点 " & Minute(time()) & " 分 " & Second(time()) & " 秒 "
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "zhuxiao"
Unload Me
loge.Show
Case "Add"
tianjia.Show
Case "jsj"
Shell (App.Path & "\计算器.exe")
Case "change"
luilan.Show
Case "del"

sql = "select * from info where code='" & system.lname & "' and name= '" & system.lcode & "'"
rs.Open sql, conn


If lname = "" Then
MsgBox "对不起，你没有选择记录,请选择要删除的记录"
rs.Close
Exit Sub
End If

lcode = rs.Fields("name")
If MsgBox("你真的要删除姓名为：" & lcode, vbOKCancel + 48, "删除提示") = vbOK Then
rs.Delete
lname = ""
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
If rs.EOF = True Then
rs.MoveFirst
Else
rs.MoveNext
End If
End If
rs.Close
Case "find"
findtj.Show
Case "change"
yan = "change"
luilan.Show
Case "help"
MsgBox "对不起，本系统暂无帮助，请您谅解。"
End Select
End Sub







Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim sql As String
Dim str As String
str = TreeView1.SelectedItem.text
If str = "所有员工" Then
sql = "select * from info "
Call grid(rs, ListView1, StatusBar1, sql)
End If

If str = "人事部" Then
sql = "select * from info where department ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)

End If
If str = "财务部" Then

sql = "select * from info where department ='" & str & "'"
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "宣传部" Then
sql = "select * from info where department ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "保卫处" Then
sql = "select * from info where department ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "男" Then
sql = "select * from info where sex ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "女" Then
sql = "select * from info where sex ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "汉" Then
sql = "select * from info where nation='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "回" Then
sql = "select * from info where nation ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "满" Then
sql = "select * from info where nation ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "藏" Then
sql = "select * from info where nation ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "未婚" Then
sql = "select * from info where marry ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "已婚" Then
sql = "select * from info where marry ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "经理" Then
sql = "select * from info where duty ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "科长" Then
sql = "select * from info where duty ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "主任" Then
sql = "select * from info where duty ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "组长" Then
sql = "select * from info where duty ='" & str & " ' "
Call grid(rs, ListView1, StatusBar1, sql)
End If
If str = "" Then
End If

End Sub





Private Sub zhipai_Click()
Shell (App.Path & "\spider.exe")

End Sub