下载

2下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 (ACCESS数据库VB编程)学生信息管理系统

(ACCESS数据库VB编程)学生信息管理系统.doc

(ACCESS数据库VB编程)学生信息管理系统

arlenzheng
2011-01-05 0人阅读 举报 0 0 暂无简介

简介:本文档为《(ACCESS数据库VB编程)学生信息管理系统doc》,可适用于人文社科领域

学生信息管理系统大学数据库课程设计报告题目: 学生信息管理系统  班级:  计本班    姓名:           学号:           指导教师:    年月日数据库课程设计评分表班级计本班姓名指导教师题目:学生信息管理系统评分标准评分标准分数权重评分的依据得分AC选题选题符合大纲要求题目较新颖工作量大选题基本符合大纲要求工作量适中工作态度态度端正能主动认真完成各个环节的工作不迟到早退出勤好。能够完成各环节基本工作出勤较好。数据库设计能正确绘制总体ER图定义表结构准确约束信息完备对关系的规范化完全符合大纲要求能基本正确绘制ER图定义表结构基本准确对关系的规范化基本符合大纲要求独立解决问题的能力具有独立分析、解决问题能力有一定的创造性能够独立完成数据库及相关软件的设计与调试工作程序结构合理逻辑严谨功能完善。有一定的分析、解决问题能力。能够在老师指导下完成软件的设计与调试工作程序功能较完善。答辨问题回答能准确回答老师提出的问题能基本准确回答老师提出的问题程序运行情况程序运行正确、界面清晰测试数据设计合理。程序运行正确、界面较清晰能给出合适的测试数据。课程设计论文格式规范层次清晰设计思想明确解决问题方法合理体会深刻。格式较规范设计思想基本明确解决问题方法较合理。总分指导教师(签字):注:介于A和C之间为B级低于C为D级和E级。按各项指标打分后总分在~为优~为良~为中~为及格分以下为不及格。学生信息管理系统摘要:随着信息技术在管理上越来越深入而广泛的应用管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科任何一个单位要生存要发展要高效率地把内部活动有机地组织起来就必须建立与自身特点相适应的管理信息系统。学生成绩管理系统主要提供方便高效的管理功能该实现以下一些基本功能: 系统管理模块:维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。班级管理模块:实现对全校班级的管理工作包括:班级游览、班级添加、班级修改等这三个功能模块各自独立完成学校的全部班级的管理。学生学籍管理模块:实现对学生的个人信息的管理工作包括学籍添加、学籍查询、学籍修改等功能从而方便学校管理部门对学校的基本情况的快速查询和了解。课程管理模块:该模块对各个班级的课程进行设置并可在其中设置各门课程的教材选用情况方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设置和班级课程设置两个模块。成绩管理模块:检验学生学习情况的一个主要手段本模块包括考试类型设置共有期中考试和期未考试两种类型还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。奖惩信息管理模块:奖惩信息是用来督促学习学习活动的一种手段包括奖惩信息的添加和修改。个人信息查询模块:用于学生个人信息的查询分为奖惩信息查询和成绩查询两个模块。退出模块:此模块完成程序的退出。该程序界面友好功能强大适合实际应用。关键字:数据库ACCESS数据库学生信息操作VB编程概述该信息管理系统可以说是一个综合性的学校学生管理系统它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统等多种功能因而具有较强的实用性和先进性。项目开发背景:学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,对学生来说也可以轻松的查阅自己在校的成绩以及信息等但是一直以来人们都是靠传统人工的方式管理学生成绩,这种管理方式存在着许多缺点,如:效率低,保密性差,另外时间一长,将产生大量的文件和数据,这对于查找,更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机对学生信息进行管理,有着手工管理所无法比拟的优点例如:检索迅速,查找方便,可靠性高,存储量大,保密性好,寿命长,成本低等。这些优点能够极大地提高学生信息管理的效率,方便系统管理员对学生成绩等信息的添加,修改,删除,查询,留言等操作,同时一样的方面学生对自己各科成绩查询,学习的交流。项目开发的目标:建立学生信息管理系统采用计算机对学生信息进行管理进一步提高办学效益和现代化水平帮助广大教师提高工作效率实现学生信息管理工作流程的系统化、规范化和自动化项目提出的意义:现在我国的大中专院校的学生信息管理水平普遍不高有的还停留在纸介质基础上这种管理手段已不能适应时代的发展因为它浪费了了许多的人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被学校所采用将会改变以前靠手工管理学生成绩的状况可以树立良好的办学形象提高工作效率。需求分析系统需求:通过调查,要求系统需要有以下功能:⑴要求有良好的人机界面⑵较好的权限管理⑶原始数据修改简单方便,支持多条件修改⑷方便的数据查询支持多条件查询⑸相应的权限下删除数据方便简单数据稳定性好⑹数据计算自动完成尽量减少人工干预可行性分析:由于本系统管理的对象单一,都是在校学生且每个数据内容具有较强的关联性涉及的计算过程不是很复杂。因此比较适合于采用数据库管理。且学校用于学生管理的微机都是奔腾以上的机器在存储量、速度方面都能满足数据库运行的要求。在技术难度方面由于有指导老师的指导和相关参考文献特别是网上资料特别是参考其它程序的功能因此完全可以实现。数据库是MIS中的重要支持技术在MIS开发过程中如何选择数据库管理是一个重要的问题目前数据库产品较多每种产品都具有各自的特点和适用范围因此在选择数据库时应考虑数据库应用的特点及适用范围本系统选用的数据库语言介绍如下:VisualBasic是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计可用于开发Windows环境下的种类应用程序。它简单易学、效率高且功能强大。在VisualBasic环境下利用事件驱动的编程机制、新颖易用的可视化设计工具可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。业务流程分析图班级管理业务流程图图档案管理业务流程图图课程管理业务流程图图成绩管理业务流程图数据流程分析:数据流程图:图学生成绩管理系统层数据流程图图学生成绩管理系统层数据流程图.数据库逻辑设计软件模块结构设计系统方案确定通过对系统的调研与分析系统主要应完成的功能有:班级管理、学生档案管理、课程管理、成绩管理、奖惩信息管理、个人信息查询等功能。软件结构设计本系统在执行时先根据不同的操作人员的需要来进行相应的模块然后可以输入数据或者进行其它的查询或浏览等操作总体来说本系统属于一个事务型管理系统。图事务型管理模块图数据库建模数据模型设计。首先来做出学生成绩管理系统的ER图分析这个问题的实体从系统分析可以知道学生的成绩是由任课教师按照课程给出的学生、课程、教师组成了这个系统的三个实体。再分析三个实体之间的联系。首先这三个实体不是一个统一体学生成绩与教师没有内在联系教师必须通过课程实体才能与学生建立联系因而先不考虑。课程与学生这两个实体是多对多联系一位学生要学习多门课程一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性应填在二者的联系“学习”边。因为成绩既不是学生独有的也不是课程独有的“学生甲分”或“英语分”是不完全的说“学生甲英语分”才是正确的因为分是学生甲和英语课二者共有的。这个ER图可画成下图。图学生成绩管理系统中学生与课程的ER图教师与课程这两个实体之间是一对多联系一位教师可以教多门课程而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教但对某个固定的学生来说只能有一位教师)。其ER图如下所示。图一对多ER图教师与课程的ER图组合到一起得到最后的ER图有了ER图就可以设计数据库。下图为数据模型图。图教师与课程的ER图数据库逻辑设计数据库采用了Microsoft推出的Access数据库这是微软集成到Office中的一个桌面数据库能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于如果你的系统扩展到ClientServer模式的时候可以使用Microsoft的数据库服务器软件SQLServer此时程序只需要简单的修改一下链接(ADO的数据源)就可以这样为程序的平滑扩展提供了非常有力的条件。本系统中所涉及到的主要实体共有八个数据表:classCour班级课程表:{classNO班级编号,courseName课程名}classForm班级表:{classNO班级编号,className班级名称,classTeacher导员姓名,classRemarks备注信息}courseForm课程表:{courseName课程名,courseRem备注}prizeForm奖惩表:{prizeName奖惩名称,prizeRem备注信息}prizeStud学生奖惩表:{prizeNO奖惩编号,prizeStu奖惩学生学号,prizeDat奖惩日期,prizeNam奖惩名称}scoreForm成绩表:{scoreNO成绩号,scorePer考试期号,scoreCla学生班号,scoreStu学生编号,scoreCou考试课程,scoreSco考试分数}studentForm学籍表:{studentNO学号,studentName姓名,studentSex性别,studentBir出生日期,studentCla学生编号,studentTel练习电话,studentEsd入学日期,studentAdd家庭住址,studentRem备注信息}userForm用户表:{userID用户名称,userPWD用户密码,userDATE创建日期}数据库的物理设计表班级课程表(classCour)字段名称数据类型字段大小允许空字符串班级编号classNO文本否课程名courseName文本否表班级表(classForm)字段名称数据类型字段大小允许空字符串班级编号classNO文本否班级名称className文本否导员姓名classTeacher文本否备注信息classRemarks文本表课程表(courseForm)字段名称数据类型字段大小允许空字符串课程名courseName文本否备注courseRem备注表奖惩表(prizeForm)字段名称数据类型字段大小允许空字符串奖惩名称prizeName文本否备注信息prizeRem备注表学生奖惩表(prizeStud)字段名称数据类型字段大小允许空字符串奖惩编号prizeNO文本否奖惩学生学号prizeStu文本奖惩日期prizeDat日期时间短日期奖惩名称prizeNam文本表成绩表(ScoreForm)字段名称数据类型字段大小允许空字符串成绩号scoreNO文本否考试期号scorePer文本学生班号scoreCls文本学生编号scoreStu文本考试课程scoreCou文本考试分数scoreSco数字单精度型自动(小数位)表学生表(studentForm)字段名称数据类型字段大小允许空字符串学号studentNO文本否姓名studentName文本性别studentSex文本出生日期studentBir日期时间短日期学生编号studentCla文本联系电话studentTel文本入学日期studentEsd日期时间短日期家庭住址studentAdd文本备注信息studentRem备注表userForm用户表字段名称数据类型字段大小允许空字符串用户名称userID文本否用户密码userPWD文本创建日期userDATE日期时间短日期.软件功能设计图功能模块图系统管理模块该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。修改:PrivateSubCommandClick()Text()=""Text()=""Text()=""EndSubSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromuserForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=NowmrcUpdatemrcCloseFori=ToText(i)=""NextMsgBox"用户信息修改成功!",vbOKOnly,"提示"EndSub班级管理模块该模块的功能是实现对全校班级的管理工作包括:班级游览、班级添加、班级修改等这三个功能模块各自独立完成学校的全部班级的管理。PrivateSubCommandClick()txtSQL="deletefromclassFormwhereclassNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=ToText(i)=""NextMsgBox"班级信息以经删除!",vbOKOnly,"警告"ShowDataEndSub学生学籍管理模块该模块的主要功能是实现对学生的个人信息的管理工作包括学籍添加、学籍查询、学籍修改等功能从而方便学校管理部门对学校的基本情况的快速查询和了解。课程管理模块该模块对各个班级的课程进行设置并可在其中设置各门课程的教材选用情况方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设置和班级课程设置两个模块。PrivateSubCommandClick()DimtxtSQLAsStringIfListText<>""ThentxtSQL="deletefromcourseFormwherecourseName='"Trim(ListText)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"课程信息已经删除!",vbOKOnly,"提示"ListTextEndIfEndSub成绩管理模块学校的成绩管理工作是检验学生学习情况的一个主要手段本模块包括考试类型设置共有期中考试和期未考试两种类型还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。PrivateSubCommandClick()DimjAsIntegerDimtxtSQLAsStringIfText()=""ThenMsgBox"请选择要删除的纪录!",vbOKOnly,"提示"MSFlexGridSetFocusExitSubEndIftxtSQL="DeletefromscoreFormwherescoreNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"考试信息修改成功!",vbOKOnly,"提示"j=Fori=ToMSFlexGridRowsIfMSFlexGridTextMatrix(i,)=Text()Thenj=iEndIf奖惩信息管理模块奖惩信息是用来督促学习学习活动的一种手段包括奖惩信息的添加和修改。PrivateSubCommandClick()DimtxtSQLAsStringmrcClosetxtSQL="select*fromprizeForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcUpdatemrcCloseText()=""Text()=""MsgBox"奖惩信息添加成功!",vbOKOnly,"提示"ListTextEndSub退出模块此模块完成程序的退出。.界面设计系统登陆界面:本界面的主要功能是为了对系统进行安全性管理本系统的用户名和密码保存在USE表中本系统根据不同的用户而设置了不同的权限可以用IDPWD(大写)为用户名和密码来登陆本系统。系统主界面:本模块是本系统的应用界面在本界面上集成了本系统的所有功能共有个功能菜单从而实现了本系统从用户管理、班级管理、学籍管理、课程管理、成绩管理、奖惩管理、个人信息查询等系统功能同时在系统管理模块中可以完成对本系统的安全性管理。用户管理模块:本模块是本系统的安全性设置模块实现了对用户帐户信息管理功能。班级信息管理模块:班级信息管理模块用于实现班级信息的添加、删除、修改的功能。包括班级编号班级名称导员姓名备注信息。当对其中某个属性进行操作时对其基本的信息进行填写完整。否则会出现提示信息。当班级编号班级名称导员姓名为空时会自动的出现提示信息提示某个属性列必须要填写否则显示操作成功。如图所示班级信息管理模块学籍信息管理模块:学籍信息管理模块是对学生的个人信息进行统计。实现该模块的添加、查询、修改、删除功能。例如点击添加时系统弹出如图所示的界面当点击界面下方面的控件时其所对应的位置会显示为输入形式对信息进行输入。输入完成后点击添加时系统会自动对信息进行验证如果学号以存在时则提示学号存在无法添加如果除备注信息中有信息落填时会提示某个属性列没有填写否则提示信息添加成功并对添加后的信息进行显示。如图所示学籍信息管理模块(添加功能)课程信息管理模块:成绩信息管理模块:奖惩信息管理模块:个人信息查询模块:结束语在本系统的开发过程中由于本人是初次开发软件在知识、经验方面都存在着不足。因此该系统必然会存在一些缺陷和不足。因为对学生管理的整个流程不够熟悉在需求分析时未能做到完全满足用户的需求。虽然网络在学生管理系统中的应用不是很多但是未来的发展方向在本次开发过程由于硬件的限制未能实现网络功能因此在以后的系统更新过程中可能会造成一些不必要的数据损失。通过开发这个系统我掌握了项目的基本开发过程了解了的基本知识巩固了我对VisualBasic的学习但在这次设计中的最大收获并不是掌握这几门开发工具的应用而是学会了设计系统的思维方法以及与同学们之间相互帮助的精神。参考文献周佩德《数据库原理及应用》电子工业出版社刘炳文等VISUALBASIC程序设计数据库篇李光明《VisualBasic编程实例大制作》冶金工业出版社李红等编著管理信息系统开发与应用电子工业出版社软件工程人民邮电出版社年月第一版康博工作室张红军王红等缟著《VisualBasic中文版高级应用与开发指南》人民邮电出版社年月第一版林立军程斌翁迪恩缟著《VisualBasic数据库开发指南》西安电子科技大学出版社年月第一版宋伟吴建国等编著《中文VisualBasic编程基础》北京清华大学出版社源程序:系统登录界面:OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapidll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanDimtxtSQLAsStringDimmrcAsADODBRecordsetDimMsgTextAsStringDimmiCountAsIntegerPrivateSubFormLoad()DimiAsIntegeri=txtSQL="select*fromuserForm"Setmrc=ExecuteSQL(txtSQL,MsgText)WithtxtUserNameDoWhileNotmrcEOFi=iAddItemTrim(mrc!userID)mrcMoveNextLoopListIndex=iEndWithmrcCloseOK=FalsemiCount=EndSubPrivateSubcmdCancelClick()OK=FalseMeHideEndSubPrivateSubcmdOKClick()txtSQL="select*fromuserFormwhereuserID='"txtUserNameText"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=TrueThenMsgBox"没有这个用户请重新输入用户名!",vbOKOnlyvbExclamation,"警告"txtUserNameSetFocusElseIfTrim(mrcFields())=Trim(txtPasswordText)ThenOK=TruemrcCloseMeHideUserName=Trim(txtUserNameText)ElseMsgBox"输入密码不正确请重新输入!",vbOKOnlyvbExclamation,"警告"txtPasswordSetFocustxtPasswordText=""EndIfEndIfmiCount=miCountIfmiCount=ThenMeHideEndIfExitSubEndSubPrivateSubtxtPasswordKeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubtxtPasswordKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenCallcmdOKClickEndIfEndSubPrivateSubtxtUserNameClick()txtPasswordText=""EndSubPrivateSubtxtUserNameKeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub系统主界面:DimiAsLongPrivateSubFormLoad()LabelForeColor=HELabelFontSize=LabelAutoSize=Truei=ImageWidthEndSubPrivateSubFormResize()ImageTop=ImageLeft=ImageHeight=MeHeightImageWidth=MeWidthImageTop=MeHeightImageHeightImageLeft=MeWidthImageWidthLabelTop=MeHeightLabelHeightEndSubPrivateSubTimerTimer()i=iLabelLeft=MeWidthiIfi>MeWidthLabelWidthTheni=ImageWidthEndIfEndSub用户管理模块:DimmrcAsADODBRecordsetDimMsgTextAsStringPrivateSubCommandClick()DimtxtSQLAsStringIfText()=""ThenMsgBox"用户名称不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIfIfText()=""ThenMsgBox"用户密码不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubElseIfText()<>Text()ThenMsgBox"两次密码输入不同!",vbOKOnly,"提示"Text()=""Text()=""Text()SetFocusExitSubEndIfEndIftxtSQL="select*fromuserFormwhereuserID='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenMsgBox"此用户名已经存在!",vbOKOnly,"警告"Text()SetFocusExitSubEndIfmrcClosetxtSQL="select*fromuserForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=NowmrcUpdatemrcCloseFori=ToText(i)=""NextMsgBox"用户信息添加成功!",vbOKOnly,"提示"ListappEndSubPrivateSubCommandClick()Text()=""Text()=""Text()=""EndSubPrivateSubCommandClick()DimtxtSQLAsStringIfText()=""ThenMsgBox"请你选择用户名称!",vbOKOnly,"提示"ListSetFocusExitSubEndIfIfText()=""ThenMsgBox"修改密码要旧密码!",vbOKOnly,"警告"Text()SetFocusExitSubEndIfIfText()=""ThenMsgBox"新的密码不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubElseIfText()<>Text()ThenMsgBox"两次密码输入不同!",vbOKOnly,"提示"Text()=""Text()=""Text()SetFocusExitSubEndIfEndIftxtSQL="select*fromuserFormwhereuserID='"Trim(Text())"'anduserPWD='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThentxtSQL="deletefromuserFormwhereuserID='"Trim(Text())"'"ElseMsgBox"用户密码输入错误!",vbOKOnly,"警告"Text()SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromuserForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=NowmrcUpdatemrcCloseFori=ToText(i)=""NextMsgBox"用户信息修改成功!",vbOKOnly,"提示"EndSubPrivateSubCommandClick()Text()=""Text()=""Text()=""Text()=""EndSubPrivateSubCommandClick()DimtxtSQLAsStringIfText()=""ThenMsgBox"请你选择用户名称!",vbOKOnly,"提示"ListSetFocusExitSubElseIfText()=UserNameThenMsgBox"不可以删除正在使用的用户!",vbOKOnly,"警告"Text()=""Text()=""ListSetFocusExitSubEndIfEndIfIfText()=""ThenMsgBox"删除用户需要密码!",vbOKOnly,"警告"Text()SetFocusExitSubEndIftxtSQL="select*fromuserFormwhereuserID='"Trim(Text())"'anduserPWD='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThentxtSQL="deletefromuserFormwhereuserID='"Trim(Text())"'"ElseMsgBox"用户密码输入错误!",vbOKOnly,"警告"Text()SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)Text()=""Text()=""MsgBox"用户信息已经删除!",vbOKOnly,"提示"ListappEndSubPrivateSubCommandClick()Text()=""Text()=""EndSubPrivateSubFormLoad()班级信息管理模块:DimmrcAsADODBRecordsetDimMsgTextAsStringDimtSQLAsStringPrivateSubCommandClick()IfText()=""ThenMsgBox"班级编号不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIfIfText()=""ThenMsgBox"班级名称不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIfIfText()=""ThenMsgBox"导员姓名不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIftxtSQL="select*fromclassFormwhereclassNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenMsgBox"此班级编号已存在!",vbOKOnly,"警告"Text()SetFocusExitSubEndIfmrcClosetxtSQL="select*fromclassForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcUpdatemrcCloseFori=ToText(i)=""NextMsgBox"班级信息添加成功!",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommandClick()Fori=ToText(i)=""NextEndSubPrivateSubCommandClick()IfText()=""ThenMsgBox"班级名称不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIfIfText()=""ThenMsgBox"导员姓名不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIftxtSQL="deletefromclassFormwhereclassNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromclassForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcUpdatemrcCloseFori=ToText(i)=""NextMsgBox"班级信息修改成功!",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommandClick()Fori=ToText(i)=""NextEndSubPrivateSubCommandClick()txtSQL="deletefromclassFormwhereclassNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=ToText(i)=""NextMsgBox"班级信息以经删除!",vbOKOnly,"警告"ShowDataEndSubPrivateSubCommandClick()Fori=ToText(i)=""NextEndSubPrivateSubFormLoad()MeCaption="班级信息>添加"Picture()Top=Picture()TopPicture()Left=Picture()LeftPicture()Top=Picture()TopPicture()Left=Picture()LeftShowDataFori=ToLabel(i)BackColor=HEEEPicture(i)Visible=FalseNextLabel()BackColor=HFFFFFFPicture()Visible=TrueEndSubPrivateSubFormResize()dColorZOrderEndSubPrivateSubLabelClick(IndexAsInteger)MeCaption="班级信息"MeCaption=MeCaption">"Trim(Label(Index)Caption)Fori=ToLabel(i)BackColor=HEEEPicture(i)Visible=FalseNextLabel(Index)BackColor=HFFFFFFPicture(Index)Visible=TrueFori=ToText(i)=""NextCommandEnabled=FalseCommandEnabled=FalseEndSubPrivateSubShowData()DimtxSQLAsStringDimmrccAsADODBRecordsettxSQL="select*fromclassForm"Setmrcc=ExecuteSQL(txSQL,MsgText)WithMSFlexGridColWidth()=ColWidth()=ColWidth()=ColWidth()=TextMatrix(,)="班级编号"TextMatrix(,)="班级名称"TextMatrix(,)="导员姓名"TextMatrix(,)="备注信息"Rows=DoWhileNotmrccEOFRows=RowsFori=TomrccFieldsCountTextMatrix(Rows,i)=mrccFields(i)""NextimrccMoveNextLoopEndWithmrccCloseEndSubPrivateSubMSFlexGridClick()IfPicture()Visible=TrueThenText()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))Text()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))Text()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))Text()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))CommandEnabled=TrueEndIfIfPicture()Visible=TrueThenText()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))Text()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))Text()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))Text()=Trim(MSFlexGridTextMatrix(MSFlexGridRow,))CommandEnabled=TrueEndIfEndSubPrivateSubTextChange(IndexAsInteger)IfIndex=ThentSQL="select*fromclassFormwhereclassNO='"Trim(Text(Index))"'"Setmrc=ExecuteSQL(tSQL,MsgText)IfmrcEOF=FalseThenText()=mrcFields()Text()=mrcFields()Text()=mrcFields()CommandEnabled=TrueExitSubElseText()=""Text()=""Text()=""CommandEnabled=FalseEndIfmrcCloseEndIfIfIndex=ThentSQL="select*fromclassFormwhereclassNO='"Trim(Text(Index))"'"Setmrc=ExecuteSQL(tSQL,MsgText)IfmrcEOF=FalseThenText()=mrcFields()Text()=mrcFields()Text()=mrcFields()CommandEnabled=TrueExitSubElseText()=""Text()=""Text()=""CommandEnabled=FalseEndIfmrcCloseEndIfEndSubPrivateSubTextGotFocus(IndexAsInteger)Text(Index)SelStart=Text(Index)SelLength=Len(Text(Index))EndSubPrivateSubTextKeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub学籍信息管理模块:PrivateSubclaiMenuClick()frmclaiShowEndSubPrivateSubcouiMenuClick()frmcouiShowEndSubPrivateSubcusiMenuClick()frmcusiShowEndSubPrivateSubMDIFormLoad()dColorShowEndSubPrivateSubMDIFormResize()IfMeHeight>ThendColorHeight=MeHeightEndIfIfMeWidth>ThendColorWidth=MeWidthEndIfEndSubPrivateSubprpiMenuClick()frmprpiShowEndSubPrivateSubscoiMenuClick()frmscoiShowEndSubPrivateSubstsiMenuClick()frmstsiShowEndSubPrivateSubsumiMenuClick()frmsumiShowEndSubDimmrcAsADODBRecordsetDimMsgTextAsStringDimtSQLAsStringPrivateSubComboClick()Text()=ComboTextIfLabel()BackColor<>HFFFFFFThenIfLabel()Caption=ComboTextThenComboBackColor=HEEEElseComboBackColor=HFFFFFFEndIfEndIfEndSubPrivateSubCommandClick()DimtxtSQLAsStringFori=ToIfi<>ThenIfText(i)=Label(i)CaptionThenMsgBox"请"Label(i)Caption"!",vbOKOnly,"提示"Tex

用户评价(1)

  • sky2 太合适了,正式我找的

    2011-05-17 19:41:10

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/53

(ACCESS数据库VB编程)学生信息管理系统

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利