luilan.frm

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

         Top             =   1680
         Width           =   1575
      End
      Begin VB.CommandButton Command3 
         Caption         =   "下一条"
         Height          =   495
         Left            =   120
         TabIndex        =   3
         Top             =   1200
         Width           =   1575
      End
      Begin VB.CommandButton Command2 
         Caption         =   "上一条"
         Height          =   495
         Left            =   120
         TabIndex        =   2
         Top             =   720
         Width           =   1575
      End
      Begin VB.CommandButton Command1 
         Caption         =   "上传照片"
         Height          =   495
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   1575
      End
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   2295
      Left            =   7920
      Stretch         =   -1  'True
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "luilan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim sql As String
Dim Chunk() As Byte
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer
Dim PicPathName As String     '我定义的图片路径和名称变量
Const ChunkSize = 1000
Const lngDataFile = 1
Private Sub Command1_Click()
On Error GoTo errhandler:
CommonDialog1.DialogTitle = "职工照片的选择"
CommonDialog1.Filter = "所有图形文件|*.bmp;*.gif;*.jpg;*.ico|位图文件(*.bmp;*.dib)|*.bmp;*.dib|GIF文件(*.gif)|*.gif|GPEG文件(*.jpg)|*.jpg|图形文件(*.ioc)|*.ioc"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Exit Sub
errhandler:
MsgBox Err.Description, vbCritical, "错误"

End Sub

Private Sub Command2_Click()
Command3.Enabled = True
rs.MovePrevious
If rs.BOF = True Then
MsgBox "当前记录已是第一条记录了"
Command2.Enabled = False

rs.MoveNext
Exit Sub
End If
Text2.text = rs.Fields("code")
Text1.text = rs.Fields("name")
Combo2.text = rs.Fields("sex")
Text4.text = rs.Fields("nation")
Combo7.text = rs.Fields("government")
Text6.text = rs.Fields("speciality")
Combo4.text = rs.Fields("department")
Text10.text = rs.Fields("number")
Combo5.text = rs.Fields("laborage")
Combo3.text = rs.Fields("duty")
If IsNull(rs.Fields("zhicheng")) Then
Combo6.text = ""
Else
Combo6.text = rs.Fields("zhicheng")
End If
DTPicker2.Value = rs.Fields("time")
DTPicker1.Value = rs.Fields("birth")
Combo1.text = rs.Fields("marry")
Text13.text = rs.Fields("family")
Text3.text = rs.Fields("phone1")
Text8.text = rs.Fields("phone2")
Text9.text = rs.Fields("address")
Text14.text = rs.Fields("jf")
Text7.text = rs.Fields("graduate")
Text12.text = rs.Fields("resume")
Call showpicture

End Sub

Private Sub Command3_Click()
Command2.Enabled = True
rs.MoveNext
If rs.EOF = True Then
MsgBox "当前记录已是最后一条记录了"

Command3.Enabled = False
rs.MovePrevious
Exit Sub
End If
Text2.text = rs.Fields("code")
Text1.text = rs.Fields("name")
Combo2.text = rs.Fields("sex")
Text4.text = rs.Fields("nation")
Combo7.text = rs.Fields("government")
Text6.text = rs.Fields("speciality")
Combo4.text = rs.Fields("department")
Text10.text = rs.Fields("number")
Combo5.text = rs.Fields("laborage")
Combo3.text = rs.Fields("duty")
If IsNull(rs.Fields("zhicheng")) Then
Combo6.text = ""
Else
Combo6.text = rs.Fields("zhicheng")
End If
DTPicker2.Value = rs.Fields("time")
DTPicker1.Value = rs.Fields("birth")
Combo1.text = rs.Fields("marry")
Text13.text = rs.Fields("family")
Text3.text = rs.Fields("phone1")
Text8.text = rs.Fields("phone2")
Text9.text = rs.Fields("address")
Text14.text = rs.Fields("jf")
Text7.text = rs.Fields("graduate")
Text12.text = rs.Fields("resume")
Call showpicture
End Sub

Private Sub Command4_Click()
tianjia.Show
Unload Me
End Sub

Private Sub Command5_Click()
DTPicker1.Enabled = True
DTPicker2.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True

Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True

Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Combo5.Enabled = True
Combo6.Enabled = True
Combo7.Enabled = True
Command1.Enabled = True
Command7.Enabled = True
End Sub

Private Sub Command6_Click()
If MsgBox("你真的要删除姓名为：" & rs.Fields("name"), vbOKCancel + 48, "删除提示") = vbOK Then
rs.Delete
rs.Update
rs.MoveNext
 
Else
Exit Sub
End If
If rs.EOF = True Then
rs.MoveFirst
End If
Text2.text = rs.Fields("code")
Text1.text = rs.Fields("name")
Combo2.text = rs.Fields("sex")
Text4.text = rs.Fields("nation")
Combo7.text = rs.Fields("government")
Text6.text = rs.Fields("speciality")
Combo4.text = rs.Fields("department")
Text10.text = rs.Fields("number")
Combo5.text = rs.Fields("laborage")
Combo3.text = rs.Fields("duty")
If IsNull(rs.Fields("zhicheng")) Then
Combo6.text = ""
Else
Combo6.text = rs.Fields("zhicheng")
End If
DTPicker2.Value = rs.Fields("time")
DTPicker1.Value = rs.Fields("birth")
Combo1.text = rs.Fields("marry")
Text13.text = rs.Fields("family")
Text3.text = rs.Fields("phone1")
Text8.text = rs.Fields("phone2")
Text9.text = rs.Fields("address")
Text14.text = rs.Fields("jf")
Text7.text = rs.Fields("graduate")
Text12.text = rs.Fields("resume")
Call showpicture

End Sub

Private Sub Command7_Click()
rs.Fields("code") = Trim(Text2.text)
rs.Fields("name") = Trim(Text1.text)
rs.Fields("sex") = Trim(Combo2.text)
rs.Fields("nation") = Trim(Text4.text)
rs.Fields("government") = Trim(Combo7.text)
rs.Fields("speciality") = Trim(Text6.text)
rs.Fields("department") = Trim(Combo4.text)
rs.Fields("number") = Trim(Text10.text)
rs.Fields("laborage") = Trim(Combo5.text)
rs.Fields("duty") = Trim(Combo3.text)
rs.Fields("zhicheng") = Trim(Combo6.text)
rs.Fields("time") = DTPicker2.Value
rs.Fields("birth") = DTPicker1.Value
rs.Fields("marry") = Trim(Combo1.text)
rs.Fields("family") = Trim(Text13.text)
rs.Fields("phone1") = Trim(Text3.text)
rs.Fields("phone2") = Trim(Text8.text)
rs.Fields("address") = Trim(Text9.text)
rs.Fields("jf") = Trim(Text14.text)
rs.Fields("graduate") = Trim(Text7.text)
rs.Fields("resume") = Trim(Text12.text)
 
    rs.Update
   
    Call showpicture
rs.Update
MsgBox "修改成功！"
DTPicker1.Enabled = False
DTPicker2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False

Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False

Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
Combo7.Enabled = False
Command1.Enabled = False
Command7.Enabled = False
If rs.RecordCount = 0 Then
MsgBox "对不起，数据库已空！"
Exit Sub
End If
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command7.Enabled = False
Combo2.AddItem "男"
Combo2.AddItem "女"
Combo2.ListIndex = 0
Combo7.AddItem "共产党员"
Combo7.AddItem "九三学社"
Combo7.AddItem "国民党"
Combo7.AddItem "无党派"
Combo7.AddItem "团员"
Combo7.AddItem "其它"
Combo7.ListIndex = 5

Combo4.AddItem "人事部"
Combo4.AddItem "财务部"
Combo4.AddItem "保卫处"
Combo4.AddItem "宣传部"
Combo4.ListIndex = 0

Combo1.AddItem "未婚"
Combo1.AddItem "已婚"
Combo1.AddItem "离异"
Combo1.AddItem "丧偶"
Combo1.ListIndex = 0

Combo3.AddItem "总经理"
Combo3.AddItem "经理"
Combo3.AddItem "主任"
Combo3.AddItem "副主任"
Combo3.AddItem "科长"
Combo3.AddItem "副科长"
Combo3.AddItem "职工"
Combo3.AddItem "组长"
Combo3.ListIndex = 6


Combo6.AddItem "工程师"
Combo6.AddItem "高级工程师"
Combo6.AddItem "工程师助理"
Combo6.AddItem "无"
Combo6.ListIndex = 3

Combo5.AddItem "1000以下"
Combo5.AddItem "1000到1500"
Combo5.AddItem "1500到3000"
Combo5.AddItem "3000以上"
Combo5.ListIndex = 0
DTPicker1.Enabled = False
DTPicker2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False

Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False

Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
Combo7.Enabled = False

Call strsql(connstring)
conn.Open connstring
sql = "select * from info"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
rs.find "code='" & system.lname & "'"
If rs.EOF = True Then
rs.MoveFirst
End If
Text2.text = rs.Fields("code")
Text1.text = rs.Fields("name")
Combo2.text = rs.Fields("sex")
Text4.text = rs.Fields("nation")
Combo7.text = rs.Fields("government")
Text6.text = rs.Fields("speciality")
Combo4.text = rs.Fields("department")
Text10.text = rs.Fields("number")
Combo5.text = rs.Fields("laborage")
Combo3.text = rs.Fields("duty")
If IsNull(rs.Fields("zhicheng")) Then
Combo6.text = ""
Else
Combo6.text = rs.Fields("zhicheng")
End If
DTPicker2.Value = rs.Fields("time")
DTPicker1.Value = rs.Fields("birth")
Combo1.text = rs.Fields("marry")
Text13.text = rs.Fields("family")
Text3.text = rs.Fields("phone1")
Text8.text = rs.Fields("phone2")
Text9.text = rs.Fields("address")
Text14.text = rs.Fields("jf")
Text7.text = rs.Fields("graduate")
Text12.text = rs.Fields("resume")
Call showpicture

End Sub

Public Sub showpicture()
On Error Resume Next
Open "pictemp" For Binary Access Write As lngDataFile
lngLengh = rs!photo.ActualSize
intChunks = lngLengh \ ChunkSize
intFragment = lngLengh Mod ChunkSize
ReDim Chunk(intFragment)
Chunk() = rs!photo.GetChunk(intFragment)
Put lngDataFile, , Chunk()
For i = 1 To intChunks
ReDim Buffer(ChunkSize)
Chunk() = rs!photo.GetChunk(ChunkSize)
           
Put lngDataFile, , Chunk()
Next i
Close lngDataFile
FileName = "pictemp"
Image1.Picture = LoadPicture(FileName)
    
End Sub



Private Sub Form_Unload(Cancel As Integer)
rs.Close
sql = "select * from info"
Call grid(rs, system.ListView1, system.StatusBar1, sql)
conn.Close
End Sub