软件开发和环境与工具课程设计报告--小型学生成绩管理系统.docx

《软件开发和环境与工具课程设计报告--小型学生成绩管理系统.docx》由会员分享，可在线阅读，更多相关《软件开发和环境与工具课程设计报告--小型学生成绩管理系统.docx（27页珍藏版）》请在课桌文档上搜索。

1、软件开发环境与工具综合实验实验题目：小型学生成绩管理系统一.课程设计目的与设计方案21、设计目的22、总体思路23、课程设计内容24、项目需求了解25、软件总体模块设计2二.界面设计和功能设计31、用户登录界面32、用户注册界面33、用户密码找回界面44、学生成绩管理系统主界面55、学生基本信息查询界面66、学生成绩查询界面67、学生选课信息查询界面6三.数据库相关设计71、登录系统用户表72、学生信息表73、课程信息表74、选课信息表75、视图V_SC82、视图V_Score8四.实验步骤81、登录界面82、学生成绩管理主界面8五.各个界面的代码实现81、frmlog登录界面82、frmSy

2、s学生成绩管理系统主界面122、frmregister注册界面153、frmfound密码找回界面185、frmlnforStudent学生基本信息查询界面196、frmlnforSC学生选课信息查询界面237、frmlnforScore学生成绩查询界面24六.总结和体会26一、课程设计的目的1、设计目的：(1)、通过本次课程设计，提高实践动手能力，进一步理解计算机程序设计的思路与方法；(2)、进一步熟练运用VB.NET的语言元素和流程控制语句；(3)、熟悉用户界面的设计，达到能熟练使用各种常见的VB.NET的控件，理解面向对象的思想；(4)、掌握数据访问控件及相关对象的使用，能基于空间实现对

3、SQLSerVer数据库的数据访问与操作；2、总体思路：用VistualStudio2010创建“登陆界面”项目，设计各个相关学生信息的窗体,例如：登陆界面、主界面、密码找回界面、注册界面、学生信息查询界面、学生选课信息界面、学生成绩查询界面等。建立记录相关信息的数据库(Iyn)表,连接数据库后，更改窗体及控件的相关属性，修改代码，运行实现该学生成绩管理系统的基本功能。3、课程设计内容：小型学生成绩管理系统(I)课程设计的实验环境：硬件要求能运行WindOWSXP操作系统；开发工具可采用MicrosoftVisualStudio2005,数据库管理系统采用SQLSerVer。(2)课程设计的预

4、备知识熟悉软件开发的基本知识，有熟练运用数据库管理系统、.net或JaVa开发平台、方案设计能力等诸多具体问题有感性的认识和深入的理解、软件设计、开发和维护的能力。4、.项目需求了解：对学生基本信息，选课管理，成绩管理等相关信息的添加、删除、修改等操作。5、软件总体模块设计：本系统主要包括6个模块：(1)用户管理模块：用于对用户的添加，赋于不同权限及对用户的修改及查询。(2)学生信息管理：用于对学生基本信息的输入、修改、查询，可随时根据查询结果动态生成学生基本信息查询报表。(3)选课信息管理：用于对学生选课信息的录入与修改。(4)课程管理模块：用于对各学期课程的开设和修改。(5)成绩查询管理：

5、用于对成绩的输入、修改、查询可随时根据查询结果动态生成学生成绩查询报表。amecnameOtadecreditEESEHH刊,此计算机科字6.OO3.00100l刻光计尊机技术75.002.00100l划光效字60.003.001002弓长浩计百帆科学59.003.001002弓长浩廿耳机技术90.002.001003李斯计算m科学90.003.00NoOA李丽讨算机科字69.003.00工OOO李丽计空机技术70.002.00100A李BH效5库70.003.00100-4李丽电子ISm80.002.001004李HH劫字69.003.001005于晓昧计吞帆科学63.003.00IoOG精

6、华计尊机科字9-4.003.00四、实验步骤1、登录界面(1)在登录界面frmlog中，用户名、密码与数据库中的信息匹配和验证码信息相符时，点击“登录”按钮进入到frmSys窗体中，若不匹配，则会掏出对话框提示出错，重新输入；(2)不是该系统用户时，可以点击“注册”进入注册界面frmregister,填写注册信息；(3)如果用户忘记密码了，可以点击“忘记密码”进入找回密码界面frmfound,重新设置密码。2、学生成绩管理主界面(1)查看学生信息，点击“查询-学生信息”进入学生基本信息界面frmlnforStudent；(2)查看学生成绩，点击“查询-学生成绩”进入学生成绩查询界面frmlnf

7、orScore；(3)查看选课信息，点击“查询-选课信息”进入学生选课信息界面frmlnforSC；五、各个界面的代码实现1、frmlog登录界面(1) vb界面代码PublicClassfrmlnforGradePrivateSubButtonl_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.ClickDimobjDS,objDDAsNewDataSetDimXSTableAsDataTableDimStableAsDataTableDimcn,cn2AsNewSqlClient.SqlCon

8、nectionDimcmd,cmd2AsNewSqlClient.SqlCommandDimdatAd,datASAsNewSqlClient.SqlDataAdaptercn.ConnectionString=denglu.cIsConnect.getConn()cmd.Connection=cncmd.CommandType=CommandType.Textcmd.CommandText=*selectsno学号，sname姓名，avg(grade)均分，$Um(Credit)总学分fromVScorewheresno=*&TextBoxl.Text&orsname=,&TextBox2.

9、Text&groupbysno,sname*cn.OpenOdatAd.SelectCommand=cmddatAd.FilKobjDS,“Score)XSTable=ObjDS.Tables(V_SCOre)cn.CloseODataGridViewl.DataSource=XSTablecn2.ConnectionString=denglu.cisConnect.getConn()cmd2.Connection=cn2cmd2.CommandType=CommandType.Textcmd2.CommandText=*select*fromstudentwheresno=&TextBoxl

10、.Text&*,orsname=&TextBox2.Text&datAS.SelectCoininand=cmd2datAS.Fill(objDD,student)Stable=objDD.Tables(*student*)cn2.CloseOtxtStuXII.Text=Stable.Rows.Item(O).Item(*sno*)txtStuXM.Text=Stable.Rows.Item(O).Item(*sname*)txtStuNL.Text=Stable.Rows.Item(O).Item(*sage*)txtStuZY.Text=Stable.Rows.Item(O).Item(

11、*smajor*)CbxStuXB.Text=Stable.Rows.Item(O).Item(*sex*)txtStuX.Text=Stable.Rows.Item(O).Item(z,sciept*)(ItpStuBirth.Text=Stable.Rows.Item(O).Item(*sbirth*)PictureBox2.Image=Image.FromFiIe(Application.StartupPath&*img*&(Stable.Rows.Item(O).Item(*stouxiang*)&*.jpg*)EndSubPrivateSubButton2_Click(ByValse

12、nderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimdsAsNewDataSetDimVTableAsDataTableDimcnAsNewSqlClient.SqlConnectionDimcmdAsNewSqlClient.SqlCommandDimdaAsNewSqlClient.SqlDataAdaptercn.ConnectionString=denglu.cIsConnect.getConn()cmd.Connection=cncmd.CommandType=CommandType.Textcmd.

13、CommandText=*selectsno学号，sname姓名，avg(grade)均分，$Um(Credit)总学分fromVScoregroupbysno,sname”cn.OpenOda.SelectCommand=cmdda.Fill(ds,*VScore*)VTable=ds.Tables(*VScore*)cn.CloseODataGridView2.DataSource=VTableEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Cl

14、ickMe.Close()frmSys.ShowOEndSubPrivateSubRadioButton1_CheckedChanged(ByVa1senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButtonl.CheckedChangedTextBoxl.Enabled=TrueTextBox2.Enabled=FalseEndSubPrivateSubRadioButton2_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handle

15、sRadioButton2.CheckedChangedTextBox2.Enabled=TrueTextBoxl.Enabled=FalseEndSubEndClass(2) cisUser代码PublicClasscIsUserPublicdimAsStringPublicdlvnAsStringPublicqrmmAsStringPublicxmAsStringPublicsexAsStringPublicphoneAsStringPublicqqAsStringPublicmai1AsStringPublicyzmAsStringPublicrandomAsStringEndClass

16、(3) ClSCOnneCt代码PublicClasscIsConnectPublicSharedFunctiongetConn()AsStringReturn*server=.;uid=lyn;pwd=l23Jdatabase=Iyn*EndFunctionEndClass(4) ClSCheCkI代码PublicClasscIsChecklPublicFunctionLoginllandle(ByValmAscIsUser)AsStringIfm.dlm=ThenReturn用?户ID不?能U为a空？!?”EndIfIfm.dlmm=ThenReturn”用?户密。码?不?能(!为a空？！

17、？”EndIfIfm.yzm=ThenReturn”验6证CJ码?不?能口为a空？！?*EndIfIfm.qrmmOm.dlnunThenReturn你?两?次?输?入?的?密U码?不?一?致？，？清?重?新?输?入？！？”EndIfDimoDALAsNewclsCheck2ReturnoDAL.Login(m)EndFunctionEndClass(5) ClSCheCk2代码PublicClassclsCheck2PublicFunctionLogin(ByValmAscIsUser)AsStringDimconnAsNewSqlClient.SqlConnectionconn.Conne

18、ctionString=denglu.cisConnect.getConn()DimcmdAsNewSqlClient.SqlCommandcmd.CommandType=ComniandType.Textcmd.Connection=conncmd.CommandText=*selectcount(*)fromyonghuwhereUserID=&m.dim&andUserPwd=&m.(11mm&Tryconn.Open()IfCType(cmd.ExecuteScalar(),Integer)OThenconn.Close()conn.Dispose()Return1ElseIfm.yz

19、mOm.randomThenReturn”验6证口码?错洙？误6!?”Elseconn.Close()conn.Dispose()Return”账？号？或b密。码?错洙？误6!?”EndIfCatchexAsExceptionconn.Close()conn.Dispose()Returnex.MessageEndTryEndFunctionEndClass2、frmSys主界面PublicClassfrmSysPrivateSubTextBoxl-TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTe

20、xtBoxl.TextChangedTimerLStartOTooIStriPStatUSLabeI2.Text=文本框中的字符数为：&TextBoxl.TextLengthToolStripStatusLabel3.Text=当前日期为：&Format(Now(),*yyyyMMdd*)EndSubPrivateSubTimerl_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimerl.TickToolStripStatusLabel1.Text=当前时间为：*&Format(Now(),*HH:mm:ss

21、*)EndSubPrivateSubMnu_Edit_cut_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_Edit_cut.ClickTextBoxl.Cut()EndSubPrivateSubMnu_Edit_copy_C1ick(ByVa1senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_Edit_copy.ClickTextBoxl.CopyOEndSubPrivateSubMnu_Edit_paste_Click(ByValse

22、nderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_Edit_paste.ClickTextBoxl.PasteOEndSubPrivateSubMnu_Edit_del_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_Edit_del.ClickTextBoxl.SelectedTextO=”EndSubPrivateSubToolStripButton1_C1ick(ByVa1senderAsSystem.Object,ByValeAsSys

23、tem.EventArgs)HandlesToolStripButtonl.ClickTextBoxl.CopyOEndSubPrivateSubToolStripButton2_C1ick(ByVa1senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton2.ClickTextBoxl.Cut()EndSubPrivateSubToolStripButton3_C1ick(ByVa1senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripBu

24、ttonS.ClickTextBoxl.PasteOEndSubPrivateSubToolStripButton4_C1ick(ByVa1senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton4.ClickTextBoxl.SelectedTextO=”EndSubPrivateSubCon_Mnu_copy_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCon_Mnu_copy.ClickTextBoxl.CopyOEndS

25、ubPrivateSubCon_Mnu_paste_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCon_Mnu_paste.ClickTextBoxl.PasteOEndSubPrivateSubCon_Mnu_cut_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCon_Mnu_cut.ClickTextBoxl.Cut()EndSubPrivateSubCon_Mnu_del_Click(ByValsenderAsSyst

26、em.Object,ByValeAsSystem.EventArgs)HandlesCon_Mnu_del.ClickTextBoxl.SelectedTextO=”EndSubPrivateSubMnu_sys_Open_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_sys_Open.ClickOpenFiIeDialogl.InitialDirectory=*d:*OpenFileDialogLFilter=*txtfiles(*.txt)*.txtAllfiles(*.*)*.*OpenFileD

27、ialogLFilterindex=2OpenFileDialogl.RestoreDirectory=TrueOpenFiIeDialogl.ShowDialog()EndSubPrivateSubOpenFiIeDiaIogl_FiIeOk(ByValsenderAsSystem.Object,ByValeAsSystem.ComponentModel.CancelEventArgs)HandlesOpenFileDialogl.FileOkDimfiIenameAsStringDimfAsSystem.10.FileStreamDimmyStreamAsSystem.10.StreamR

28、eaderfilename=OpenFileDialogl.FileNameIfNot(filenameIsNothing)Thenf=NewSystem.10.FiIeStream(filename,10.FileMode.Open,10.FileAccess.Read)myStream=NewSystem.10.StreamReader(f,System.Text.Encoding.Default)TextBoxl.Text=myStream.ReadToEndOmyStream.CloseOEndIfEndSubPrivateSubMnu_sys_Save_Click(ByValsend

29、erAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_sys_Save.ClickSaveFileDialogl.Filter=*txtfile(*.txt)*.txtallfile(*.*)*.*SaveFileDialogl.Filterindex=2SaveFi1eDia1og1.RestoreDirectory=TrueSaveFiIeDialogl.ShowDialog()EndSubPrivateSubSaveFiIeDiaIogl_FiIeOk(ByValsenderAsSystem.Object,ByValeAsSystem

30、.ComponentModel.CancelEventArgs)HandlesSaveFileDialogl.FileOkDimfiIenameAsStringDimwAsSystem.IO.StreamWriterfilename=SaveFileDialogl.FileNameIfNot(filenameIsNothing)Thenw=System.10.File.CreateText(fiIename)w.Write(TextBoxl.Text)w.CloseOEndIfEndSubPrivateSubMnu_sys_Exit_Click(ByValsenderAsSystem.Obje

31、ct,ByValeAsSystem.EventArgs)HandlesMnu_sys_Exit.ClickMe.Close()EndSubPrivateSubMnu_sys_New_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_sys_New.ClickTextBoxl.ResetText()EndSubPrivateSubMnu_Edit_date_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_Edit_dat

32、e.ClickM$gBox(当前时间为，Now()EndSubPrivateSubMsgBox(ByValplAsString,ByValp2AsDate)ThrowNewNotImpIementedExceptionEndSubPrivateSubToolStripButton5_C1ick(ByVa1senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButtonS.ClickFontDialogl.ShowApply=TrueFontDialogLShowColor=TrueFontDialogl.ShowIIel

33、p=TrueIfFontDialogl.ShowDialog=DialogResult.OKThenTextBoxl.Font=FontDialogl.FontTextBoxl.ForeColor=FontDialogl.ColorEndIfEndSubPrivateSubFontDiaIOgLAPPIy(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesFontDialogLApplyTextBoxl.Font=FontDialogl.FontTextBoxl.ForeColor=FontDialogl.ColorEndSu

34、bPrivateSubMnu_se1ect_infor_Click(ByVa1senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_select_infor.ClickMe.IIideOfrmlnforStudent.ShowDialog()EndSubPrivateSubMnu_in_student_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_in_student.ClickMe.HideOfrmlnforStudent.ShowDial

35、og()EndSubPrivateSubMnu_in_grade_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_in_grade.ClickMe.IIideOfrmInforGrade.ShowDialogOEndSubPrivateSubMnu_select_score_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnu_select_score.ClickMe.IIideOfrmlnForGrade.ShowDialogOEndSubPrivateSubfrmSys_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadTextBoxLText=”随着信息技术的飞速发展和日趋激烈的商业竞争，人力资源管理的处理也逐渐采用科学化的管理。本论文论述了人力资源管理系统的开发过程：需求分析、功能设计、数据库