还剩51页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
课程设计报告册课程设计报告设计项目编号1名称学生信息管理系统主要仪器设备PC附属设备主要使用软件Oracle、VisualBasic
6.0起止时间2010年12月10日—12月30日同组人无课程设计任务书本课程设计的目的掌握Oracle基本内容,了解备份和恢复数据库的方法;基本的Oracle语句,如添加、查询、修改、删除记录语句;VB中数据绑定控件的方法,熟悉数据库连接技术2.课程设计的任务及要求1)基本要求要求掌握Oracle的基本概念,了解备份和恢复数据库的方法基本的Oracle语句,如添加、查询、修改、删除记录语句熟悉数据库连接技术2)课程设计论文编写要求
(1)理论设计部分以课程设计论文的形式提交,格式必须按照课程设计论文标准格式进行书写和装订
(2)课程设计报告(论文)包括中文摘要、目录、绪论、正文、设计小结、____、附录等;
(3)正文部分应包含系统功能流程图、系统结构框图、模块流程图、设计目的、实现思路、实现步骤、调试运行等毕业设计(论文)原创性声明和使用授权说明原创性声明本人郑重承诺所呈交的毕业设计(论文),是我个人在指导教师的指导下进行的研究工作及取得的成果尽我所知,除文中特别加以标注和致谢的地方外,不包含其他人或__已经发表或公布过的研究成果,也不包含我为获得及其它教育机构的学位或学历而使用过的材料对本研究提供过帮助和做出过贡献的个人或__,均已在文中作了明确的说明并表示了谢意作者签名 日 期 指导教师签名 日 期 使用授权说明本人完全了解大学关于收集、保存、使用毕业设计(论文)的规定,即按照学校要求提交毕业设计(论文)的印刷本和电子版本;学校有权保存毕业设计(论文)的印刷本和电子版,并提供目录检索与阅览服务;学校可以采用影印、缩印、数字化或其它__手段保存论文;在不以赢利为目的前提下,学校可以公布论文的部分或全部内容__签名 日 期 学位论文原创性声明本人郑重声明所呈交的论文是本人在导师的指导下__进行研究所取得的研究成果除了文中特别加以标注引用的内容外,本论文不包含任何其他个人或__已经发表或撰写的成果作品对本文的研究做出重要贡献的个人和__,均已在文中以明确方式标明本人完全意识到本声明的法律后果由本人承担__签名日期年月日学位论文版权使用授权书本学位论文__完全了解学校有关保留、使用学位论文的规定,同意学校保留并向国家有关部门或机构送交论文的复印件和电子版,允许论文被查阅和借阅本人授权 大学可以将本学位论文的全部或部分内容编入有关数据库进行检索,可以采用影印、缩印或扫描等__手段保存和汇编本学位论文涉密论文按学校规定处理__签名日期年月日导师签名日期年月日目录第一章、系统机构及主要功能…………………………………………………………
41.1学生信息管理系统的主要功能……………………………………………
41.2系统的功能模块结构…………………………………………………………4第二章、数据库设计………………………………………………………………………
52.1创建数据库用户……………………………………………………………
52.2数据库逻辑结构设计…………………………………………………………………
52.3创建表的脚本语言…………………………………………………………………6第三章、数据库连接………………………………………………………………
83.1创建数据源……………………………………………………………………………
83.2数据库连接…………………………………………………………………9第四章、系统的实现……………………………………………………………………
104.1主窗体的设计………………………………………………………………
104.2登录窗体的设计…………………………………………………………………
124.3背景窗体的设计…………………………………………………………
144.4班级管理窗体的设计…………………………………………………………………
154.5课程信息窗体的设计……………………………………………………
204.6用户信息管理窗体的设计………………………………………………
264.7奖惩信息管理窗体的设计………………………………………………
274.8成绩查询窗口的设计……………………………………………………
294.__籍信息管理窗口的设计………………………………………………
314.10个人信息查询窗口的设计………………………………………………25第五章、运行截图………………………………………………………………41课程设计总结……………………………………………………………………46一系统结构及主要功能
1.1学生信息管理系统的主要功能有
(1)、用户信息管理可以修改、删除、添加用户;
(2)、班级信息管理可以添加、修改、删除班级;
(3)、学籍信息管理可以添加、查询、修改、删除学籍;
(4)、课程信息管理可以查看各班的课程信息;
(5)、成绩信息管理可以用一个或几个条件查询、添加、删除,____;
(6)、奖惩信息管理可以添加、查询、删除奖惩信息
(7)、个人信息管理可以查询学生的个人信息
1.
2、系统的功能模块结构如下二数据库设计
2.1创建数据库用户在设计数据库表结构之前,首先要创建一个学生信息管理的数据库用户,这里定义为zengym所有相关的表都属于这个用户创建用户的脚本为CREATEuserzengymidentifiedbyzengymdefaulttablespa__userstemporarytablespa__tempquota10monusers;grantcreatesessionresour__tozengym;这样在设置ODBC时,使用户zengym登录,就可以直接在程序中调用用户zengym的表和视图等数据库对象了
2.2数据库逻辑结构设计根据学生信息管理系统的功能要求,选取Oracle为后台数据库,数据库前台控制界面使用VisualBasic
6.0来实现该数据库由8个表组成这8个表包括班级课程信息class_cour表、班级信息class_Form表、课程信息course_Form表、获奖信息prize_Form表、获奖学生信息Prize_Stud表、学生成绩信息score_Form表、学生信息student_Form表、用户(user_Form)表
(1)班级课程信息class_cour表字段名称字段类型说明class_Nonumber班级编号Course_NameVarchar250课程名称
(2)班级信息class_Form表字段名称字段类型说明Class_Nonumber班级编号Class_NameVarchar250班级名称Class_teacherVarchar250导员名字Class_Re__rksVarchar250班级主课程
(3)课程信息course_Form表字段名称字段类型说明Course_nameVarchar250课程名称Course_RemVarchar250主课程
(4)奖惩信息prize_Form表字段名称字段类型说明Prize_nameVarchar250奖惩名称Prize_RemVarchar250备注
(5)奖惩学生信息Prize_Stud表字段名称字段类型说明Prize_NOnumber奖惩编号Prize_Stunumber奖惩学生学号Prize_DatDate奖惩日期Prize_NamVarchar250奖惩名称
(6)学生成绩信息score_Form表字段名称字段类型说明Score_Nonumber成绩编号Score_perVarchar250成绩类型Score_Clanumber班级编号Score_Stunumber学生学号Score_CouVarchar250课程名称Score_ScoVarchar250成绩
(7)学生信息student_Form表字段名称字段类型说明Student_NOnumber学号student_NameVarchar250姓名student____Varchar25性别student_BirDate出生日期student_Clanumber班级编号student_TelVarchar250____student_EsdDate报名日期student_AddVarchar250家庭地址student_RemVarchar250备注
(8)用户(user_Form)表字段名称字段类型说明user_IDVarchar250用户名user_PWDVarchar250用户__user_DATEdate登录日期
2.3创建表的脚本语言
(1)班级课程信息class_cour表CREATETABLEzengym.class_Courclass_NOnumberPri__ryKeycourse_Namevarchar250TABLESPA__USERS;
(2)班级信息class_Form表CREATETABLEzengym.class_Formclass_NonumberPri__ryKeyclass_Namevarchar250class_Teachervarchar250class_Re__rksvarchar250TABLESPA__USERS;
(3)课程信息course_Form表CREATETABLEzengym.course_Formcourse_NameVarchar250Pri__ryKeycourse_RemVarchar250TABLESPA__USERS;
(4)奖惩信息prize_Form表CREATETABLEzengym.prize_Formprize_namevarchar250Pri__ryKeyprize_RemVarchar250TABLESPA__USERS;
(5)奖惩学生信息Prize_Stud表CREATETABLEzengym.prize_Studprize_NOnumberPri__ryKeyprize_Stunumberprize_Datdateprize_NamVarchar250TABLESPA__USERS;
(6)学生成绩信息score_Form表CREATETABLEzengym.score_Formscore_NOnumberPri__ryKeyscore_perVarchar250score_Clanumberscore_Stunumberscore_CouVarchar250score_ScoVarchar250TABLESPA__USERS;
(7)学生信息student_Form表CREATETABLEzengym.student_Formstudent_NOnumberPri__ryKeystudent_NameVarchar250student____Varchar25student_BirDatestudent_Clanumberstudent_TelVarchar250student_EsdDatestudent_AddVarchar250student_RemVarchar250TABLESPA__USERS;
(8)用户(user_Form)表CREATETABLEzengym.user_Formuser_IDVarchar250Pri__ryKeyuser_PWDVarchar250user_DATEdateTABLESPA__USERS;三数据库连接
3.
1、创建数据源为了能够在程序中访问到数据库House,需要创建系统数据源选择“控制面板”→“管理工具”→“数据源”→“系统DSN”标签→“添加”→选择“OracleinOraHome92”数据库驱动程序进入数据库OracleODBCDriverConfiguration配置将“DataSour__Name”设置为Status,“TNSServi__Name”设置为Oracle创建的数据库,“User”设置为zengym然后__“TestConn__tion”进入测试数据库连接是否连接成功测试连接数据库是否成功输入__zengym后显示连接结果“Password”输入zengym,__OK测试连接是否成功最后就可以在VB中使用“外接程序”→“可视化数据管理”连接数据库
3.
2、数据库连接(在模块modulel.bas中)PublicFunctionConnectStringAsStringConnectString=Driver={MicrosoftODBCfororacle};server=gntc;UID=zengym;PWD=zengym;EndFunctionPublicFunctionExecuteSQLByValSQLAsStringMsgStringAsStringAsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokensAsStringOnErrorGoToExecuteSQL_ErrorsTokens=SplitSQLSetcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStrINSERTDELETEUPDATEUCase$sTokens0Thencnn.ExecuteSQLMsgString=sTokens0querysuc__ssfulElseSetrst=NewADODB.Recordsetrst.OpenTrim$SQLcnnadOpenKeysetadLockOptimisticSetExecuteSQL=rstMsgString=查询到rst.RecordCount条记录EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString=查询错误:Err.DescriptionResumeExecuteSQL_ExitEndFunction
四、系统的实现
4.1主窗体的设计
4.
1.1主界面是学生信息管理系统的主要窗口,担任着调动程序其他模块的功能,是整个应程序的核心在工程中添加一个窗体,命名为“frm__in”主界面的主要属性如下窗体属性设置值具体说明名称Frm__in设置窗体名称Appearan__1–3D外观效果Caption学生信息管理系统窗体的标题条文本EnableTrue窗体可用MoveableTrue窗体可以__negotiateToolbarsTrueMDIForm对象在MDIForm的顶部或底部显示活动对象的工具栏StartUpPosition0–手动设置窗体弹出时,位置在屏幕中心选择“工具”菜单项中的“菜单编辑器”,编辑菜单内容,如下图所示菜单项的属性如下标题名称用户信息管理cusiMenu班级信息管理claiMenu学籍信息管理stsiMenu课程信息管理couiMenu成绩信息管理scoiMenu奖惩信息管理prpiMenu个人信息管理sumiMenu帮助help主界面如下图所示
4.
1.2窗口代码如下PrivateSubclaiMenu_Clickfrmclai.ShowEndSubPrivateSubcouiMenu_Clickfrmcoui.ShowEndSubPrivateSubcusiMenu_Clickfrmcusi.ShowEndSubPrivateSubMDIForm_LoaddColor.ShowEndSubPrivateSubMDIForm_ResizeIfMe.Height1100ThendColor.Height=Me.Height-1100EndIfIfMe.Width180ThendColor.Width=Me.Width-180EndIfEndSubPrivateSubprpiMenu_Clickfrmprpi.ShowEndSubPrivateSubscoiMenu_Clickfrmscoi.ShowEndSubPrivateSubstsiMenu_Clickfrmstsi.ShowEndSubPrivateSubsumiMenu_Clickfrmsumi.ShowEndSub
4.
2、登录窗体的设计
4.
2.1在工程中添加一个窗体,命名为“frmLogin”整个窗体界面的示意图如图所示用户要使用本系统,首先要通过系统的身份认证,即需要登录登录过程需要完成一下任务
(1)根据用户名和__来判断是否能进入系统;
(2)根据用户类型决定用户拥有的权限登录界面窗体的主要属性如下窗体属性设置值具体说明名称Label1设置窗体名称BorderStyle1-FixedSingle设置窗体的边框属性Caption登录窗体的标题条文本ControlBoxFalse取消控制按钮在登录窗体中添加控件,并设置控件的属性如下表所示对象名属性属性值___Password(名称)___Password___UserNameStyle0—DropdownComboText___UserNameCmd_OkCaption确定Cmd_Can__lCaption取消
4.
2.2编写窗体代码PrivateSubForm_LoadDimiAsIntegeri=0___SQL=select*fromuser_FormWith___UserNameSetmrc=ExecuteSQL___SQLMsgTextDoWhileNotmrc.EOFi=i+1___UserName.AddItemTrimmrc!user_IDmrc.MoveNextLoop.ListIndex=i-1EndWithmrc.CloseOK=FalsemiCount=0EndSubPrivateSubcmdCan__l_ClickOK=FalseMe.HideEndSubPrivateSubcmdOK_Click___SQL=select*fromuser_Formwhereuser_ID=___UserName.TextSetmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=TrueThenMsgBox没有这个用户,请重新输入用户名vbOKOnly+vbExcla__tion警告___UserName.SetFocusElseIfTrimmrc.Fields1=Trim___Password.TextThenOK=Truemrc.CloseMe.HideUserName=Trim___UserName.TextElseMsgBox输入的__不对,请重新输入vbOKOnly+vbExcla__tion警告___Password.SetFocus___Password.Text=EndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSubPrivateSubLabel1_ClickEndSubPrivateSub___Password_KeyDownKeyCodeAsIntegerShiftAsIntegerEnterToTabKeyCodeEndSubPrivateSub___Password_KeyPressKeyAsciiAsIntegerIfKeyAscii=13ThenCallcmdOK_ClickEndIfEndSubPrivateSub___UserName_Click___Password.Text=EndSubPrivateSub___UserName_KeyDownKeyCodeAsIntegerShiftAsIntegerEnterToTabKeyCodeEndSub
4.3背景窗体的设计
4.
3.1在工程中添加一个窗体,命名为“dColor”整个窗体的界面设计示意图如下.dColor窗体上的空间及其属性如下表所示窗体属性设置值具体说明名称dColor设置窗体名称__xButtonTrue激活最大化按钮MinButtonTrue激活最小化按钮ControlBoxTrue控制按钮在登录窗体中添加控件,并设置控件的属性如下表所示对象名属性属性值I__ge1Picture(Bit__p)I__ge2Picture(Bit__p)StretchFalseLabel1Caption欢迎进去学生管理系统BackColor0–Transparent
4.
3.2编写窗体代码PrivateSubForm_LoadLabel
1.ForeColor=H8000000ELabel
1.FontSize=12Label
1.AutoSize=Truei=I__ge
2.WidthEndSubPrivateSubForm_ResizeI__ge
1.Top=0I__ge
1.Left=0I__ge
1.Height=Me.HeightI__ge
1.Width=Me.WidthI__ge
2.Top=Me.Height-I__ge
2.HeightI__ge
2.Left=Me.Width-I__ge
2.WidthLabel
1.Top=Me.Height-Label
1.Height-100EndSubPrivateSubLabel1_ClickEndSubPrivateSubTimer1_Timeri=i+50Label
1.Left=Me.Width-iIfiMe.Width+Label
1.WidthTheni=I__ge
2.WidthEndIfEndSub
4.4班级管理窗体的设计
4.
4.1在工程中添加一个窗体,命名为“frmclai”整个窗体界面示意图如图所示frmclai窗体上的的主要属性和控件设置如下对象名属性属性值FrmclaiCaption班级信息MinbuttonTrueLinkTopicForm1HacDCTrueMSFlexGrid1DragMode0–vb__nualLabel1Caption班级信息列表Label2
(0)Caption添加Label2
(1)Caption修改Label2
(2)Caption删除Label3
(0)Caption班级编号Label3
(1)Caption班级名称Label3
(2)Caption导员姓名Label3
(3)Caption备注
4.
4.2编写窗体代码PrivateSubCom__nd1_ClickIfText10=ThenMsgBox班级编号不能为空!vbOKOnly提示Text
10.SetFocusExitSubEndIfIfText11=ThenMsgBox班级名称不能为空!vbOKOnly提示Text
11.SetFocusExitSubEndIfIfText12=ThenMsgBox导员姓名不能为空!vbOKOnly提示Text
12.SetFocusExitSubEndIf___SQL=select*fromclass_Formwhereclass_NO=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenMsgBox此班级编号已经存在!vbOKOnly警告Text
10.SetFocusExitSubEndIfmrc.Close___SQL=select*fromclass_FormSetmrc=ExecuteSQL___SQLMsgTextmrc.AddNewmrc.Fields0=TrimText10mrc.Fields1=TrimText11mrc.Fields2=TrimText12mrc.Fields3=TrimText13mrc.Updatemrc.CloseFori=0To3Text1i=NextMsgBox班级信息添加成功!vbOKOnly提示ShowDataEndSubPrivateSubCom__nd2_ClickFori=0To3Text1i=NextEndSubPrivateSubCom__nd5_Click___SQL=deletefromclass_Formwhereclass_NO=TrimText18Setmrc=ExecuteSQL___SQLMsgTextFori=8To11Text1i=NextMsgBox班级已经删除!vbOKOnly警告ShowDataEndSubPrivateSubCom__nd6_ClickFori=8To11Text1i=NextEndSubPrivateSubForm_LoadMe.Caption=班级信息—添加Picture
11.Top=Picture
10.TopPicture
11.Left=Picture
10.LeftPicture
12.Top=Picture
10.TopPicture
12.Left=Picture
10.LeftShowDataFori=0To2Label2i.BackColor=HE0E0E0Picture1i.Visible=FalseNextLabel
20.BackColor=HFFFFFFPicture
10.Visible=TrueEndSubPrivateSubForm_ResizedColor.ZOrder1EndSubPrivateSubLabel2_ClickIndexAsIntegerMe.Caption=班级信息Me.Caption=Me.Caption-TrimLabel2Index.CaptionFori=0To2Label2i.BackColor=HE0E0E0Picture1i.Visible=FalseNextLabel2Index.BackColor=HFFFFFFPicture1Index.Visible=TrueFori=0To11Text1i=NextCom__nd
3.Enabled=FalseCom__nd
5.Enabled=FalseEndSubPrivateSubShowDataDimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL=select*fromclass_FormSetmrcc=ExecuteSQLtxSQLMsgTextWithMSFlexGrid
1.ColWidth0=
1200.ColWidth1=
1200.ColWidth2=
1200.ColWidth3=
6000.Text__trix00=班级编号.Text__trix01=班级名称.Text__trix02=导员姓名.Text__trix03=备注信息¢.Rows=1DoWhileNotmrcc.EOF.Rows=.Rows+1Fori=0Tomrcc.Fields.Count-
1.Text__trix.Rows-1i=mrcc.FieldsiNextimrcc.MoveNextLoopEndWithmrcc.CloseEndSubPrivateSubMSFlexGrid1_ClickIfPicture
11.Visible=TrueThenText14=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row0Text15=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row1Text16=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row2Text17=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row3Com__nd
3.Enabled=TrueEndIfIfPicture
12.Visible=TrueThenText18=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row0Text19=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row1Text110=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row2Text111=TrimMSFlexGrid
1.Text__trixMSFlexGrid
1.Row3Com__nd
5.Enabled=TrueEndIfEndSubPrivateSubText1_ChangeIndexAsIntegerIfIndex=4ThentSQL=select*fromclass_Formwhereclass_NO=TrimText1IndexSetmrc=ExecuteSQLtSQLMsgTextIfmrc.EOF=FalseThenText15=mrc.Fields1Text16=mrc.Fields2Text17=mrc.Fields3Com__nd
3.Enabled=TrueExitSubElseText15=Text16=Text17=Com__nd
3.Enabled=FalseEndIfmrc.CloseEndIfIfIndex=8ThentSQL=select*fromclass_Formwhereclass_NO=TrimText1IndexSetmrc=ExecuteSQLtSQLMsgTextIfmrc.EOF=FalseThenText19=mrc.Fields1Text110=mrc.Fields2Text111=mrc.Fields3Com__nd
5.Enabled=TrueExitSubElseText19=Text110=Text111=Com__nd
5.Enabled=FalseEndIfmrc.CloseEndIfEndSubPrivateSubText1_GotFocusIndexAsIntegerText1Index.SelStart=0Text1Index.SelLength=LenText1IndexEndSubPrivateSubText1_KeyDownIndexAsIntegerKeyCodeAsIntegerShiftAsIntegerEnterToTabKeyCodeEndSub
4.5课程信息窗体的设计
4.
5.1在工程中添加一个窗体,命名为“frmcoui”整个窗体界面如下所示Frmcoui窗体的主要控件和属性设置如下对象名属性属性值ComcolTextCombolList1名称_____UserTextList1FrmcouiCaption课程信息StartUpPosition0–手动Com__nd1Caption添加Com__nd2Caption删除
4.
5.2添加窗体代码PrivateSubCombo1_ClickList1TextEndSubPrivateSubCom__nd1_ClickDim___SQLAsStringIfText10=ThenMsgBox课程名称不能为空vbOKOnly提示Text
10.SetFocusExitSubEndIf___SQL=select*fromcourse_Formwherecourse_Name=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenMsgBox此课程名称已经存在!vbOKOnly警告Text
10.SetFocusExitSubEndIfmrc.Close___SQL=select*fromcourse_FormSetmrc=ExecuteSQL___SQLMsgTextmrc.AddNewmrc.Fields0=TrimText10mrc.Fields1=TrimText11mrc.Updatemrc.CloseText10=Text11=MsgBox课程信息添加成功!vbOKOnly提示List2TextEndSubPrivateSubCom__nd2_ClickDim___SQLAsStringIfList
2.TextThen___SQL=deletefromcourse_Formwherecourse_Name=TrimList
2.TextSetmrc=ExecuteSQL___SQLMsgTextMsgBox课程信息已经删除!vbOKOnly提示List2TextEndIfEndSubPrivateSubForm_LoadDim___SQLAsStringMe.Caption=课程信息-设置___SQL=select*fromclass_FormSetmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=TrueThenMsgBox请先进行班级设置vbOKOnly提示ElseWithCombo1DoWhileNotmrc.EOF.AddItemTrimmrc!class_NOmrc.MoveNextLoopCombo
1.ListIndex=0EndWithEndIfList2TextEndSubPrivateSubForm_MouseMoveButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleLabel
30.BackColor=HC0C0C0Label
31.BackColor=HC0C0C0Label
32.BackColor=HC0C0C0Label
33.BackColor=HC0C0C0EndSubPrivateSubForm_ResizedColor.ZOrder1EndSubPrivateSubLabel3_ClickIndexAsIntegerDim___SQLAsStringDimtSQLAsStringDimmmrcAsADODB.RecordsetIfIndex=0ThenIfCombo
1.TextAndList
2.TextThen___SQL=deletefromclass_Courwhereclass_NO=TrimCombo
1.Textandcourse_Name=TrimList
2.TextSetmrc=ExecuteSQL___SQLMsgText___SQL=select*fromclass_CourSetmrc=ExecuteSQL___SQLMsgTextmrc.AddNewmrc.Fields0=TrimCombo
1.Textmrc.Fields1=TrimList
2.Textmrc.Updatemrc.CloseEndIfEndIfIfIndex=1ThenIfCombo
1.TextThen___SQL=deletefromclass_Courwhereclass_NO=TrimCombo
1.TextSetmrc=ExecuteSQL___SQLMsgTexttSQL=select*fromcourse_Form___SQL=select*fromclass_CourSetmmrc=ExecuteSQLtSQLMsgTextIfmmrc.EOF=TrueThenMsgBox请先进行班级设置!vbOKOnly提示ElseDoWhileNotmmrc.EOFSetmrc=ExecuteSQL___SQLMsgTextmrc.AddNewmrc.Fields0=TrimCombo
1.Textmrc.Fields1=mmrc.Fields0mrc.Updatemrc.Closemmrc.MoveNextLoopEndIfEndIfEndIfIfIndex=2ThenIfCombo
1.TextAndList
1.TextThen___SQL=deletefromclass_Courwhereclass_NO=TrimCombo
1.Textandcourse_Name=TrimList
1.TextSetmrc=ExecuteSQL___SQLMsgTextEndIfEndIfIfIndex=3ThenIfCombo
1.TextThen___SQL=deletefromclass_Courwhereclass_NO=TrimCombo
1.TextSetmrc=ExecuteSQL___SQLMsgTextEndIfEndIf___SQL=select*fromclass_CourSetmrc=ExecuteSQL___SQLMsgTextList1TextEndSubPrivateSubLabel3_MouseMoveIndexAsIntegerButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleLabel3Index.BackColor=HFFFFFFEndSubPrivateSubList1_ClickEndSubPrivateSubList2_ClickText10=List
2.TextEndSubPrivateSubText1_ChangeIndexAsIntegerDimtxSQLAsStringIfIndex=0Then___SQL=select*fromcourse_Formwherecourse_Name=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenText11=mrc.Fields1Text
11.Locked=TrueElseText11=Text
11.Locked=FalseEndIfEndIfEndSubPrivateSubText1_GotFocusIndexAsIntegerText1Index.SelStart=0Text1Index.SelLength=LenText1IndexEndSubPrivateSubText1_KeyDownIndexAsIntegerKeyCodeAsIntegerShiftAsIntegerEnterToTabKeyCodeEndSubPrivateSubList1TextDimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL=select*fromclass_Courwhereclass_NO=TrimCombo
1.TextSetmrcc=ExecuteSQLtxSQLMsgTextList
1.ClearDoWhileNotmrcc.EOFList
1.AddItemTrimmrcc!course_Namemrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList2TextDimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL=select*fromcourse_FormSetmrcc=ExecuteSQLtxSQLMsgTextList
2.ClearDoWhileNotmrcc.EOFList
2.AddItemTrimmrcc!course_Namemrcc.MoveNextLoopmrcc.CloseEndSub
4.6用户信息管理窗体的设计
4.
6.1在工程中添加一个窗体,命名为“frmcusi”Frmcusi窗口的界面十一图如下Frmcusi窗体包含的控件及其属性如下对象名属性属性值Label1Caption用户列表Label20Caption添加Label21Caption修改Label22Caption删除Picture10IMEMode0–NoOperationList1List(List)Com__nd1Caption添加Com__nd2Caption取消
4.
6.2编写窗体代码PrivateSubCom__nd1_ClickDim___SQLAsStringIfText10=ThenMsgBox用户名称不能为空!vbOKOnly提示Text
10.SetFocusExitSubEndIfIfText11=ThenMsgBox用户__不能为空!vbOKOnly提示Text
11.SetFocusExitSubElseIfText11Text12ThenMsgBox两次__不同!vbOKOnly提示Text11=Text12=Text
11.SetFocusExitSubEndIfEndIf___SQL=select*fromuser_Formwhereuser_ID=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenMsgBox此用户已经存在!vbOKOnly警告Text
10.SetFocusExitSubEndIfmrc.Close___SQL=select*fromuser_FormSetmrc=ExecuteSQL___SQLMsgTextmrc.AddNewmrc.Fields0=TrimText10mrc.Fields1=TrimText11mrc.Fields2=Nowmrc.Updatemrc.CloseFori=0To2Text1i=NextMsgBox用户添加成功!vbOKOnly提示ListappEndSub
4.7奖惩信息管理窗口的设计
4.
7.1在工程中添加一个窗体,命名为“frmprpi”Frmprpi窗口的界面设计十一图如下Frmprpi窗体包含的主要控件及其属性如下对象名属性属性值Label1Caption输入学号进行查询添加Label2Caption奖惩信息表Label3Caption收到奖励或惩罚的时间Label4Caption奖惩名称Picture5Caption备注信息List1List(List)Com__nd1Caption添加Com__nd2Caption删除
4.
7.2编写主要代码如下PrivateSubCom__nd1_ClickDim___SQLAsStringIfText10=ThenMsgBox奖惩名称不能为空!vbOKOnly提示Text
10.SetFocusExitSubEndIf___SQL=select*fromprize_Formwhereprize_Name=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenMsgBox此奖惩名称已经存在vbOKOnly警告Text
10.SetFocusExitSubEndIfmrc.Close___SQL=select*fromprize_FormSetmrc=ExecuteSQL___SQLMsgTextmrc.AddNewmrc.Fields0=TrimText10mrc.Fields1=TrimText11mrc.Updatemrc.CloseText10=Text11=MsgBox奖惩信息添加成功!vbOKOnly提示List1TextEndSub
4.8成绩查询窗口的设计
4.
8.1在工程中添加一个窗口,命名为“frmscoi”Frmscoi窗口的界面设计示意图如下.Frmscoi窗体包含的主要控件及其属性如下对象名属性属性值Combo1
(0)Caption学生班号LabelCaption考试期号Option1
(0)Caption添加MSFlexGrid1BorderStyle1–flexBorderSinglePicture1
(0)DrawMode13–CopyPenProgres__ar1OrientationccOrientationHorizontalCom__nd1Caption添加Com__nd2Caption取消其他控件以及属性跟上面的表中的类似
4.
8.2编写窗体主要代码如下PrivateSubForm_LoadOption
11.Value=TruePicture
10.Visible=FalsePicture
11.Visible=TruePicture
12.Visible=FalsePicture
13.Visible=FalsePicture
11.Top=Picture
10.TopPicture
11.Left=Picture
10.LeftPicture
12.Top=Picture
10.TopPicture
12.Left=Picture
10.LeftPicture
13.Top=Picture
10.TopPicture
13.Left=Picture
10.LeftWithMSFlexGrid
1.Cols=
6.Text__trix01=考试期号.Text__trix02=学生班号.Text__trix03=学生编号.Text__trix04=考试课程.Text__trix05=考试分数ý.ColWidth0=
0.ColWidth1=
1550.ColWidth2=
1550.ColWidth3=
1550.ColWidth4=
1550.ColWidth5=
1550.Rows=1EndWithText10=GetRknoEndSubPrivateSubMSFlexGrid1_ClickDim___SQLAsStringIfMSFlexGrid
1.Row0ThenText30=MSFlexGrid
1.Text__trixMSFlexGrid
1.Row0Text31=MSFlexGrid
1.Text__trixMSFlexGrid
1.Row1Combo
30.ClearCombo
30.AddItemMSFlexGrid
1.Text__trixMSFlexGrid
1.Row2Combo
30.ListIndex=0___SQL=select*fromclass_FormSetmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenWithCombo30DoWhileNotmrc.EOFIfmrc!class_NO.TextThen.AddItemTrimmrc!class_NOEndIfmrc.MoveNextLoopEndWithEndIfCombo
31.ClearCombo
31.AddItemMSFlexGrid
1.Text__trixMSFlexGrid
1.Row3Combo
31.ListIndex=0Combo
32.ClearCombo
32.AddItemMSFlexGrid
1.Text__trixMSFlexGrid
1.Row4Combo
32.ListIndex=0Text32=MSFlexGrid
1.Text__trixMSFlexGrid
1.Row5Text40=MSFlexGrid
1.Text__trixMSFlexGrid
1.Row0Text41=MSFlexGrid
1.Text__trixMSFlexGrid
1.Row1Combo
40.ClearCombo
40.AddItemMSFlexGrid
1.Text__trixMSFlexGrid
1.Row2Combo
40.ListIndex=0Combo
41.ClearCombo
41.AddItemMSFlexGrid
1.Text__trixMSFlexGrid
1.Row3Combo
41.ListIndex=0Combo
42.ClearCombo
42.AddItemMSFlexGrid
1.Text__trixMSFlexGrid
1.Row4Combo
42.ListIndex=0Text42=MSFlexGrid
1.Text__trixMSFlexGrid
1.Row5EndIfEndSub
4.__籍信息管理窗体的设计
4.
9.1在工程中添加一个窗口,命名为“frmstsi”Frmstsi的界面这几示意图如下Frmstsii窗体包含的主要控件及其属性如下对象名属性属性值Combo1
(0)TextCombolLabel10Caption添加Label1
(1)Caption查询Label1
(2)Caption修改Label1
(3)Caption删除Label4Caption查询中请稍后…Label3Caption学籍信息列表MSFlexGrid1Row2Com__nd1Caption添加Com__nd2Caption取消其他属性的设置与表中的类似
4.
9.2编写主要的代码如下PrivateSubCombo1_ClickText14=Combo
1.TextIfLabel
13.BackColorHFFFFFFThenIfLabel
24.Caption=Combo
1.TextThenCombo
1.BackColor=HE0E0E0ElseCombo
1.BackColor=HFFFFFFEndIfEndIfEndSubPrivateSubCom__nd1_ClickDim___SQLAsStringFori=0To7Ifi4ThenIfText1i=Label2i.CaptionThenMsgBox请Label2i.Caption!vbOKOnly提示Text1i.SetFocusExitSubEndIfElseIfText1i=Label2i.CaptionThenMsgBox请Label2i.Caption!vbOKOnly提示Combo
1.SetFocusExitSubEndIfEndIfNextIfIsDateText13=FalseThenMsgBox出生日期应为日期格式yyyy-mm-dd!vbOKOnly警告Text
13.SetFocusExitSubEndIfIfIsDateText16=FalseThenMsgBox入学日期应为日期格式yyyy-mm-dd!vbOKOnly警告Text
16.SetFocusExitSubEndIf___SQL=select*fromstudent_Formwherestudent_NO=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenMsgBox学号不能重复vbOKOnly警告Text
10.SetFocusExitSubEndIfmrc.Close___SQL=select*fromstudent_FormSetmrc=ExecuteSQL___SQLMsgTextmrc.AddNewmrc.Fields0=TrimText10mrc.Fields1=TrimText11mrc.Fields2=TrimText12mrc.Fields3=TrimText13mrc.Fields4=TrimText14mrc.Fields5=TrimText15mrc.Fields6=TrimText16mrc.Fields7=TrimText17IfText18=Label
28.CaptionThenmrc.Fields8=Elsemrc.Fields8=TrimText18EndIfmrc.Updatemrc.CloseMsgBox学籍信息添加成功vbOKOnly提示WithMSFlexGrid
1.Rows=.Rows+
1.Text__trix.Rows-10=TrimText
10.Text__trix.Rows-11=TrimText
11.Text__trix.Rows-12=TrimText
12.Text__trix.Rows-13=TrimText
13.Text__trix.Rows-14=TrimText
14.Text__trix.Rows-15=TrimText
15.Text__trix.Rows-16=TrimText
16.Text__trix.Rows-17=TrimText17IfText18Label
28.CaptionThen.Text__trix.Rows-18=TrimText18EndIfEndWithMSFlexGrid
1.TopRow=MSFlexGrid
1.Rows-1TextDcolorEndSubPrivateSubText1_ChangeIndexAsIntegerIfLabel
12.BackColor=HFFFFFFOrLabel
13.BackColor=HFFFFFFThenIfIndex=0ThentSQL=select*fromstudent_Formwherestudent_NO=TrimText1IndexSetmrc=ExecuteSQLtSQLMsgTextIfmrc.EOF=FalseThenFori=1To8Text1i=mrc.FieldsiNextCombo
1.ClearCombo
1.AddItemText14Combo
1.ListIndex=0___SQL=select*fromclass_FormSetmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenWithCombo1DoWhileNotmrc.EOF.AddItemTrimmrc!class_NOmrc.MoveNextLoopEndWithEndIfIfLabel
12.BackColor=HFFFFFFThenFori=1To8Text1i.BackColor=H8000000ENextCombo
1.BackColor=H8000000EEndIfText
17.Height=600Text
18.Height=600Com__nd
3.Enabled=TrueCom__nd
4.Enabled=TrueExitSubElseFori=1To8Text1i=Label2i.CaptionNextCombo
1.ClearCombo
1.AddItemLabel
24.CaptionCombo
1.ListIndex=0IfLabel
12.BackColor=HFFFFFFThenFori=1To8Text1i.BackColor=HE0E0E0NextCombo
1.BackColor=HE0E0E0EndIfText
17.Height=300Text
18.Height=300Com__nd
3.Enabled=FalseCom__nd
4.Enabled=FalseEndIfmrc.CloseEndIfEndIfEndSub
4.10个人信息查询窗口的设计
4.
10.1在工程中添加一个窗口,命名为“frmsumi”Frmsumi窗口的界面设计示意图如下Frmsumi窗体包含的主要控件及其属性如下对象名属性属性值Label10Caption学号Label
(1)Caption姓名Label
(2)Caption性别Label
(3)Caption生日Label
(4)Caption班号Label
(5)Caption____Label
(6)Caption入学日期Labe2
(0)Caption成绩表Labe2
(1)Caption奖惩表MSFlexGrid1rows2其他属性的设置与表中的类似
4.
10.2编写的主要代码如下PrivateSubForm_LoadWithMSFlexGrid
1.Cols=
4.ColWidth0=
0.ColWidth1=
0.ColWidth2=
1700.ColWidth3=
1700.Text__trix02=奖惩日期.Text__trix03=奖惩名称.Rows=1EndWithWithMSFlexGrid
2.Cols=
6.ColWidth0=
0.ColWidth1=
1550.ColWidth2=
1550.ColWidth3=
0.ColWidth4=
1550.ColWidth5=
1550.Text__trix01=考试期号.Text__trix02=考生班号.Text__trix04=考试课程.Text__trix05=考试分数.Rows=1EndWithPicture
1.Visible=FalseMSFlexGrid
1.Visible=FalseMSFlexGrid
2.Visible=FalseEndSubPrivateSubForm_ResizedColor.ZOrder1EndSubPrivateSubMSFlexGrid2_ClickEndSubPrivateSubText1_ChangeIndexAsIntegerIfIndex=0Then___SQL=select*fromstudent_Formwherestudent_NO=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenFori=1To6Text1i=mrc.FieldsiNextPicture
1.Visible=TrueElsePicture
1.Visible=FalseFori=1To6Text1i=NextEndIfmrc.Close___SQL=select*fromprize_Studwhereprize_Stu=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenWithMSFlexGrid
1.Rows=1DoWhileNotmrc.EOF.Rows=.Rows+1Fori=0Tomrc.Fields.Count-1SelectCasemrc.Fieldsi.TypeCaseadDBDate.Text__trix.Rows-1i=For__tmrc.Fieldsiyyyy-mm-ddCaseElse.Text__trix.Rows-1i=mrc.FieldsiEndSelectNextimrc.MoveNextLoopEndWithmrc.CloseMSFlexGrid
1.Visible=TrueElseMSFlexGrid
1.Visible=FalseWithMSFlexGrid
1.Clear.Cols=
4.ColWidth0=
0.ColWidth1=
0.ColWidth2=
1700.ColWidth3=
1700.Text__trix02=奖惩日期.Text__trix03=奖惩名称.Rows=1EndWithEndIf___SQL=select*fromscore_Formwherescore_Stu=TrimText10Setmrc=ExecuteSQL___SQLMsgTextIfmrc.EOF=FalseThenWithMSFlexGrid
2.Rows=1DoWhileNotmrc.EOF.Rows=.Rows+1Fori=0Tomrc.Fields.Count-1SelectCasemrc.Fieldsi.TypeCaseadDBDate.Text__trix.Rows-1i=For__tmrc.Fieldsiyyyy-mm-ddCaseElse.Text__trix.Rows-1i=mrc.FieldsiEndSelectNextimrc.MoveNextLoopEndWithmrc.CloseMSFlexGrid
2.Visible=TrueElseMSFlexGrid
2.Visible=FalseWithMSFlexGrid
2.Clear.Cols=
6.ColWidth0=
0.ColWidth1=
1550.ColWidth2=
1550.ColWidth3=
0.ColWidth4=
1550.ColWidth5=
1550.Text__trix01=考试期号.Text__trix02=学生班号.Text__trix04=考试课程.Text__trix05=考试分数.Rows=1EndWithEndIfEndIfEndSubPrivateSubShowDataSetmrc=ExecuteSQL___SQLMsgTextWithMSFlexGrid
1.Rows=1DoWhileNotmrc.EOF.Rows=.Rows+1Fori=0Tomrc.Fields.Count-1SelectCasemrc.Fieldsi.TypeCaseadDBDate.Text__trix.Rows-1i=For__tmrc.Fieldsiyyyy-mm-ddCaseElse.Text__trix.Rows-1i=mrc.FieldsiEndSelectNextimrc.MoveNextLoopEndWithmrc.CloseEndSub
五、运行截图一些主要的截图如下
1、登录窗口2输入__后进入主页面
3、添加用户成功后一次可进行修改、删除用户
4、添加班级信息添加编号为0807,班级名称为jiben,导员为aa的班级成功后,截图如下一次可以进行修改、删除班级
5、课程信息查询如下
6、学生成绩查询主要截图如下
7、奖惩信息查询截图如下
8、个人信息查询截图如下
9、学籍信息查询截图如下课程设计总结表姓名曾永明专业班级计算机科学与技术08计本
(1)班学号080703022个人总结从一开始的标题设想,到之后的建表,最后连接数据库,将oracle数据库与面向对象的VB结合,这之间遇到了该有的困难从一开始的标题设想,到之后的建表,最后连接数据库,将oracle数据库与面向对象的VB结合,这之间遇到了该有的困难其实做了系统之后才知道其实老师上课的内容和上实验课的内容都用到了,所以操作起来困难复杂程度不是很大建表的时候就该想到系统应该实现的功能,但是毕竟第一次也没经验,功能设想有些欠缺,所以建表的一些属性也有些不全,这是应该改进的地方,所以呢,一开始就应该想好该系统将实现的样子,这样建表才会更全其实实现各种功能过程归根结底就是查询,修改,删除数据库的数据的过程几天的做系统的日子,让我学到了很多,像ORCLE数据库的__,创建数据库,并创建用户,还有应用程序与ORCLE数据库连接,和SQL基本语句掌握了ORACLE的SQL基本语句,可在应用程序中对ORACLE数据库进行基本操作.理解ORACLE的基本特点如“.采用标准的SQL结构化查询语言“.支持大型数据库,数据类型支持数字、字符、大至4GB的二进制数据,为数据库的面向存储提供数据支持”学生签名年月日小组或班级评语组长/班级签名年月日指导教师评语及成绩评定指导教师签名年月日毕业设计(论文)原创性声明和使用授权说明原创性声明本人郑重承诺所呈交的毕业设计(论文),是我个人在指导教师的指导下进行的研究工作及取得的成果尽我所知,除文中特别加以标注和致谢的地方外,不包含其他人或__已经发表或公布过的研究成果,也不包含我为获得及其它教育机构的学位或学历而使用过的材料对本研究提供过帮助和做出过贡献的个人或__,均已在文中作了明确的说明并表示了谢意作者签名 日 期 指导教师签名 日 期 使用授权说明本人完全了解大学关于收集、保存、使用毕业设计(论文)的规定,即按照学校要求提交毕业设计(论文)的印刷本和电子版本;学校有权保存毕业设计(论文)的印刷本和电子版,并提供目录检索与阅览服务;学校可以采用影印、缩印、数字化或其它__手段保存论文;在不以赢利为目的前提下,学校可以公布论文的部分或全部内容__签名 日 期 学位论文原创性声明本人郑重声明所呈交的论文是本人在导师的指导下__进行研究所取得的研究成果除了文中特别加以标注引用的内容外,本论文不包含任何其他个人或__已经发表或撰写的成果作品对本文的研究做出重要贡献的个人和__,均已在文中以明确方式标明本人完全意识到本声明的法律后果由本人承担__签名日期年月日学位论文版权使用授权书本学位论文__完全了解学校有关保留、使用学位论文的规定,同意学校保留并向国家有关部门或机构送交论文的复印件和电子版,允许论文被查阅和借阅本人授权 大学可以将本学位论文的全部或部分内容编入有关数据库进行检索,可以采用影印、缩印或扫描等__手段保存和汇编本学位论文涉密论文按学校规定处理__签名日期年月日导师签名日期年月日致谢时间飞逝,大学的学习生活很快就要过去,在这四年的学习生活中,收获了很多,而这些成绩的取得是和一直关心帮助我的人分不开的首先非常感谢学校开设这个课题,为本人日后从事计算机方面的工作提供了经验,奠定了基础本次毕业设计大概持续了半年,现在终于到结尾了本次毕业设计是对我大学四年学习下来最好的检验经过这次毕业设计,我的能力有了很大的提高,比如操作能力、分析问题的能力、合作精神、严谨的工作作风等方方面面都有很大的进步这期间凝聚了很多人的心血,在此我表示由衷的感谢没有他们的帮助,我将无法顺利完成这次设计首先,我要特别感谢我的知道郭谦功老师对我的悉心指导,在我的论文书写及设计过程中给了我大量的帮助和指导,为我理清了设计思路和操作方法,并对我所做的课题提出了有效的改进方案郭谦功老师渊博的知识、严谨的作风和诲人不倦的态度给我留下了深刻的印象从他身上,我学到了许多能受益终生的东西再次对周巍老师表示衷心的感谢其次,我要感谢大学四年中所有的任课老师和__员在学习期间对我的严格要求,感谢他们对我学习上和生活上的帮助,使我了解了许多专业知识和为人的道理,能够在今后的生活道路上有继续奋斗的力量另外,我还要感谢大学四年和我一起走过的同学朋友对我的关心与支持,与他们一起学习、生活,让我在大学期间生活的很充实,给我留下了很多难忘的回忆最后,我要感谢我的父母对我的关系和理解,如果没有他们在我的学习生涯中的无私奉献和默默支持,我将无法顺利完成今天的学业致谢四年的大学生活就快走入尾声,我们的校园生活就要划上句号,心中是无尽的难舍与眷恋从这里走出,对我的人生来说,将是踏上一个新的征程,要把所学的知识应用到实际工作中去回首四年,取得了些许成绩,生活中有快乐也有艰辛感谢老师四年来对我孜孜不倦的教诲,对我成长的关心和爱护学友情深,情同兄妹四年的风风雨雨,我们一同走过,充满着关爱,给我留下了值得珍藏的最美好的记忆在我的十几年求学历程里,离不开父母的鼓励和支持,是他们辛勤的劳作,无私的付出,为我创造良好的学习条件,我才能顺利完成完成学业,感激他们一直以来对我的抚养与培育最后,我要特别感谢我的导师刘望蜀老师、和研究生助教吴子仪老师是他们在我毕业的最后关头给了我们巨大的帮助与鼓励,给了我很多解决问题的思路,在此表示衷心的感激老师们认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅他无论在理论上还是在实践中,都给与我很大的帮助,使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助,感谢他耐心的__在论文的撰写过程中老师们给予我很大的帮助,帮助解决了不少的难点,使得论文能够及时完成,这里一并表示真诚的感谢。