VB学生成绩管理系统代码

SANYGROUPsystemofficeroom【SANYUA16H-SANYHUASANYUA8Q8-SANYUA1688】VB学生成绩管理系统代码http://wenku.baidu.com/view/ee1eb60a79563c1ec5da71a0.html（1）密码判断PrivateSubForm_Load()i=3EndSubPrivateSubCommand1_Click()If(Text2<>"wwz314")Or(Text1<>"wwz314")Theni=i-1Ifi=0Thena=MsgBox("不要再做无谓的尝试！再见!",,"提示")EndElsea=MsgBox("密码错误，你还有"&i&"次机会",,"提示")EndIfElseUnloadForm1Form2.ShowEndIfEndSub（2）添加信息Form2.Adodc1.CommandType=adCmdUnknown定义命令类型Form2.Adodc1.RecordSource="select*fromfilenamewhere学号='"&Text0&"'and课程号='"&Text3&"'"从学号和课程号中查找Form2.Adodc1.RefreshIfNotForm2.Adodc1.Recordset.EOFThenMsgBox"已存在"ExitSubEndIfForm2.Adodc1.Recordset.AddNew新增一条空白记录Form2.Adodc1.Recordset.Fields("学号")=Text0Form2.Adodc1.Recordset.Fields("姓名")=Text1Form2.Adodc1.Recordset.Fields("性别")=Text2Form2.Adodc1.Recordset.Fields("课程号")=Text3Form2.Adodc1.Recordset.Fields("课程名")=Text4Form2.Adodc1.Recordset.Fields("成绩")=Text5Form2.Adodc1.Recordset.UpdateForm2.Adodc1.Recordset.MoveFirstMsgBox"记录已成功添加。"（3）删除信息PrivateSubCombo1_Click()Form2.Adodc1.Recordset.MoveFirststy=Combo1.TextForm2.Adodc1.Recordset.find"学号='"&sty&"'"IfForm2.Adodc1.Recordset.EOFThen如果记录到达末尾则未查找到Combo1.ListIndex=0ElseText1=Form2.Adodc1.Recordset.Fields("姓名")显示姓名Text2=Form2.Adodc1.Recordset.Fields("学号")显示学号EndIfEndSubPrivateSubCommand1_Click()j=Combo1.ListIndexCombo1.RemoveItemjj=j1Form2.Adodc1.Recordset.Delete删除记录Form2.Adodc1.Recordset.MoveNextIfForm2.Adodc1.Recordset.EOFThenForm2.Adodc1.Recordset.MoveLastIfj>Combo1.ListCount-1Thenj=Combo1.ListCount-1Combo1.ListIndex=jText1=Form2.Adodc1.Recordset.Fields("姓名")显示姓名Text2=Form2.Adodc1.Recordset.Fields("学号")显示学号EndSubPrivateSubCommand2_Click()i=MsgBox("继续?"&vocal&"—点击确定返回删除界面"&vocal&"—点击取消直接返回主界面",vbOKCancel,"思考中……")Ifi=2ThenUnloadMe关闭删除窗体EndSubPrivateSubCommand3_Click()UnloadMe关闭删除窗体EndSubPrivateSubForm_Load()Form2.Adodc1.CommandType=adCmdTable指定命令类型为adCmdTableForm2.Adodc1.RecordSource="filename"数据源为全部数据（filename）Form2.Adodc1.RefreshForm2.Adodc1.Recordset.MoveFirst移动到第一条记录DoWhileNot(Form2.Adodc1.Recordset.EOF)Combo1.AddItemForm2.Adodc1.Recordset.Fields("学号")列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 框中添加全部学号Form2.Adodc1.Recordset.MoveNext记录下移一条LoopForm2.Adodc1.Recordset.MoveFirstCombo1.ListIndex=0EndSub（4）修改信息PrivateSubCommand1_Click()s=MsgBox("确定修改此学生信息？",vbOKCancel)Ifs=vbOKThenForm2.Adodc1.Recordset.Fields("姓名")=Text1修改姓名Form2.Adodc1.Recordset.Fields("性别")=Text3修改性别Form2.Adodc1.Recordset.Fields("课程号")=Text4修改课程号Form2.Adodc1.Recordset.Fields("课程名")=Text5修改课程名Form2.Adodc1.Recordset.Fields("成绩")=Text6修改成绩MsgBox"修改成功！"ElseForm2.Adodc1.Recordset.CancelUpdate更新记录EndIfEndSub绘图PublicaAsSingle,bAsSingle,cAsSingle,dAsSingle,eAsSingle,numAsSingle（5）绘制直方图SubCreat()Form6.Scale(-12,-8)-(8,8)'Form6.Scale(-6,8)-(12,-2)Form6.Line(-5,4)-(8,4),vbBlueForm6.Line(-5,4)-(-5,-5),vbRedForm6.CurrentX=2:Form6.CurrentY=-2a1=12*a/numb1=12*b/numc1=12*c/numd1=12*d/nume1=12*e/numForm6.Line(-4.5,4)-(-3,-a14),vbRed,BFForm6.Line(-2.5,4)-(-1,-b14),vbGreen,BFForm6.Line(-0.5,4)-(1,-c14),vbBlue,BFForm6.Line(1.5,4)-(3,-d14),RGB(210,0,200),BFForm6.Line(3.5,4)-(5,-e14),RGB(170,180,0),BFEndSubSublitizf()Creat‘调用create 函数 excel方差函数excelsd函数已知函数     2 f x m x mx m      2 1 4 2拉格朗日函数pdf函数公式下载 Dimi%,x1AsSingle,y1AsSingle,x2AsSingle,y2AsSingle,x3AsSingleForm6.Line(-11,-7)-(-9,-6.5),vbRed,BF绘制红色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-7:Form6.Print"90-100分"Form6.Line(-11,-6.5)-(-9,-6),vbGreen,BF绘制绿色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-6.5:Form6.Print"80-89分"Form6.Line(-11,-6)-(-9,-5.5),vbBlue,BF绘制蓝色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-6:Form6.Print"70-79分"Form6.Line(-11,-5.5)-(-9,-5),RGB(210,0,200),BF绘制紫红色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-5.5:Form6.Print"60-69分"Form6.Line(-11,-5)-(-9,-4.5),RGB(170,180,0),BF绘制草绿色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-5:Form6.Print"00-59分"EndSub(6)绘制饼图Subbingtu()Form6.Scale(-12,-8)-(8,8)DimXsAsSingleConstPi=3.141593Form6.ShowForm6.FillStyle=0Xs=2*Pi/numIfa>0ThenForm6.FillColor=vbRedForm6.Circle(0,0),6,0,-2*Pi,-a*XsEndIf绘制红色扇形Ifb>0ThenForm6.FillColor=vbGreenForm6.Circle(0,0),6,vbGreen,-a*Xs,-(ab)*XsEndIf绘制绿色扇形Ifc>0ThenForm6.FillColor=vbBlueForm6.Circle(0,0),6,0,-(ab)*Xs,-(acb)*XsEndIf绘制蓝色扇形Ifd>0ThenForm6.FillColor=RGB(210,0,200)Form6.Circle(0,0),6,0,-(abc)*Xs,-(acbd)*XsEndIf绘制紫红色扇形Ife>0ThenForm6.FillColor=RGB(170,180,0)Form6.Circle(0,0),6,0,-(abcd)*Xs,-(acbde)*XsEndIf绘制草绿色扇形Form6.Line(-11,-7)-(-9,-6.5),vbRed,BF绘制红色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-7:Form6.Print"90-100分"Form6.Line(-11,-6.5)-(-9,-6),vbGreen,BF绘制绿色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-6.5:Form6.Print"80-89分"Form6.Line(-11,-6)-(-9,-5.5),vbBlue,BF绘制蓝色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-6:Form6.Print"70-79分"Form6.Line(-11,-5.5)-(-9,-5),RGB(210,0,200),BF绘制紫红色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-5.5:Form6.Print"60-69分"Form6.Line(-11,-5)-(-9,-4.5),RGB(170,180,0),BF绘制草绿色矩形Form6.CurrentX=-8.9:Form6.CurrentY=-5:Form6.Print"00-59分"EndSub(7)保存文件Subbaocun()OnErrorGoToabcDimstudAsxinxifn=App.Path当前文件所在路径CommonDialog1.InitDir=fn指定默认路径CommonDialog1.FileName=""CommonDialog1.Filter="*.txt|*.txt|*.*|*.*"打开文本文件和所有文件CommonDialog1.ShowSave显示保存对话框OpenCommonDialog1.FileNameForRandomAs#1随机打开文件Adodc1.Recordset.MoveFirst记录位于首记录WithstudDoWhileNotAdodc1.Recordset.EOF判断是否到达末尾.xuehao=Adodc1.Recordset.Fields("学号"):.xingming=Adodc1.Recordset.Fields("姓名").xingbie=Adodc1.Recordset.Fields("性别"):.kch=Adodc1.Recordset.Fields("课程号")将信息存入变量中.kcm=Adodc1.Recordset.Fields("课程名"):.cj=Adodc1.Recordset.Fields("成绩")Put#1,,stud写入文件保存变量studAdodc1.Recordset.MoveNextLoopEndWithClose#1Adodc1.Recordset.MoveFirsta=MsgBox("文件写入成功!",,"提示")abc:EndSub(8)按学号查询：PrivateSubanxh_Click()Dimnum$num=InputBox("请输入要查询的学号","学号查询")Ifnum<>""ThenAdodc1.CommandType=adCmdUnknownAdodc1.RecordSource="Select*FromfilenameWhere学号='"&num&"'"Adodc1.RefreshIfAdodc1.Recordset.EOFThena=MsgBox("未找到！请确认输入的学号是否正确。",,"提示")Adodc1.CommandType=adCmdTableAdodc1.RecordSource="filename"显示全部数据记录Adodc1.Refresh刷新EndIfEndIfEndSub按姓名查询（同按学号）：Adodc1.RecordSource="Select*FromfilenameWhere姓名='"name1"'"按高于某分查询（同按学号）：Adodc1.RecordSource="Select*FromfilenameWhere成绩>="&en&""按低于某分值查询（同按学号）：：Adodc1.RecordSource="Select*FromfilenameWhere成绩<="&zcji&""(9)打开帮助文件dbname=App.PathIfRight$(dbname,1)<>"\"Thendbname=dbname&"\"找到文件路径Shell"hh.exe"dbname"z08050743.chm",1调用shell函数打开chm文件(10)工具条按钮代码PrivateSubToolbar2_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1:Form3.ShowCase2:baocunCase3:Form4.ShowCase4:Form7.ShowCase5:Form8.ShowCase6:PopupMenutongjiCase7:CommonDialog1.ShowPrinterCase8:PopupMenuhelpCase9:EndEndSelectEndSub（11）工具条下拉菜单代码：PrivateSubToolbar2_ButtonMenuClick(ByValButtonMenuasSComctlLib.ButtonMe)SelectCaseButtonMenu.IndexCase1:anxm_ClickCase2:anxh_ClickCase3:zcji_ClickEndSelect