您现在的位置：毕业论文 >> 论文 >> 正文

VB毕业生就业管理系统第4页

更新时间：2010-5-8: 来源：毕业论文

VB毕业生就业管理系统第4页
企业用户功能模块：首先，需要企业用户输入自己的用户名和密码登录到系统中，然后可以输入自己的企业代号浏览本公司的基本信息，还可选择菜单"浏览毕业生信息"来浏览已应聘本公司的毕业生基本信息。单击　"统一回复",系统会自动比较应聘者的应聘条件，并相应进行自动回复，减轻公司的工作量。（注意：只有当应聘者的所有信息都符合公司招聘要求时，"手工回复功能"才能启动。单击　"手工回复"按钮，在弹出的输入框中，将所要回复的内容填写，单击"发送"按钮即可完成一次手工回复过程）。
学校领导功能模块：学校领导可以浏览各院系及下属班级的基本信息，通过查看报表统计来更好地指导毕业生就业工作。
用户管理模块：可以添加新的用户和对现有用户进行管理.添加新用户时对用户的用户名、密码、确认密码的进行检测。对现有用户可以修改即修改用户的密码或权限，管理员也可以删除现有用户。并且还可以实现对学生用户和企业用户的基本信息编辑。                                              3.4 关键源程序清单
3.4.1　学生基本信息之图片管理部分
Public Sub ShowImage(Image1 As Image, _
                     Adodc1 As Adodc)
Erase byteChunk()
FieldSize = Adodc1.Recordset.Fields(2).ActualSize
If FieldSize <= 0 Then
    Image1.Picture = LoadPicture("")
    Exit Sub
End If
'提供一个尚未使用的文件号
SourceFile = FreeFile
'打开文件
Open TempFile For Binary Access Write As SourceFile
'计算数据块
NumBlocks = FieldSize \ BlockSize
LeftOver = FieldSize Mod BlockSize '得到剩余字节数
'分块读取图像数据，并写入到文件中
If LeftOver <> 0 Then
    ReDim byteChunk(LeftOver)
    byteChunk() = Adodc1.Recordset.Fields(2).GetChunk(LeftOver)
    Put SourceFile, , byteChunk()
End If
For i = 1 To NumBlocks
    ReDim byteChunk(BlockSize)
    byteChunk() = Adodc1.Recordset.Fields(2).GetChunk(BlockSize)
    Put SourceFile, , byteChunk()
Next i
Close SourceFile
'将文件装入到Image1控件中
Image1.Picture = LoadPicture(TempFile)
'删除临时文件
Kill (TempFile)
End Sub

Public Sub SaveImage(ByVal ImageFile As String, _
                     Adodc1 As Adodc)

If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then
    Exit Sub
End If
If ImageFile = "" Then
    Exit Sub
End If
'提供一个尚未使用的文件号
SourceFile = FreeFile
'打开文件
Open ImageFile For Binary Access Read As SourceFile
'得到文件长度
FileLength = LOF(SourceFile)
'判断文件是否存在
If FileLength = 0 Then
    Close SourceFile
    MsgBox DiskFile & "无内容或不存在!"
Else
    NumBlocks = FileLength \ BlockSize '得到数据块的个数
    LeftOver = FileLength Mod BlockSize '得到剩余字节数
    Adodc1.Recordset.Fields(2).Value = Null
    ReDim byteData(BlockSize) '重新定义数据块的大小
    For i = 1 To NumBlocks
      Get SourceFile, , byteData() '读到内存块中
      Adodc1.Recordset.Fields(2).AppendChunk byteData() '写入FLD
    Next i
    ReDim byteData(LeftOver) '重新定义数据块的大小
    Get SourceFile, , byteData() '读到内存块中
    Adodc1.Recordset.Fields(2).AppendChunk byteData() '写入FLD
    Close SourceFile '关闭源文件
    Adodc1.Recordset.update
End If
End Sub
3.4.2用户约束性检查
Private Sub cmd_commit_Click()
If (txtsud_name.Text = "") Then
      MsgBox "请输入你的姓名"
      txtsud_name.SetFocus
ElseIf txtstu_id.Text = "" Then
MsgBox "请输入你的学号"
txtstu_id.SetFocus

ElseIf txtstu_profession.Text = "" Then
MsgBox "请输入你的专业，以便审查"
txtstu_profession.SetFocus
ElseIf txtstu_xueli.Text = "" Or txtstu_political.Text = "" Or txtstu_English.Text = "" Then
MsgBox "学历，政治面貌，英语水平三项为必填"
ElseIf Lench(txtstu_id.Text) < 7 Or Lench(txtstu_id.Text) > 11 Then
   MsgBox "学号必须大于7位并且小于11位"
   txtstu_id.SetFocus
   Exit Sub
Else: insertEnd If
End Sub
3.4.3毕业生查询本人的基本信息
Private Sub Command2_Click()
If Len(Trim(txtstuid)) = 0 Then
    MsgBox "请输入学号"
    txtstuid.SetFocus
    txtstuid.SelStart = 0
    txtstuid.SelLength = Len(txtName)
    CurStu.Init
    Image1.Picture = LoadPicture("")    Exit Sub End If