基于VB的学生公选课选课系统.docx

《基于VB的学生公选课选课系统.docx》由会员分享，可在线阅读，更多相关《基于VB的学生公选课选课系统.docx（16页珍藏版）》请在优知文库上搜索。

1、课程设计指导书课程程序设计班级11自一姓名杜康学号11020505目录一、功能描述3二、概要设计4三、各功能模块的详细设计及详细说明6四、运行效果9五、小组分工完成的任务12六、心得体会13七、附录程序14八、参考文献22一、功能描述：1、进入登录界面，输入正确的用户名和密码，即可成功登录，进入公选课课程界面。假设输入错误，那么可重新输入，否那么退出系统。对于菜单项。点击“学生登录，那么去除当前用户和密码信息，可以重新输入新的用户名和密码；点击“公选课课程信息，那么可浏览公选课课程信息界面；点击“个人选课信息，那么可进入个人选课信息界面进行相应操作。2、进入公选课课程信息界面，可以按课程名，课

2、程教师，开设学期，学分等关键字查询浏览数据库（允许模糊查询），例如，在课程名里输入自行车，然后点击查询，那么会显示所有与自行车相关的课程；在学分栏输入5,那么会显示所有学分为5的公选课课程信息。按课程教师，开设学期查询方法类似。另外，可以对课程信息进行分页查询，点击第一个，即可显示公选课课程信息中的第一条记录；点击下一个，即可显示公选课课程信息中的下一条记录；点击上一个，即可显示公选课课程信息中的上一条记录；点击最后一个，即可显示公选课课程信息中的最后一条记录。点击返回上一页，即可返回到登录界面。3、点击个人选课信息，进入学生选课信息界面，每名学生可以根据输入自己的学号，点击查询按钮查看到数据

3、库中自己的公选课选课情况，并实时显示已选的课程，如假设改变主意想要退选，选中自己的选课信息后点击退选按钮那么可以删除自己在数据库中已选的课程信息。点击返回上一页按钮，那么可以返回到公选课课程信息界面进行相应操作。点击首页按钮，即可返回到登录界面。点击退出系统，那么退出应用程序。二、概要设计：设计流程框图：主流程图：*查询公选课课程信息用户登录登录成功登录失败重新登录查询学生个人选课情况公选课课程信息子流程图:查询公选课课程信息学生个人选课情况查询子流程图:三、各功能模块的详细设计及详细说明：1、对于用户登录界面，首先设置Data控件和ACCeSS数据库之间的连接方式,一种是在程序中使用语句实现

4、，Datal.DatabaSeNajne=APP.path+DataLRecordSource=StUdent;另一种是将数据库与工程放在同一目录下，直接连接。本次使用的是直接连接方式，如下列图所示。然后使用Data数据控件中的Datal.和来查找数据库中满足与输入的用户和密码相匹配的记录，假设找到，那么提示密码正确，进入下一个界面，否那么提示密码错误，重新输入用户名和密码。通过UnIOadFOrm指令来释放内存，关闭窗体，从而实现退出系统。利用FOrnII.HideForm2.Show实现点击按钮之后，关闭Forml并从Forml切换Form2oData控件与Access连接方式图用户登录界

5、面2、在工程一部件中，添加Data控件、ADo控件、MSFIeXGrid控件，然后添加到窗体中。建立四个OPtionl控件数组，其属性窗口中的index分别为0、1、2、3,并把它们和MSFleXGrid控件属性DataSOUrCe均设置为Datal。然后通过OPtiOnI.Item(0、1、2、3)是否等于TrUe来判断哪一个控件被按下，从而利用If_EndIf指令进行条件查询。使用=select*from课程信息表where字段名like*&Text().Text&*语句来从数据库中模糊查询与输入信息相匹配的记录，并将其显示在MSFIeXGrid中。用指令将数据库及时的更新。利用第一个“上

6、一个“下一个“最后一个以实现分页浏览。ADO控件与ACCeSS数据库连接方法如下列图所示。找到目录下的数据库,选择后点击翻开。Ado控件与Access连接方式图公选课信息查询界面3、使用Datal.RecordSource=select*fromStudentwhere学号like*&Textl.Text&*来查询数据库中符合条件的记录，并在MsFlexGrid显示出来。使用进行对选中记录的删除操作，实现对学生个人公选课的退选。对数据库及时的进行更新。最后用End指令结束程序。学生个人选课信息查询界面四、运行效果：1、翻开工程，点击运行后，出现用户登录界面。用户名为姓名，密码为学号,输入正确后

7、，系统提示“密码正确，那么可点击确定进入下个界面。如下图,输入李阳，11020504，点击登陆，那么系统提示密码正确“。用户登录界面运行效果图2、选择课程名，输入课程名称，点击查询，在MSFIeXGrid中即相应显示出查到的课程信息。如下图，选中“课程名“，输入服饰文化，点击查询，即出现下列图所示“服饰文化王二42023上。按课程名查询效果图选择课程教师，输入课程教师姓名，点击查询，在MSFleXGrid中即相应显示出查到的课程信息。如下图，选中课程教师名，输入王五“，点击“查询，即出现下列图所示“汽车文化王五32023下。按教师名查询效果图选择开设学期，输入开设学期，点击查询，在MSFIeX

8、Grid中即相应显示出查到的课程信息。如下图，选中“开设学期“，输入2023下“，点击“查询，即出现下列图所示所有在2023年下学期开设的选修课的信息。按学期查询效果图选择学分，输入学分数，点击查询，在MSFleXGrid中即相应显示出查到的课程信息。如下图，选中学分，输入6，点击查询，即出现下列图所示所有学分为6分的选修课的信息。按学分查询效果图点击“第一个，那么显示第一条公选课的记录分页查询效果图1点击“下一个，那么显示下一条公选课的记录分页查询效果图2点击“最后一个，那么显示最后一条公选课的记录分页查询效果图3点击“上一个，那么显示上一条公选课的记录分页查询效果图43、点击上图中的学生个

9、人选课信息，那么出现下列图界面。输入学号后，点击查看，即可在MSFleXGrid中即相应显示出查到的学生公选课信息。学生个人选课界面如改变主意，可以在选中个人信息的情况下，点击退选按钮，即弹出如下图窗口，点击确定，那么该学生的个人公选课信息将会自动从数据库中删除。学生退选课程效果图点击返回上一页，那么返回到选修课课程信息界面。点击首页“，那么返回到登录界面。点击“退出系统，那么退出应用程序。五、小组分工完成的任务对学生公选课选课系统VB工程的设计；VB软件代码的编写；系统的调试六、心得体会经过这次程序设计，我深刻体会到，不怕课题难，就怕不努力。必须要有明确的目标和方向，并为之而不断前进。由于本

10、次使用的ViSUalBasic6.O软件时第一次接触，大家都没有VB编程的根底，所以代码编写时遇到了很大困难。但通过不断地查阅资料和教材，以及大量地浏览网络上论坛里的帖子，大家共同努力完成了系统的设计和代码的编写。所以说，拥有较快的学习能力和阅读能力是十分重要的。虽然程序在调试时还是有错误，但经过老师的指导，我们很快找到了错误的原因，并及时纠正，顺利地完成了本次有关学生公选课选课系统的设计任务。七、附录：登录窗口：PrivateSubCommandIClick()Datal.Recordset.FindFirst姓名=&Textl.Text&IfDatal.Recordset.NoMatchT

11、henExitSubElseIfDataLReCordSet.Fields(学号)=Text2.TextThenMsgBox密码正确ElseMsgBox密码错误TextLText=Text2.Text=EndIfEndIfEndSubPrivateSubCOmmand2ClickOUnloadFormlEndEndSubPrivateSub个人选课列表ClickOEndSubPrivateSub公选课课程信息_Click()EndSubPrivateSub退出选课系统_Click()UnloadFormlEndEndSubPrivateSub学生登录_Click()TextLText=Text

12、2.Text二EndSub选修课课程信息查询(可实现模糊查询、分页查询)：OptionExplicitPrivateSubCommandl_Click()IfOptionl.Item(O)=TrueThenDatal.RecordSource=select*from课程信息表where课程名like*&TextLText&*EndIfIfOptionl.Item(I)=TrueThenDatal.RecordSource=select*from课程信息表where课程教师like*&Text2.Text&*EndIfIfOptionl.Item(2)=TrueThenDatal.RecordS

13、ource=,select*from课程信息表where开设学期like*&Text3.Text&*EndIfIfOptionl.Item(3)=TrueThenDatal.RecordSource=select*from课程信息表where学分like*&Text4.Text&*EndIfEndSubPrivateSubCommand2Click()EndSubPrivateSubCommand3Click()Text5.Text=rs!课程名Text6.Text=rs!课程教师Text7Text=rs!开设学期Text8.Text=rs!学分Command4.Enabled=FalseEn

14、dSubPrivateSubCOmmand4_Click0Text5.Text=rs!课程名Text6.Text=rs!课程教师Text7,Text=rs!升设学期TeXI8. Text=rs!学分Command5. Enabled = TrueEnd SubPrivate Sub Command5 Click()Text5. Text - rs!课程名Text6. Text = rs!课程教师Text7. Text=rs!开设学期Text8.Text=rs!学分Command4.Enabled=TrueEndSubPrivateSubCommand6Click()Text5.Text=rs!课程名Text6.Text-rs!课程教师Text7.Text=rs!开设学期Text8.Text=rs!学分Command5.Enabled=FalseEndSubPrivateSubCommand7Click()EndSubPrivateSubFormLoad()Dimtr3AsStringDimstrsqlAsStringStr3=wProvider=Microsoft.Jet.OLEDB.4.OjDataSource=Course.mdb;PersistSecurityInfo=Falseconn.OpenStr3strsql=select*from课程信息表rs.Openstrs