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

VB学生管理系统主要代码

第一篇：VB学生管理系统主要代码主要代码如下：DimcnAsNewADODB.ConnectionDimrst0AsNewADODB.RecordsetDimrst1AsNewADODB.RecordsetDimrst2AsNewADODB.RecordsetDimrst3AsNewADODB.RecordsetPrivateSubCmd0add_Click()rst0.AddNewCmd0add.Enabled=FalseCmd0save.Enabled=TrueCmd0del.Enabled=FalseCmd0Exit.Enabled=TrueEndSubPrivateSubCmd0del_Click()Cmd0add.Enabled=TrueCmd0save.Enabled=TrueCmd0del.Enabled=FalseCmd0Exit.Enabled=Truex=MsgBox(“确定要删除吗”,vbYesNoCancel+vbQuestion,“确认”)Ifx=vbYesThenrst0.DeleteEndSubPrivateSubCmd0Exit_Click()cn.closeUnloadMeEndSubPrivateSubCmd0save_Click()Cmd0add.Enabled=TrueCmd0save.Enabled=FalseCmd0del.Enabled=TrueCmd0Exit.Enabled=Truerst0.Updaterst0.Sort=“应聘人编号”EndSubPrivateSubCmd1Exit_Click()cn.closeUnloadMeEndSubPrivateSubCmd1Import_Click()rst0.MoveFirstFori=1Torst0.RecordCountrst1.AddNewrst1.Fields(“应聘人编号”)=rst0.Fields(“应聘人编号”)rst0.MoveNextrst1.MoveNextNexti'Cmd1Import.Enabled=False'Cmd1OK.Enabled=True'Cmd1Exit.Enabled=TrueEndSubPrivateSubCmd1OK_Click()rst1.Fields(“综合评分”)=(Val(rst1.Fields(“计算机能力”))+rst1.Fields(“业务能力”))*0.5Ifrst1.Fields(“综合评分”)>=6Thenrst1.Fields(“初选状态”)=“通过”Elserst1.Fields(“初选状态”)=“未通过”EndIfrst1.Updaterst1.Sort=“应聘人编号”EndSubPrivateSubCmd2Exit_Click()cn.closeUnloadMeEndSubPrivateSubCmd2Import_Click()rst1.closerst1.open“select*from初选表where初选状态='通过'”,cnrst1.MoveFirstFori=1Torst1.RecordCountrst2.AddNewrst2.Fields(“应聘人编号”)=rst1.Fields(“应聘人编号”)rst2.Fields(“初选评分”)=rst1.Fields(“综合评分”)rst1.MoveNextNextirst2.UpdateCmd2Import.Enabled=FalseEndSubPrivateSubCmd2OK_Click()rst2.Fields(“综合评分”)=(rst2.Fields(“初选评分”)+rst2.Fields(“外表形象”)+rst2.Fields(“领悟反应能力”))/3Ifrst2.Fields(“综合评分”)>=6Thenrst2.Fields(“录用情况”)=“通过”Elserst2.Fields(“录用情况”)=“未通过”EndIfrst2.Updaterst2.Sort=“应聘人编号”rst2.MoveLastEndSubPrivateSubCmd3Exit_Click()cn.closeUnloadMeEndSubPrivateSubCmd3Import_Click()rst2.closerst2.open“selsct*from面试表where录用情况='通过'”rst2.MoveFirstFori=1Torst2.RecordCountrst3.AddNewrst3.Fields(“应聘人编号”)=rst2.Fields(“应聘人编号”)rst3.Fields(“面试分”)=rst2.Fields(“综合评分”)rst3.Fields(“开始录用时间”)=Daterst2