就业信息系统（广西财经学院就业信息系统）

rushou
发布大、中专毕业生求职信息；发布各类用人单位招聘信息；开展毕业生和用人单位需求信签名系统息查询、检索；网上签订就业协议；进行毕业生就业工作网上办公等。
2021-11-30 12:30:03

郭大帅
是的，它基本上是一种数据关系。有一个完美的数据库。包括招聘公司，学生，学生和其他功能可以考虑列出所有招聘公司，列出所有职位，列出所有申请，遵循薪资或专业筛选位置，查看作业列表，查看一个，所有位置，应用，发送简历，注册新的招聘通知，自动生成简历......
2021-11-30 12:28:57

礼品代发源码
大学生就业管理系统 VB 6.0+sql2000或者VB+access 学生信息,院系信息,单位信息,以及签约情况统计,Private Sub add_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;" Str2 = "Data Source=C:\Documents and Settings\Administrator\桌面\就业信息.mdb;" Str3 = "Jet OLEDB:Database Password=" conn.Open Str1 & Str2 & Str3 strSQL = "select * from 表1 " rs.Open strSQL, conn, 3, 3 rs.AddNew rs!学生信息 = Text1.Textrs!院系信息 = Text2.Textrs!单位信息 = Text3.Textrs!签约情况统计 = Text4.Textrs.Updaters.Closeconn.CloseAdodc1.RefreshEnd SubPrivate Sub change_Click()If Not IsNumeric(Text5.Text) Or Val(Text5.Text) = 0 Then'编号字段是Access的自动编号，为自然数'因此对text4的内容进行校验，如果不是数值或为0则跳出sub过程 MsgBox "记录号是大于0的自然数，请输入正确的编号！" Exit Sub End If Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;" Str2 = "Data Source=C:\Documents and Settings\Administrator\桌面\就业信息.mdb;" Str3 = "Jet OLEDB:Database Password=" conn.Open Str1 & Str2 & Str3 strSQL = "select * from 表1 where 编号=" & Val(Text5.Text) & "" rs.Open strSQL, conn, 3, 3If rs!编号 = Val(Text5.Text) Then '注意这里如果没有这句话，责即使数据库里没有text5.text，但也不会出错rs!学生信息 = Text1.Textrs!院系信息 = Text2.Textrs!单位信息 = Text3.Textrs!签约情况统计 = Text4.Textrs.Updaters.Closeconn.CloseAdodc1.RefreshElseMsgBox ("不存在此记录！") Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" rs.Close conn.Close Exit Sub End IfEnd SubPrivate Sub delete_Click()If Not IsNumeric(Text5.Text) Or Val(Text5.Text) = 0 Then'编号字段是Access的自动编号，为自然数'因此对text4的内容进行校验，如果不是数值或为0则跳出sub过程 MsgBox "记录号是大于0的自然数，请输入正确的编号！" Exit Sub End If Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;" Str2 = "Data Source=C:\Documents and Settings\Administrator\桌面\就业信息.mdb;" Str3 = "Jet OLEDB:Database Password=" conn.Open Str1 & Str2 & Str3 strSQL = "select * from 表1 where 编号=" & Val(Text5.Text) & "" rs.Open strSQL, conn, 3, 3 If rs!编号 = Val(Text5.Text) Then rs.delete rs.Close conn.Close Adodc1.Refresh End IfEnd SubPrivate Sub quit_Click()EndEnd Sub
2021-11-30 12:28:57