VB学生管理系统主要代码.doc
主要代码如下： Dim cn As New ADODB.ConnectionDim rst0 As New ADODB.RecordsetDim rst1 As New ADODB.RecordsetDim rst2 As New ADODB.RecordsetDim rst3 As New ADODB.RecordsetPrivate Sub Cmd0add_Click()rst0.AddNewCmd0add.Enabled = FalseCmd0save.Enabled = TrueCmd0del.Enabled = FalseCmd0Exit.Enabled = TrueEnd SubPrivate Sub Cmd0del_Click()Cmd0add.Enabled = TrueCmd0save.Enabled = TrueCmd0del.Enabled = FalseCmd0Exit.Enabled = Truex = MsgBox("确定要删除吗", vbYesNoCancel + vbQuestion, "确认")If x = vbYes Thenrst0.DeleteEnd SubPrivate Sub Cmd0Exit_Click()cn.closeUnload MeEnd SubPrivate Sub Cmd0save_Click()Cmd0add.Enabled = TrueCmd0save.Enabled = FalseCmd0del.Enabled = TrueCmd0Exit.Enabled = Truerst0.Updaterst0.Sort = "应聘人编号"End SubPrivate Sub Cmd1Exit_Click()cn.closeUnload MeEnd SubPrivate Sub Cmd1Import_Click()rst0.MoveFirstFor i = 1 To rst0.RecordCount rst1.AddNew rst1.Fields("应聘人编号") = rst0.Fields("应聘人编号") rst0.MoveNext rst1.MoveNextNext i ' Cmd1Import.Enabled = False ' Cmd1OK.Enabled = True ' Cmd1Exit.Enabled = True End SubPrivate Sub Cmd1OK_Click()rst1.Fields("综合评分") = (Val(rst1.Fields("计算机能力") + rst1.Fields("业务能力") * 0.5If rst1.Fields("综合评分") >= 6 Then rst1.Fields("初选状态") = "通过" Else rst1.Fields("初选状态") = "未通过" End If rst1.Update rst1.Sort = "应聘人编号"End SubPrivate Sub Cmd2Exit_Click()cn.closeUnload MeEnd SubPrivate Sub Cmd2Import_Click()rst1.closerst1.open "select * from 初选表 where 初选状态='通过'", cnrst1.MoveFirstFor i = 1 To rst1.RecordCount rst2.AddNew rst2.Fields("应聘人编号") = rst1.Fields("应聘人编号") rst2.Fields("初选评分") = rst1.Fields("综合评分") rst1.MoveNextNext irst2.UpdateCmd2Import.Enabled = FalseEnd SubPrivate Sub Cmd2OK_Click()rst2.Fields("综合评分") = (rst2.Fields("初选评分") + rst2.Fields("外表形象") + rst2.Fields("领悟反应能力") / 3If rst2.Fields("综合评分") >= 6 Then rst2.Fields("录用情况") = "通过"Else rst2.Fields("录用情况") = "未通过"End Ifrst2.Updaterst2.Sort = "应聘人编号"rst2.MoveLastEnd SubPrivate Sub Cmd3Exit_Click()cn.closeUnload MeEnd SubPrivate Sub Cmd3Import_Click()rst2.closerst2.open "selsct * from 面试表 where 录用情况= '通过'"rst2.MoveFirstFor i = 1 To rst2.RecordCount rst3.AddNew rst3.Fields("应聘人编号") = rst2.Fields("应聘人编号") rst3.Fields("面试分") = rst2.Fields("综合评分") rst3.Fields("开始录用时间") = Date rst2.MoveNextNext iCmd3Import.Enabled = FalseEnd SubPrivate Sub Cmd3OK_Click()rst3.Fields("综合考核分") = (rst3.Fields("面试分") + rst3.Fields("笔试分") / 2If rst3.Fields("综合考核分") >= 6 Then rst3.Fields("是否录用") = "是" Else rst3.Fields("是否录用") = "否" End If rst3.Update rst3.Sort = "应聘人编号" rst3.MoveLastEnd SubPrivate Sub cxtg_Click()frmDataEnv.Show 1End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()cn.ConnectionString = "DSN=xsgl;name=sa;pass=sa"cn.opencn.CursorLocation = adUseClientrst0.LockType = adLockPessimisticrst1.LockType = adLockPessimisticrst2.LockType = adLockPessimisticrst3.LockType = adLockPessimisticrst0.open "select * from 登记表", cnSet DataGrid1.DataSource = rst0rst1.open "select * from 初选表", cnSet DataGrid2.DataSource = rst1If rst1.RecordCount <> 0 ThenCmd1Import.Enabled = FalseEnd Ifrst2.open "select * from 面试表", cnSet DataGrid3.DataSource = rst2If rst2.RecordCount <> 0 ThenCmd2Import.Enabled = FalseEnd Ifrst3.open "select * from 录用表", cnSet DataGrid4.DataSource = rst3If rst3.RecordCount <> 0 ThenCmd3Import.Enabled = FalseEnd IfEnd Sub2 学生基本信息浏览窗口图5.6学生基本信息浏览主要代码如下： string sql = string.Format("select P_id from Tb_popedom order by P_id desc"); if (GetConn.conn.State = ConnectionState.Closed) GetConn.conn.Open(); SqlCommand c = new SqlCommand(sql, GetConn.conn); SqlDataReader reader = c.ExecuteReader(); if (reader.Read() string id = reader"P_id".ToString(); txt_id.Text = (int.Parse(id.Substring(1, (id.Length - 1) + 1) + "" reader.Close(); GetConn.conn.Close(); /加载一级菜单 sql = "select * from Tb_function where F_level='1'" if (GetConn.conn.State = ConnectionState.Closed) GetConn.conn.Open(); sda = new SqlDataAdapter(sql, GetConn.conn); sda.Fill(ds, "fun");
