VB学生管理系统主要代码.doc

《VB学生管理系统主要代码.doc》由会员分享，可在线阅读，更多相关《VB学生管理系统主要代码.doc（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、主要代码如下： 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 SubP

2、rivate 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 =

3、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

4、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

5、.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.Move

6、NextNext 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 SubPr

7、ivate 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.Mov

8、eNextNext 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()frmDataE

9、nv.Show 1End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()cn.ConnectionString = DSN=xsgl;name=sa;pass=sacn.opencn.CursorLocation = adUseClientrst0.LockType = adLockPessimisticrst1.LockType = adLockPessimisticrst2.LockType = adLockPessimisticrst3.LockType = adLockPessimisticrst0.open

10、 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.op

11、en 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(); Sq

12、lCommand c = new SqlCommand(sql, GetConn.conn); SqlDataReader reader = c.ExecuteReader(); if (reader.Read() string id = readerP_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);