学生信息管理系统样本_第1页
学生信息管理系统样本_第2页
学生信息管理系统样本_第3页
学生信息管理系统样本_第4页
学生信息管理系统样本_第5页
已阅读5页,还剩61页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

课程设计报告册代码及程序,如有需要,可以百度上联系我,便宜出售课程设计名称:大型数据库Oracle专业:班级:学号:姓名:指导老师:课程设计报告课程设计本课程设计目掌握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.9学籍信息管理窗口设计………………314.10个人信息查询窗口设计………………25第五章、运营截图………………41课程设计总结……………………46一系统构造及重要功能1.1学生信息管理系统重要功能有:(1)、顾客信息管理可以修改、删除、添加顾客;(2)、班级信息管理可以添加、修改、删除班级;(3)、学籍信息管理可以添加、查询、修改、删除学籍;(4)、课程信息管理可以查看各班课程信息;(5)、成绩信息管理可以用一种或几种条件查询、添加、删除,修改成绩;(6)、奖惩信息管理可以添加、查询、删除奖惩信息(7)、个人信息管理可以查询学生个人信息。1.2、系统功能模块构造如下:二数据库设计2.1创立数据库顾客在设计数据库表构造之前,一方面要创立一种学生信息管理数据库顾客,这里定义为zengym,所有有关表都属于这个顾客。创立顾客脚本为:CREATEuserzengymidentifiedbyzengymdefaulttablespaceuserstemporarytablespacetempquota10monusers;grantcreatesession,resourcetozengym;这样在设立ODBC时,使顾客zengym登录,就可以直接在程序中调用顾客zengym表和视图等数据库对象了。2.2数据库逻辑构造设计依照学生信息管理系统功能规定,选用Oracle为后台数据库,数据库前台控制界面使用VisualBasic6.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_NameVarchar2(50)课程名称(2)班级信息(class_Form)表字段名称字段类型阐明Class_Nonumber班级编号Class_NameVarchar2(50)班级名称Class_teacherVarchar2(50)导员名字Class_RemarksVarchar2(50)班级主课程(3)课程信息(course_Form)表字段名称字段类型阐明Course_nameVarchar2(50)课程名称Course_RemVarchar2(50)主课程(4)奖惩信息(prize_Form)表字段名称字段类型阐明Prize_nameVarchar2(50)奖惩名称Prize_RemVarchar2(50)备注(5)奖惩学生信息(Prize_Stud)表字段名称字段类型阐明Prize_NOnumber奖惩编号Prize_Stunumber奖惩学生学号Prize_DatDate奖惩日期Prize_NamVarchar2(50)奖惩名称(6)学生成绩信息(score_Form)表字段名称字段类型阐明Score_Nonumber成绩编号Score_perVarchar2(50)成绩类型Score_Clanumber班级编号Score_Stunumber学生学号Score_CouVarchar2(50)课程名称Score_ScoVarchar2(50)成绩(7)学生信息(student_Form)表字段名称字段类型阐明Student_NOnumber学号student_NameVarchar2(50)姓名student_SexVarchar2(5)性别student_BirDate出生日期student_Clanumber班级编号student_TelVarchar2(50)联系电话student_EsdDate报名日期student_AddVarchar2(50)家庭地址student_RemVarchar2(50)备注(8)顾客(user_Form)表字段名称字段类型阐明user_IDVarchar2(50)顾客名user_PWDVarchar2(50)顾客密码user_DATEdate登录日期2.3创立表脚本语言(1)班级课程信息(class_cour)表CREATETABLEzengym.class_Cour(class_NOnumberPrimaryKey,course_Namevarchar2(50))TABLESPACEUSERS;(2)班级信息(class_Form)表CREATETABLEzengym.class_Form(class_NonumberPrimaryKey,class_Namevarchar2(50),class_Teachervarchar2(50),class_Remarksvarchar2(50))TABLESPACEUSERS;(3)课程信息(course_Form)表CREATETABLEzengym.course_Form(course_NameVarchar2(50)PrimaryKey,course_RemVarchar2(50))TABLESPACEUSERS;(4)奖惩信息(prize_Form)表CREATETABLEzengym.prize_Form(prize_namevarchar2(50)PrimaryKey,prize_RemVarchar2(50))TABLESPACEUSERS;(5)奖惩学生信息(Prize_Stud)表CREATETABLEzengym.prize_Stud(prize_NOnumberPrimaryKey,prize_Stunumber,prize_Datdate,prize_NamVarchar2(50))TABLESPACEUSERS;(6)学生成绩信息(score_Form)表CREATETABLEzengym.score_Form(score_NOnumberPrimaryKey,score_perVarchar2(50),score_Clanumber,score_Stunumber,score_CouVarchar2(50),score_ScoVarchar2(50))TABLESPACEUSERS;(7)学生信息(student_Form)表CREATETABLEzengym.student_Form(student_NOnumberPrimaryKey,student_NameVarchar2(50),student_SexVarchar2(5),student_BirDate,student_Clanumber,student_TelVarchar2(50),student_EsdDate,student_AddVarchar2(50),student_RemVarchar2(50))TABLESPACEUSERS;(8)顾客(user_Form)表CREATETABLEzengym.user_Form(user_IDVarchar2(50)PrimaryKey,user_PWDVarchar2(50),user_DATEdate)TABLESPACEUSERS;三数据库连接3.1、创立数据源为了可以在程序中访问到数据库House,需要创立系统数据源。选取“控制面板”→“管理工具”→“数据源”→“系统DSN”标签→“添加”→选取“OracleinOraHome92”数据库驱动程序进入数据库OracleODBCDriverConfiguration配备。将“DataSourceName”设立为Status,“TNSServiceName”设立为Oracle创立数据库,“User”设立为zengym,然后点击“TestConncetion”进入测试数据库连接与否连接成功。测试连接数据库与否成功:输入密码zengym后显示连接成果“Password”输入zengym,点击OK测试连接与否成功。最后就可以在VB中使用“外接程序”→“可视化数据管理”连接数据库。3.2、数据库连接(在模块modulel.bas中)PublicFunctionConnectString()AsStringConnectString="Driver={MicrosoftODBCfororacle};server=gntc;UID=zengym;PWD=zengym;"EndFunctionPublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens(0)))Thencnn.ExecuteSQLMsgString=sTokens(0)&"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,adOpenKeyset,adLockOptimisticSetExecuteSQL=rstMsgString="查询到"&rst.RecordCount&"条记录"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查询错误:"&Err.DescriptionResumeExecuteSQL_ExitEndFunction四、系统实现4.1主窗体设计4.1.1主界面是学生信息管理系统重要窗口,担任着调动程序其她模块功能,是整个应程序核心。在工程中添加一种窗体,命名为“frmMain”。主界面重要属性如下:窗体属性设立值详细阐明名称FrmMain设立窗体名称Appearance1–3D外观效果Caption学生信息管理系统窗体标题条文本EnableTrue窗体可用MoveableTrue窗体可以移动negotiateToolbarsTrueMDIForm对象在MDIForm顶部或底部显示活动对象工具栏StartUpPosition0–手动设立窗体弹出时,位置在屏幕中心选取“工具”菜单项中“菜单编辑器”,编辑菜单内容,如下图所示。菜单项属性如下:标题名称顾客信息管理cusiMenu班级信息管理claiMenu学籍信息管理stsiMenu课程信息管理couiMenu成绩信息管理scoiMenu奖惩信息管理prpiMenu个人信息管理sumiMenu协助help主界面如下图所示:4.1.2窗口代码如下:PrivateSubclaiMenu_Click()frmclai.ShowEndSubPrivateSubcouiMenu_Click()frmcoui.ShowEndSubPrivateSubcusiMenu_Click()frmcusi.ShowEndSubPrivateSubMDIForm_Load()dColor.ShowEndSubPrivateSubMDIForm_Resize()IfMe.Height>1100ThendColor.Height=Me.Height-1100EndIfIfMe.Width>180ThendColor.Width=Me.Width-180EndIfEndSubPrivateSubprpiMenu_Click()frmprpi.ShowEndSubPrivateSubscoiMenu_Click()frmscoi.ShowEndSubPrivateSubstsiMenu_Click()frmstsi.ShowEndSubPrivateSubsumiMenu_Click()frmsumi.ShowEndSub4.2、登录窗体设计4.2.1在工程中添加一种窗体,命名为“frmLogin”。整个窗体界面示意图如图所示。顾客要使用本系统,一方面要通过系统身份认证,即需要登录。登录过程需要完毕一下任务:(1)依照顾客名和密码来判断与否能进入系统;(2)依照顾客类型决定顾客拥有权限。登录界面窗体重要属性如下。窗体属性设立值详细阐明名称Label1设立窗体名称BorderStyle1-FixedSingle设立窗体边框属性Caption登录窗体标题条文本ControlBoxFalse取消控制按钮在登录窗体中添加控件,并设立控件属性如下表所示:对象名属性属性值txtPassword(名称)txtPasswordtxtUserNameStyle0—DropdownComboTexttxtUserNameCmd_OkCaption拟定Cmd_CancelCaption取消4.2.2编写窗体代码:PrivateSubForm_Load()DimiAsIntegeri=0txtSQL="select*fromuser_Form"WithtxtUserNameSetmrc=ExecuteSQL(txtSQL,MsgText)DoWhileNotmrc.EOFi=i+1txtUserName.AddItemTrim(mrc!user_ID)mrc.MoveNextLoop.ListIndex=i-1EndWithmrc.CloseOK=FalsemiCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()txtSQL="select*fromuser_Formwhereuser_ID='"&txtUserName.Text&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"没有这个顾客,请重新输入顾客名",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox"输入密码不对,请重新输入",vbOKOnly+vbExclamation,"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSubPrivateSubLabel1_Click()EndSubPrivateSubtxtPassword_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubtxtPassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallcmdOK_ClickEndIfEndSubPrivateSubtxtUserName_Click()txtPassword.Text=""EndSubPrivateSubtxtUserName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub4.3背景窗体设计4.3.1在工程中添加一种窗体,命名为“dColor”。整个窗体界面设计示意图如下.dColor窗体上空间及其属性如下表所示。窗体属性设立值详细阐明名称dColor设立窗体名称MaxButtonTrue激活最大化按钮MinButtonTrue激活最小化按钮ControlBoxTrue控制按钮在登录窗体中添加控件,并设立控件属性如下表所示:对象名属性属性值Image1Picture(Bitmap)Image2Picture(Bitmap)StretchFalseLabel1Caption欢迎进去学生管理系统BackColor0–Transparent4.3.2编写窗体代码PrivateSubForm_Load()Label1.ForeColor=&H8000000ELabel1.FontSize=12Label1.AutoSize=Truei=Image2.WidthEndSubPrivateSubForm_Resize()Image1.Top=0Image1.Left=0Image1.Height=Me.HeightImage1.Width=Me.WidthImage2.Top=Me.Height-Image2.HeightImage2.Left=Me.Width-Image2.WidthLabel1.Top=Me.Height-Label1.Height-100EndSubPrivateSubLabel1_Click()EndSubPrivateSubTimer1_Timer()i=i+50Label1.Left=Me.Width-iIfi>Me.Width+Label1.WidthTheni=Image2.WidthEndIfEndSub4.4班级管理窗体设计4.4.1在工程中添加一种窗体,命名为“frmclai”。整个窗体界面示意图如图所示。frmclai窗体上重要属性和控件设立如下:对象名属性属性值FrmclaiCaption班级信息MinbuttonTrueLinkTopicForm1HacDCTrueMSFlexGrid1DragMode0–vbManualLabel1Caption班级信息列表Label2(0)Caption添加Label2(1)Caption修改Label2(2)Caption删除Label3(0)Caption班级编号Label3(1)Caption班级名称Label3(2)Caption导员姓名Label3(3)Caption备注4.4.2编写窗体代码PrivateSubCommand1_Click()IfText1(0)=""ThenMsgBox"班级编号不能为空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"班级名称不能为空!",vbOKOnly,"提示"Text1(1).SetFocusExitSubEndIfIfText1(2)=""ThenMsgBox"导员姓名不能为空!",vbOKOnly,"提示"Text1(2).SetFocusExitSubEndIftxtSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此班级编号已经存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Trim(Text1(2))mrc.Fields(3)=Trim(Text1(3))mrc.Updatemrc.CloseFori=0To3Text1(i)=""NextMsgBox"班级信息添加成功!",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommand2_Click()Fori=0To3Text1(i)=""NextEndSubPrivateSubCommand5_Click()txtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=8To11Text1(i)=""NextMsgBox"班级已经删除!",vbOKOnly,"警告"ShowDataEndSubPrivateSubCommand6_Click()Fori=8To11Text1(i)=""NextEndSubPrivateSubForm_Load()Me.Caption="班级信息—>添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftShowDataFori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel2_Click(IndexAsInteger)Me.Caption="班级信息"Me.Caption=Me.Caption&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To11Text1(i)=""NextCommand3.Enabled=FalseCommand5.Enabled=FalseEndSubPrivateSubShowData()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)WithMSFlexGrid1.ColWidth(0)=1200.ColWidth(1)=1200.ColWidth(2)=1200.ColWidth(3)=6000.TextMatrix(0,0)="班级编号".TextMatrix(0,1)="班级名称".TextMatrix(0,2)="导员姓名".TextMatrix(0,3)="备注信息¢".Rows=1DoWhileNotmrcc.EOF.Rows=.Rows+1Fori=0Tomrcc.Fields.Count-1.TextMatrix(.Rows-1,i)=mrcc.Fields(i)&""Nextimrcc.MoveNextLoopEndWithmrcc.CloseEndSubPrivateSubMSFlexGrid1_Click()IfPicture1(1).Visible=TrueThenText1(4)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0))Text1(5)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1))Text1(6)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2))Text1(7)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3))Command3.Enabled=TrueEndIfIfPicture1(2).Visible=TrueThenText1(8)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0))Text1(9)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1))Text1(10)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2))Text1(11)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3))Command5.Enabled=TrueEndIfEndSubPrivateSubText1_Change(IndexAsInteger)IfIndex=4ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)Ifmrc.EOF=FalseThenText1(5)=mrc.Fields(1)Text1(6)=mrc.Fields(2)Text1(7)=mrc.Fields(3)Command3.Enabled=TrueExitSubElseText1(5)=""Text1(6)=""Text1(7)=""Command3.Enabled=FalseEndIfmrc.CloseEndIfIfIndex=8ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)Ifmrc.EOF=FalseThenText1(9)=mrc.Fields(1)Text1(10)=mrc.Fields(2)Text1(11)=mrc.Fields(3)Command5.Enabled=TrueExitSubElseText1(9)=""Text1(10)=""Text1(11)=""Command5.Enabled=FalseEndIfmrc.CloseEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub4.5课程信息窗体设计4.5.1在工程中添加一种窗体,命名为“frmcoui”。整个窗体界面如下所示。Frmcoui窗体重要控件和属性设立如下对象名属性属性值ComcolTextCombolList1(名称)密码TxtUserTextList1FrmcouiCaption课程信息StartUpPosition0–手动Command1Caption添加Command2Caption删除4.5.2添加窗体代码PrivateSubCombo1_Click()List1TextEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"课程名称不能为空",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此课程名称已经存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromcourse_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"课程信息添加成功!",vbOKOnly,"提示"List2TextEndSubPrivateSubCommand2_Click()DimtxtSQLAsStringIfList2.Text<>""ThentxtSQL="deletefromcourse_Formwherecourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"课程信息已经删除!",vbOKOnly,"提示"List2TextEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsStringMe.Caption="课程信息->设置"txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"请先进行班级设立",vbOKOnly,"提示"ElseWithCombo1DoWhileNotmrc.EOF.AddItemTrim(mrc!class_NO)mrc.MoveNextLoopCombo1.ListIndex=0EndWithEndIfList2TextEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label3(0).BackColor=&HC0C0C0Label3(1).BackColor=&HC0C0C0Label3(2).BackColor=&HC0C0C0Label3(3).BackColor=&HC0C0C0EndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel3_Click(IndexAsInteger)DimtxtSQLAsStringDimtSQLAsStringDimmmrcAsADODB.RecordsetIfIndex=0ThenIfCombo1.Text<>""AndList2.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=Trim(List2.Text)mrc.Updatemrc.CloseEndIfEndIfIfIndex=1ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)tSQL="select*fromcourse_Form"txtSQL="select*fromclass_Cour"Setmmrc=ExecuteSQL(tSQL,MsgText)Ifmmrc.EOF=TrueThenMsgBox"请先进行班级设立!",vbOKOnly,"提示"ElseDoWhileNotmmrc.EOFSetmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=mmrc.Fields(0)mrc.Updatemrc.Closemmrc.MoveNextLoopEndIfEndIfEndIfIfIndex=2ThenIfCombo1.Text<>""AndList1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIfIfIndex=3ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIftxtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)List1TextEndSubPrivateSubLabel3_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label3(Index).BackColor=&HFFFFFFEndSubPrivateSubList1_Click()EndSubPrivateSubList2_Click()Text1(0)=List2.TextEndSubPrivateSubText1_Change(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenText1(1)=mrc.Fields(1)Text1(1).Locked=TrueElseText1(1)=""Text1(1).Locked=FalseEndIfEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubList1Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList2Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromcourse_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List2.ClearDoWhileNotmrcc.EOFList2.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSub4.6顾客信息管理窗体设计4.6.1在工程中添加一种窗体,命名为“frmcusi”。Frmcusi窗口界面十一图如下。Frmcusi窗体包括控件及其属性如下:对象名属性属性值Label1Caption顾客列表Label2(0)Caption添加Label2(1)Caption修改Label2(2)Caption删除Picture1(0)IMEMode0–NoOperationList1List(List)Command1Caption添加Command2Caption取消4.6.2编写窗体代码PrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"顾客名称不能为空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"顾客密码不能为空!",vbOKOnly,"提示"Text1(1).SetFocusExitSubElseIfText1(1)<>Text1(2)ThenMsgBox"两次密码不同!",vbOKOnly,"提示"Text1(1)=""Text1(2)=""Text1(1).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此顾客已经存在!",vbOKOnly,警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=0To2Text1(i)=""NextMsgBox"顾客添加成功!",vbOKOnly,"提示"ListappEndSub4.7奖惩信息管理窗口设计4.7.1在工程中添加一种窗体,命名为“frmprpi”。Frmprpi窗口界面设计十一图如下:Frmprpi窗体包括重要控件及其属性如下:对象名属性属性值Label1Caption输入学号进行查询添加Label2Caption奖惩信息表Label3Caption收到奖励或惩罚时间Label4Caption奖惩名称Picture5Caption备注信息List1List(List)Command1Caption添加Command2Caption删除4.7.2编写重要代码如下PrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"奖惩名称不能为空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromprize_Formwhereprize_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此奖惩名称已经存在",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromprize_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"奖惩信息添加成功!",vbOKOnly,"提示"List1TextEndSub4.8成绩查询窗口设计4.8.1在工程中添加一种窗口,命名为“frmscoi”。Frmscoi窗口界面设计示意图如下.Frmscoi窗体包括重要控件及其属性如下:对象名属性属性值Combo1(0)Caption学生班号LabelCaption考试期号Option1(0)Caption添加MSFlexGrid1BorderStyle1–flexBorderSinglePicture1(0)DrawMode13–CopyPenProgressBar1OrientationccOrientationHorizontalCommand1Caption添加Command2Caption取消其她控件以及属性跟上面表中类似。4.8.2编写窗体重要代码如下PrivateSubForm_Load()Option1(1).Value=TruePicture1(0).Visible=FalsePicture1(1).Visible=TruePicture1(2).Visible=FalsePicture1(3).Visible=FalsePicture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftPicture1(3).Top=Picture1(0).TopPicture1(3).Left=Picture1(0).LeftWithMSFlexGrid1.Cols=6.TextMatrix(0,1)="考试期号".TextMatrix(0,2)="学生班号".TextMatrix(0,3)="学生编号".TextMatrix(0,4)="考试课程".TextMatrix(0,5)="考试分数ý".ColWidth(0)=0.ColWidth(1)=1550.ColWidth(2)=1550.ColWidth(3)=1550.ColWidth(4)=1550.ColWidth(5)=1550.Rows=1EndWithText1(0)=GetRknoEndSubPrivateSubMSFlexGrid1_Click()DimtxtSQLAsStringIfMSFlexGrid1.Row<>0ThenText3(0)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0)Text3(1)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1)Combo3(0).ClearCombo3(0).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2)Combo3(0).ListIndex=0txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenWithCombo3(0)DoWhileNotmrc.EOFIfmrc!class_NO<>.TextThen.AddItemTrim(mrc!class_NO)EndIfmrc.MoveNextLoopEndWithEndIfCombo3(1).ClearCombo3(1).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3)Combo3(1).ListIndex=0Combo3(2).ClearCombo3(2).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,4)Combo3(2).ListIndex=0Text3(2)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,5)Text4(0)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0)Text4(1)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1)Combo4(0).ClearCombo4(0).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2)Combo4(0).ListIndex=0Combo4(1).ClearCombo4(1).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3)Combo4(1).ListIndex=0Combo4(2).ClearCombo4(2).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row,4)Combo4(2).ListIndex=0Text4(2)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,5)EndIfEndSub4.9学籍信息管理窗体设计4.9.1在工程中添加一种窗口,命名为“frmstsi”。Frmstsi界面这几示意图如下。Frmstsii窗体包括重要控件及其属性如下:对象名属性属性值Combo1(0)TextCombolLabel1(0)Caption添加Label1(1)Caption查询Label1(2)Caption修改Label1(3)Caption删除Label4Caption查询中请稍后…Label3Caption学籍信息列表MSFlexGrid1Row2Command1Caption添加Command2Caption取消其她属性设立与表中类似。4.9.2编写重要代码如下:PrivateSubCombo1_Click()Text1(4)=Combo1.TextIfLabel1(3).BackColor<>&HFFFFFFThenIfLabel2(4).Caption=Combo1.TextThenCombo1.BackColor=&HE0E0E0ElseCombo1.BackColor=&HFFFFFFEndIfEndIfEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringFori=0To7Ifi<>4ThenIfText1(i)=Label2(i).CaptionThenMsgBox"请"&Label2(i).Caption&"!",vbOKOnly,"提示"Text1(i).SetFocusExitSubEndIfElseIfText1(i)=Label2(i).CaptionThenMsgBox"请"&Label2(i).Caption&"!",vbOKOnly,"提示"Combo1.SetFocusExitSubEndIfEndIfNextIfIsDate(Text1(3))=FalseThenMsgBox"出生日期应为日期格式((yyyy-

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论