还剩51页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
摘要随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步成熟管理信息系统是一个不断发展的新型学科,任何一个单位要生存要发展,要高效率地把内部活动有机地组织起来,就必须建立与自身特点相适应的管理信息系统本文介绍了在VisualBasic
6.0环境下采用“自上而下地总体规划,自下而上地应用开发”的策略开发一个管理信息系统的过程通过分析某一学校学生管理的不足,创建了一套行之有效的计算机管理学生的方案文章介绍了学生管理信息系统的系统分析部分,包括可行性分析、业务流程分析等;系统设计部分主要介绍了系统功能设计和数据库设计及代码设计;系统实现部分说明了几个主要模块的算法,本系统界面友好,操作简单,比较实用【关键字】学生管理VisualBasic应用AbstractWithmoreandmorewidespreadandprofoundapplicationofinformationtechnologyinmanagementtheimplementofmanagementinformationsystemhasbecomematureintechnologystepbystep.Managinginformationsystemisanewsubject.Enterpriseneedsexistenceanddevelopmentsoenterpriseactivitiesshouldbeorganizedefficientlyandorganicallywhichmeanstighteninguptheenterprisemanagementandstrengtheningeffectivemanagementofanyresourcestafffinancepropertyetc.internaltheenterpriseandalsoestablishingamanagementinformationsystemfittinginwithitsowncharacteristics.Thisarticleintroducesthedetailedprocessofexploringamanagementinformationsystemundertheenvironmentofvisualfoxproutilizing“Top-Bottom”overallplanandastrategyaccordingto“Bottom-Top”applicationandexploitation.Thatistoestablishasetofeffectiveschemeforstudentmanagementbycomputerthroughanalyzingdisadvantagesofstudentmanagementbyhumanresources.Thisarticleemphasizesonthreesections.Thesystemanalysissectionofstudentmanagementinformationincludesfeasibleanalysismanagementfunctionanalysis.Thesystemdesignsectionmainlyfocusesonsystemfunctiondesignanddatabasedesignanddatanumberdesign.Andthesystemrealizationsectionhasprovidedseveralmajorfunctiontogetherwiththemainwindowsandprograms.Thiseconomicalandpragmaticsystemhasexplicitinterfacewithsimpleoperation.[Keywords]studentmanagement、visualbasicapplication目录TOC\o1-3\h\z\u摘要IAbstractII第1章绪论
12.系统概述
32.1现有系统分析
32.2可行性分析
32.3开发工具简介
42.
3.1VisualBasic
6.0简介
42.
3.2MicrosoftSQL2000简介
52.4系统的功能简介
52.5系统开发的目标
63.系统分析
73.1业务流程分析
73.2数据流程分析
83.3数据存储分析
94.系统设计
114.1软件模块结构设计
114.
1.1系统方案确定
114.
1.2软件结构设计
114.2数据库设计
114.
2.1系统E-R图
124.
2.2各表的物理结构
145.系统的实现
175.1系统登陆界面
175.2系统主界面
195.3用户管理模块
295.4学生缴费管理模块34结论43致谢44参考文献45第1章绪论信息管理系统(MIS)
[1]的概念是1961年美国人J.D.GALLAGHER首先提出来的,是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科,研究的是企业中信息管理活动的全过程,以便有效的管理信息,提供各类管理决策信息,辅助企业进行现代化管理信息管理系统,具备数据处理、计划、控制、预测和辅助决策功能,用统一标准处理和提供信息,排除使用前后矛盾的不完整的数据完整、及时提供在管理及决策中需要的数据向各级管理机构提供不同详细程度的报告,缩短分析和解释时间用最低的费用最短的时间提供尽可能精确、可靠的信息国外状况:据统计,目前,美国在财务会计上占有90%的工作由计算机完成;人事管理中80-100%的信息处理由计算机完成;计划管理是80—90%;在计算机应用发展较快的国家中,计算机应用于经济管理的占80%;用于科技计算的占8%,用于生产过程控制的占12%;由此可以看出,信息管理是计算机应用的主要领域国内状况:由于种种原因,我国的信息资源建设水平远远落后于信息基础设施的建设的水平长期以来,我国信息资源的开发管理未能与信息资源的增长同步进行我国有丰富的原始信息资源,但在此基础上再生的二次信息系统和数据库产业的规模和市场占有率、使用率相当低,大量的有价值的信息未能进一步加工成商品使其增值我国的计算机应用要比西方国家落后十几年,人事管理等信息系统的开发应用是从1973年开始的,83年以后才开始了大量的实际的开发和研究工作因此,信息资源的开发和利用已被确立为国民经济信息的核心内容,信息数字化,传输的网络化是缩小发展中国家与发达国家差距的捷径,世界信息化浪潮正以不可阻挡之势席卷全球时,我国要迎头赶上,就必须利用现有的信息基础设施,重点开发和推广应用于各类科技经济等数据库和网络资源服务系统,以便取得巨大的社会效益和经济效益由于物业管理在社会大生产中占用重要地位,其计算机化在发达国家已达到95%以上,而我国在全国范围内推广计算机在管理中的应用,是在80年代初开始的起步虽晚,但发展快特别是微型计算机的出现和普及,为信息处理提供了物美价廉的手段,对于推动我国管理信息处理现代化起到了重要作用学生信息管理系统是用于校园内部管理学生基本信息的一个不可缺少的部分,它的功能对于校内学生信息管理部门和管理者,组织和管理学生信息至关重要,所以学生信息管理系统应该能为管理者提供有效和快捷的管理方式一直以来学校内部使用传统的人工录入学生信息的管理方式,这种方式存在着许多缺点,如效率低、不准确,而且时间长了,对于查找、更新和维护这些学生信息都带来一定的困难随着科学技术的不断提高计算机科学日渐成熟其强大的功能已被人们深刻认识它已进入人类社会的各个领域并发挥着越来越重要的作用作为计算机应用的一部分使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点例如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等这些优点能够极大地提高学生信息管理部门的工作效率,也是校园的科学化、正规化管理信息与时代接轨的重要条件因此,开发这样一套管理软件成为很有必要的事情系统设计采用功能模块化设计,结合当前的数据库技术,使得管理系统虽然功能强大,但操作并不复杂,这正迎合了软件发展的需求,即简单易用使得信息管理者从以前的繁忙工作中解脱出来,轻松完成学生信息的管理
2.系统概述
2.1现有系统分析1.工作负荷由于数据量越来越大,现有的系统已明显不能适应目前的庞大数据量,系统工作负荷过大2.费用支出由于现有系统的工作负荷严重超载,在现有系统上投入的人力,设备,空间,材料,等等与其他的一系列支持性服务越来越大,导致开发费用支出巨大,严重影响系统的可用性,急需改进3.人员和设备鉴于原有系统的技术性含量比较低,故不需要多少高技术人员的操作,只是由于数据量的日益扩大,所需要的操作人员数量不断增大这一点已不再适应目前信息化时代的步伐设备的科技含量也比较低,没有达到大量的计算机普及程度4.局限性经过严谨的分析,可知原有的系统存在很大的局限性,比如技术的过于陈旧,人员工作负荷大,系统维护及费用支出巨大,人员与设备技术含量低等等一系列缺点,所有这些都明确了需要一个新的适应新的信息化时代的高科技的系统所以开发这样一个系统还是很有必要的
2.2可行性分析考虑到项目时间、资源等因素,在实际开发该计算机系统时,常常要为资源不足和交付日期难以完成而苦恼,因而需要慎重地尽可能早地估价研制课题的可行性可行性研究包括经济可行性、技术可行性、法律可行性、操作可行性等等1经济可行性分析经济可行性分析中最重要的内容之一是成本--效益分析对于一个基于计算机系统的研制项目要在经济方面评价其是否合理,成本--效益分析要估计出系统研制开发的花费并与收益(包括有形的可以用货币计数的及无形的利益)衡量比较作为毕业设计,我们所受到的效益,应该说是收益终生,而花费则寥寥无几,因为学校提供实验室2技术可行性分析就目前使用的开发技术来说系统的功能目标能够达到;利用现有的技术在规定的期限内开发工作基本能够完成3法律可行性分析法律可行性是考虑要开发系统是否存在任何侵犯、妨碍和责任问题,用户操作可行性考虑待开发软件的运行方式在用户组织内是否行得通,现行管理制度、人员素质、操作知识是否可行作为毕业设计所需要的仅仅是人员素质和操作知识的要求4操作可行性分析操作可行性主要是指用户使用的舒适性,因此界面设计时要充分考虑管理人员的习惯,使得操作简单便宜;数据录入迅速、规范、可靠;统计准确,制表灵活,适应力强,容易扩充具有易用性、灵活性、开放性与可视性等,这些可以实现由以上经济、技术、法律、操作四方面的分析可以看出,本系统的开发时机成熟,从多种角度考虑,都是可行的,采用本系统,能够使整个系统内部所有信息的工作简化,提高工作效益由于采用统一的数据信息,使相关资料能够快速地查询所需的数据、资料及其它信息的,使信息快速高效运行
2.3开发工具简介
2.
3.1VisualBasic
6.0简介VisualBasic
6.0是Microsoft公司开发的面向对象程序设计平台,它简单易学,继承了Basic语言的优点,采用窗体截面和事件驱动,深化了程序设计计者对windows环境下程序设计的理解可视化的用户界面设计功能,可以使得程序设计人员从烦琐复杂的界面设计中解脱出来它支持win32下所有的API函数,可以方便的为windows开发程序,而且提供了代码优化技术,使得代码更加简洁还可以用它来开发自己的ActiveX组件VisualBasic
6.0的数据库处理能力也很强大,虽然它不是专门的数据库开发系统,但在数据库设计方面也提供了强大的功能和丰富的工具,可以满足编程人员的需求它提供的DAO、RDO、ADO等多种与数据库相联系的方法并可与SQLServer、Access、Sybase
[2]等多种数据库系统想关联,使之为数据库编程,以及操纵数据库并且支持Web开发
2.
3.2MicrosoftSQL2000简介SQLServer2000是由Microsoft公司开发的关系数据库管理系统区别于FoxPro、Access小型数据库,SQLServer是一个功能完备的数据库管理系统它包括支持开发的引擎、标准的SQL语言、扩展的特性如复制、OLAP
[3]、分析等功能而像存储过程、触发器等特性,也是大型数据库才拥有的SQLServer提供了在服务器系统上运行的服务器软件和在客户端运行的客户端软件,连接客户和服务器计算机的网络软件则由WindowsNT/2000提供SQLServer建立于MicrosoftWindowNT的可伸缩性和可管理性之上,提供了功能强大的客户服务器平台,高性能客户服务器结构的数据库管理系统可以将VisualBasic、VisualFoxPro、VisualC++作为客户端开发工具,而将SQLServer作为存储数据的后台服务器软件本学生信息管理系统可以说是一个综合性的学校学生管理系统,这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生缴费管理系统等多种功能,因而具有较强的实用性和先进性
2.4系统的功能简介本系统主要可以实现以下的管理功能班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等等项目规划学生信息管理系统是一个典型的数据库应用程序由班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等模块组成特规划如下:系统管理模块CTRL+O该模块的主要任务是维护系统的正常运行和安全性设置包括添加用户快捷键CTRL+A、修改密码快捷键CTRL+B、重新登录快捷键CTRL+F1等等班级管理模块(CTRL+P)该模块的功能是实现对全校班级的管理工作,包括班级游览、班级添加、班级查询等,这三个功能模块各自独立,完成学校的全部班级的管理学生档案管理模块(CTRL+T)该模块的主要功能是实现对学生的个人信息的管理工作,包括档案添加、档案浏览、档案查询等功能,从而方便学校管理部门对学校的基本情况的快速查询和了解课程管理模块(CTRL+R)该模块对各个班级的课程进行设置,并可在其中设置各门课程的教材选用情况,方便了学校教材管理部门和教务处的教学管理人员的工作该模块包括基本课程设计和班级课程设置两个模块成绩管理模块(CTRL+F)学校的成绩管理工作是检验学生学习情况的一个主要手段,本模块包括考试类型设置,共有期中考试和期未考试两种类型,还设置了成绩添加、成绩游览、成绩查询等功能模块
2.5系统开发的目标出于本系统是学校学生管理的一个综合性的系统,本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上
3.系统分析
3.1业务流程分析班级管理业务流程图档案管理业务流程图课程管理业务流程图成绩管理业务流程图
3.2数据流程分析
3.
2.1数据流程图由于本系统的数据模块较多,下面仅以学生成绩管理模块为例来进行编制学生成绩管理系统0层数据流程图学生成绩管理系统1层数据流程图
3.3数据存储分析
1、数据模型设计首先来做出学生成绩管理系统的E-R图,分析这个问题的实体,从系统分析可以知道,学生的成绩是由任课教师按照课程给出的,学生、课程、教师组成了这个系统的三个实体
2、再分析三个实体之间的联系首先,这三个实体不是一个统一体,学生成绩与教师没有内在联系,教师必须通过课程实体才能与学生建立联系,因而先不考虑课程与学生这两个实体是多对多联系;一位学生要学习多门课程,一门课程有多位学生共同学习而学习成绩是这两个实体“学生”和“成绩”共有的属性,应填在二者的联系“学习”边因为成绩既不是学生独有的,也不是课程独有的;“学生甲70分”或“英语70分”是不完全的,说“学生甲英语70分”才是正确的,因为70分是学生甲和英语课二者共有的这个E-R图可画成下图学生成绩管理系统中学生与课程的E-R图教师与课程这两个实体之间,是一对多联系;一位教师可以都多门课程,而一门课程对于学生成绩来说只能有一位教师英语、高等数学有多位教师教,但对某个固定的学生来说只能有一位教师其E-R图,如下所示教师与课程的E-R图组合到一起,得到最后的E-R图,有了E-R图,就可以设计数据库下图为数据模型图
4.系统设计
4.1软件模块结构设计
4.
1.1系统方案确定通过对系统的调研与分析,系统主要应完成的功能有班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、系统管理等功能
4.
1.2软件结构设计本系统在执行时,先根据不同的操作人员的需要来进行相应的模块,然后可以输入数据或者进行其它的查询或浏览等操作;总体来说,本系统属于一个事务型管理系统图4-
14.2数据库设计数据库采用了Microsoft推出的SQLServer数据库,使用SQLServer的好处还在于,如果你的系统扩展到Client/Server模式的时候,可以使用Microsoft的数据库服务器软件SQLServer,此时,程序只需要简单的修改一下链接(ADO的数据源)就可以,这样,为程序的平滑扩展提供了非常有力的条件
4.
2.1系统E-R图本系统中所涉及到的主要实体共有8个数据表allkecheng表{课程名称,教材}cj表{学号,学期,类型,课程名称,分数}class表{年级,班级,教室,年制,专业,班主任,备注}classkecheng表{年级,专业,年制,学期,课程名称}jf表{学号,学期,交费,欠费,日期,操作员}kaoshileixing表{类型}use表{usernamepasswordadminreadonlyqx1qx2qx3qx4}xj表{学号,姓名,性别,班级,出生年月,家庭住址,邮政编码,联系电话,入学时间,备注}suefei表{年级,专业,年制,学期,学费}系统各E-R图图4-2课程表E-R图图4-3成绩表E-R图图4-4班级E-R图图4-5班级课程表E-R图图4-6交费表E-R图图4-7学籍E-R图图4-8学费表E-R图
4.
2.2各表的物理结构allkecheng表字段名称类型宽度小数位课程名称文本20教材文本30Cj表字段名称类型宽度小数位学号文本10学期文本50类型文本16课程名称文本20分数单精度型数字自动Class表字段名称类型宽度小数位年级文本16班级文本20教室文本5年制文本8专业文本16班主任文本8备注备注Classkecheng表字段名称类型宽度小数位年级文本16专业文本12年制文本8学期文本50课程名称文本20Jf表字段名称类型宽度小数位学号文本5学期文本50交费货币自动欠费货币自动日期日期/时间操作员文本10Kaosileixing表字段名称类型宽度小数位类型文本10Use表字段名称类型宽度小数位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表字段名称类型宽度小数位学号文本9姓名文本8性别文本2班级文本10出生年月日期/时间家庭住址文本30邮政编码数字(长整型)联系电话数字(长整型)入学时间日期/时间备注备注xuefei表字段名称类型宽度小数位年级文本16专业文本50年制文本20学期文本40学费货币自动
5.系统的实现本部分主要内容为本系统的运行界面以及主要界面的源代码
5.1系统登陆界面本界面的主要功能是为了对系统进行安全性管理,本系统的用户名和密码保存在USE表中,本系统根据不同的用户而设置了不同的权限PrivateSubCommand1_ClickDimmrcAsADODB.Recordsettxtsql=selectusernamefromusewhereusername=TrimText
1.TextSetmrc=ExecuteSQLtxtsqlIfmrc.EOF=TrueThenMsgBox用户名错误!vbExclamation+vbOKOnly警告Text
1.SetFocusText
1.SelStart=0Text
1.SelLength=LenText
1.TextExitSubEndIfusername=mrc.Fields0txtsql2=selectusernamefromusewherepassword=TrimText
2.TextSetmrc=ExecuteSQLtxtsql2Ifmrc.EOF=TrueThenMsgBox密码错误!vbExclamation+vbOKOnly警告Text
2.SetFocusText
2.SelStart=0Text
2.SelLength=LenText
2.TextExitSubEndIftxtsql=selectusernamefromusewhereusername=TrimText
1.Textandpassword=TrimText
2.TextSetmrc=ExecuteSQLtxtsqlIfmrc.EOF=TrueThenMsgBox用户名称和密码不匹配!vbExclamation+vbOKOnly警告ExitSubEndIfMDIForm
1.Showfrmcpass.Text
1.Text=Text
1.TextUnloadMeEndSubPrivateSubCommand2_ClickUnloadMeEndSubPrivateSubForm_LoadEndSubPrivateSubText1_KeyPressKeyAsciiAsIntegerIfKeyAscii=13ThenText
2.SetFocusEndIfEndSubPrivateSubText2_KeyPressKeyAsciiAsIntegerIfKeyAscii=13ThenCommand
1.SetFocusEndIfEndSub
5.2系统主界面本模块是本系统的应用界面,在本界面上集成了本系统的所有功能,共有5个功能菜单和19个子菜单(功能模块),从而实现了本系统从班级管理、档案管理、课程管理、成绩管理等系统的具体功能,同时,在系统管理模块中可以完成对本系统的安全性管理PrivateDeclareFunctionSetWindowPosLibuser32ByValhwndAsLongByValhWndInsertAfterAsLongByValXAsLongByValYAsLongByValcxAsLongByValcyAsLongByValwFlagsAsLongAsLongDimfind1AsIntegerDimliulan1AsIntegerPrivateSubadd_Clickqxstr=Executeqx2Ifqxstr=falseOrqxstr=readonlyThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfForm
1.Showmodi=FalseForm
1.ZOrder0EndSubPrivateSubcjadd_Clickfenshumodi=Falseqxstr=Executeqx4Ifqxstr=falseOrqxstr=readonlyThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIffrmcj
2.Showfrmcj
2.ZOrder0EndSubPrivateSubcjbrowse_Clickqxstr=Executeqx4Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIffrmcj
1.Showfrmcj
1.ZOrder0EndSubPrivateSubclaasfind_Clickqxstr=Executeqx2Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfForm
4.ShowForm
4.ZOrder0i=SetWindowPosForm
4.hwnd-100003EndSubPrivateSubclassapp_Clickqxstr=Executeqx2Ifqxstr=falseOrqxstr=readonlyThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFormclass
1.Showclassmodi=FalseFormclass
1.classloadFormclass
1.ZOrder0EndSubPublicSubclabrowsetxtsql=select*fromclassFormclass
2.ZOrder0Formclass
2.Caption=浏览班级设置Formclass
2.classshowtitleFormclass
2.classshowdataEndSubPrivateSubclassbrowse_Clickqxstr=Executeqx2Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFormclass
2.ShowEndSubPrivateSubclassfind_Clickqxstr=Executeqx2Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFormclass
3.ShowFormclass
3.ZOrder0EndSubPrivateSubfind_ClickEndSubPrivateSubclasskecheng_Clickqxstr=Executeqx4Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFrmclasskecheng
1.ShowFrmclasskecheng
1.ZOrderEndSubPrivateSubdenglu2_ClickFrmdenlu.ShowUnloadMeEndSubPrivateSubjiaofeiadd_Clickqxstr=Executeqx3Ifqxstr=falseOrqxstr=readonlyThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFrmjf
1.ShowFrmjf
1.ZOrder0EndSubPrivateSubjiaofeibrowse_Clickqxstr=Executeqx3Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIffrmjf
2.Showfrmjf
2.ZOrder0EndSubPrivateSubjiaofeifind_Clickqxstr=Executeqx3Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFrmjf
4.ShowEndSubPrivateSubjibenkecheng_Clickqxstr=Executeqx4Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIffrmjiben.Showfrmjiben.ZOrder0EndSubPrivateSubleixing_Clickqxstr=Executeqx4Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFrmleixing.ShowFrmleixing.ZOrder0EndSubPrivateSubliulan_Clickqxstr=Executeqx2Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIffind=FalseForm
3.ShowEndSubPrivateSubMDIForm_Loadusername=0001DataEnv
1.Connection
1.ConnectionString=connstringStatusBar
1.Panels
2.Text=NowStatusBar
1.Panels
3.Text=当前操作员usernameDimaaAsStringSelectCaseExecuteqx1Caseadminaa=超级管理员Casereadonlyaa=只读管理员CaseElseaa=普通管理员EndSelectStatusBar
1.Panels
4.Text=状态aaEndSubPrivateSubuseradd_Clickqxstr=Executeqx1Ifqxstr=falseOrqxstr=readonlyThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIffrmuser
1.Showfrmuser
1.ZOrder0EndSubPrivateSubusermodi_Clickqxstr=Executeqx1Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIffrmcpass.ShowEndSubPrivateSubxuefeiadd_Clickqxstr=Executeqx3Ifqxstr=falseOrqxstr=readonlyThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfxuefeimodi=FalseDimiAsIntegerFori=0To3frmxuefei
1.Combo1i.Enabled=TrueNextiMe.Caption=添加班级设置Fori=0To3frmxuefei
1.Combo1i.Text=Nextifrmxuefei
1.Text
1.Text=frmxuefei
1.Showfrmxuefei
1.ZOrder0EndSubPublicSubxfbrowsetxtsql=select*fromxuefeiorderby学期desc年级desc专业descFrmxuefei
2.ZOrder0Frmxuefei
2.Caption=浏览学费设置Frmxuefei
2.xuefeishowtitleFrmxuefei
2.xuefeishowdataEndSubPrivateSubxuefeibrowse_Clickqxstr=Executeqx3Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFrmxuefei
2.ShowEndSubPrivateSubxuefeifind_Clickqxstr=Executeqx3Ifqxstr=falseThenss=MsgBox对不起,你没有管理本功能的权限,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfFrmxuefei
3.ShowFrmxuefei
3.ZOrder0i=SetWindowPosFrmxuefei
3.hwnd-100003EndSub
5.3用户管理模块本模块是本系统的安全性设置模块,根据学校不同部门以及不同使用人员对本系统的要求和需要,从而实行了分级管理,对用户的权限和类别进行了分类管理PrivateSubCommand1_ClickIfTrimText
10.Text=ThenMsgBox用户名不能为空!vbExclamation+vbOKOnly警告Text
10.SetFocusExitSubEndIfIfTrimText
11.Text=ThenMsgBox密码不能为空!vbExclamation+vbOKOnly警告Text
11.SetFocusExitSubEndIfIfTrimText
12.Text=ThenMsgBox确认密码不能为空!vbExclamation+vbOKOnly警告Text
12.SetFocusExitSubEndIfIfTrimText
11.TextTrimText
12.TextThenMsgBox确认密码不正确!vbExclamation+vbOKOnly警告Text
12.SetFocusExitSubEndIfDimaaAsIntegeraa=0IfOption
12.Value=TrueThenFori=0To3IfCheck1i.Value=1Thenaa=1ExitForEndIfNextiIfaa=0ThenMsgBox普通用户至少要有一项权限!vbExclamation+vbOKOnly警告ExitSubEndIfEndIfDimmrcAsADODB.Recordsettxtsql=select*fromusewhereusername=TrimText
10.TextSetmrc=ExecuteSQLtxtsqlIfmrc.EOF=FalseThenMsgBox已存在该用户!vbExclamation+vbOKOnly警告Text
10.SetFocusText
10.SelStart=0Text
10.SelLength=LenText
10.TextExitSubEndIftxtsql=select*fromuseSetmrc=ExecuteSQLtxtsqlmrc.AddNewmrc.Fields0=TrimText
10.Textmrc.Fields1=TrimText
11.TextFori=0To2IfOption1i.Value=TrueThenSelectCaseiCase0mrc.Fieldsadmin=yCase1mrc.Fieldsreadonly=yCase2Forj=0To3IfCheck1j.Value=1ThenSelectCasejCase0mrc.Fieldsqx1=yCase1mrc.Fieldsqx2=yCase2mrc.Fieldsqx3=yCase3mrc.Fieldsqx4=yEndSelectEndIfNextjEndSelectEndIfNextimrc.UpdateMsgBox用户添加成功!vbExclamation+vbOKOnly警告Text
10.Text=Text
11.Text=Text
12.Text=EndSubPrivateSubCommand2_ClickUnloadMeEndSubPrivateSubForm_LoadOption
12.Value=TrueEndSubPrivateSubForm_ResizeText
10.SetFocusEndSubPrivateSubOption1_ClickIndexAsIntegerIfIndex2ThenFori=0To3Check1i.Enabled=FalseNextiElseFori=0To3Check1i.Enabled=TrueNextiEndIfEndSub5.4学生缴费管理模块因为本系统中有些功能模块具有相似之处,因此在本文只用此模块进行一个简单的说明其它的相似模块的代码可能参阅本模块的设计思路PublicprintstrAsStringPrivateSubCommand1_ClickDimdbSourceAsDatabaseSetdbSource=OpenDatabasexs.mdbdbSource.ExecuteSELECT*INto班级一览表IN学生管理一览表.xlsEXCEL
5.0;FROMclassz=MsgBox成功!vbOKOnly查询EndSubPublicSubclassshowtitleDimiAsIntegerMSF
1.ClearWithMSF
1.Cols=
8.TextMatrix01=年级.TextMatrix02=班级.TextMatrix03=教室.TextMatrix04=年制.TextMatrix05=专业.TextMatrix06=班主任.TextMatrix07=备注.ColWidth0=
100.ColWidth1=
1300.ColWidth2=
1200.ColWidth3=
800.ColWidth4=
800.ColWidth5=
800.ColWidth6=
800.ColWidth7=
5000.FixedRows=1Fori=1To
7.ColAlignmenti=0Nexti.FillStyle=flexFillSingle.Col=
0.Row=
0.RowSel=
1.ColSel=.Cols-
1.CellAlignment=
4.Row=1EndWithEndSubPublicSubclassshowdataDimjAsIntegerDimiAsIntegerDimmrc1AsADODB.RecordsetSetmrc1=ExecuteSQLTrimtxtsqlIfmrc
1.EOF=FalseThenmrc
1.MoveFirstWithMSF
1.Rows=1DoWhileNotmrc
1.EOF.Rows=.Rows+1Fori=1Tomrc
1.Fields.Count.TextMatrix.Rows-1i=mrc
1.Fieldsi-1Nextimrc
1.MoveNextLoopmrc
1.CloseEndWithElseIfclassfind=TrueThenFormclass
2.HideFormclass
3.Showzzz=MsgBox对不起,没有此班级的档案记录!vbOKOnly查询Formclass
3.ZOrder0Formclass
3.Text
10.SetFocusEndIfEndIfEndSubPrivateSubcmddel_Clickqxstr=Executeqx2Ifqxstr=readonlyThenss=MsgBox对不起,你是只读用户不能删除记录,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfDimmrcAsADODB.RecordsetDimmsgtextAsStringDimintcountAsIntegerIfTrimMe.MSF
1.TextMatrixMSF
1.Row1=Thensssss=MsgBox你还没有选择记录!vbOKOnly+vbExclamation警告ExitSubEndIfIfMsgBox确定要删除班级为TrimMe.MSF
1.TextMatrixMSF
1.Row2的记录吗?Chr13Chr10继续会导致该班级在成绩和学费记录的数据丢失,继续吗?vbOKCancel+vbExclamation警告=vbOKThentxtsql=delete*fromxjwhere班级=TrimMe.MSF
1.TextMatrixMSF
1.Row2Setmrc=ExecuteSQLtxtsqltxtsql=delete*fromjfwhere学号inselectfromxjwhere班级=TrimMe.MSF
1.TextMatrixMSF
1.Row2Setmrc=ExecuteSQLtxtsql删除在交费表中的所有该班级的记录txtsql=delete*fromcjwhere学号inselectfromxjwhere班级=TrimMe.MSF
1.TextMatrixMSF
1.Row2Setmrc=ExecuteSQLtxtsql删除在成绩表中的所有该班级的记录txtsql=delete*fromclasswhere班级=TrimMe.MSF
1.TextMatrixMSF
1.Row2Setmrc=ExecuteSQLtxtsql删除该班级的记录EndIfzxh=MsgBox记录成功删除!vbOKOnly查询txtsql=select*fromclassclassshowtitleclassshowdataCallForm_ActivateEndSubPrivateSubcmdfind_ClickFormclass
3.ShowEndSubPrivateSubcmdmodi_ClickIfTrimMe.MSF
1.TextMatrixMSF
1.Row1=Thensssss=MsgBox你还没有选择记录!vbOKOnly+vbExclamation警告ExitSubElseqxstr=Executeqx2Ifqxstr=readonlyThenss=MsgBox对不起,你是只读用户不能修改记录,请与管理员联系!vbInformation+vbOKOnly警告ExitSubEndIfclassmodi=TrueFormclass
1.ShowFormclass
1.classloadFormclass
1.ZOrder0CallForm_ActivateEndIfEndSubPrivateSubcmdprint_ClickIfTrimprintstr=Thensssss=MsgBox没有当前记录!vbOKOnly+vbExclamation警告ExitSubEndIfIfDataEnv
1.rsCommand
2.State=adStateOpenThenDataEnv
1.rsCommand
2.CloseEndIfDataEnv
1.rsCommand
2.OpenprintstrIfDataEnv
1.rsCommand
2.EOF=TrueThensssss=MsgBox没有当前记录!vbOKOnly+vbExclamation警告ExitSubEndIfDataReportclass
2.Show1EndSubPrivateSubcmdprintall_ClickIfDataEnv
1.rsCommand
2.State=adStateOpenThenDataEnv
1.rsCommand
2.CloseEndIfDataEnv
1.rsCommand
2.Openselect*fromclassIfDataEnv
1.rsCommand
2.EOF=TrueThensssss=MsgBox没有当前记录!vbOKOnly+vbExclamation警告ExitSubEndIfDataReportclass
2.Show1EndSubPrivateSubForm_ActivateIfclassfind=TrueThenFormclass
3.ZOrder0EndIfIfclassfind=TrueThenExitSubElseIfclassmodi=TrueThenclassshowdataTreeView1_DblClickclassmodi=FalseElseclasstreeEndIfIfclassfind=TrueThenExitSubElseMDIForm
1.clabrowseEndIfEndSubPublicSubclasstreeTreeView
1.Nodes.ClearDimnodexAsNodeDimmrcAsADODB.RecordsetDimmrc1AsADODB.RecordsetDimstrAsStringDimaAsStringa=年级TreeView
1.LineStyle=tvwRootLinesstr=selectdistinct年级fromclassorderby年级Setmrc=ExecuteSQLstrstr=selectdistinct年级班级fromclassorderby年级班级Setmrc1=ExecuteSQLstrmrc.MoveFirstDoUntilmrc.EOFmrc
1.MoveFirstSetnodex=TreeView
1.Nodes.addamrc.Fields011DoWhileNotmrc
1.EOFIfmrc
1.Fields0=mrc.Fields0ThenSetnodex=TreeView
1.Nodes.addatvwChildmrc
1.Fields122EndIfmrc
1.MoveNextLoopa=a1mrc.MoveNextLoopmrc
1.Closemrc.CloseSetmrc=NothingSetmrc1=NothingEndSubPrivateSubTreeView1_DblClickOnErrorGoTossIfTreeView
1.SelectedItem.Index=0ThenMSF
1.ClearExitSubEndIftxtsql=TreeView
1.Nodes.ItemTreeView
1.SelectedItem.Indextxtsql=select*fromclasswhere年级=Trimtxtsqlor班级=Trimtxtsqlorderby年级班级printstr=txtsqlMe.Caption=浏览班级Me.classshowtitleMe.classshowdataExitSubss:MSF
1.ClearEndSub结论在本系统的开发过程中,由于本人是初次开发软件,在知识、经验方面都存在着不足另外,在整个开发的过程中,时间也比较仓促因此,该系统必然会存在一些缺陷和不足因为对学生管理的整个流程不够熟悉,在需求分析时未能做到完全满足用户的需求虽然网络在学生管理系统中的应用不是很多,但是未来的发展方向,在本次开发过程由于硬件的限制,未能实现网络功能,因此在以后的系统更新过程中可能会造成一些不必要的数据损失尽管本管理系统存在着很多不足,但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的相信本学生管理系统是一套学校在日常管理中必不可少的管理软件,通过开发这个系统,我掌握了的项本过程,了解了的基本知识巩固了我对VisualBasic
6.0的学习,但在这次毕业设计中的最大收获并不是掌握这几门开发工具的应用,而是学会了设计系统的思维方法,以及与同学们之间相互帮助的精神致谢在论文即将完成之际,回顾紧张但又充实的学习班和开发过程,本人在此向所有关心我的及帮助我的老师和同学们致以最真诚的感谢在本次毕业设计中,我从指导老师--------阎老师,身上学到了很多东西她认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅她无论在理论上还是在实践中,都给与我很大的帮助,使我得到很大的提高,这对于我以后的工作和学习都有一种巨大的帮助,在此感谢她耐心的辅导在撰写论文阶段,阎老师几次审阅我们的论文,提出了许多宝贵意见,没有她的指导,我们就不能较好的完成课题设计的任务另外,我还要感谢在这几年来对我有所教导的老师,他们孜孜不倦的教诲不但让我学到了很多知识,而且让我掌握了学习的方法,更教会了我做人处事的道理,在此表示感谢同时,在系统开发过程中还有同组的同学也给了我不少帮助,这里一并表示感谢参考文献
[1]周佩德.《数据库原理及应用》.电子工业出版社
[2]刘炳文等,VISUALBASIC程序设计——数据库篇,1999
[3]李光明.《VisualBasic
6.0编程实例大制作》.冶金工业出版社
[4]刘炳文,精通VISUALBASIC
6.0入门与提高,人民邮电出版社
[5]黄淼云.《VB
6.0办公自动化编程》.国防工业出版社
[6]王要武,管理系统,电子工业出版社,2003
[7]李红等编著,管理信息系统开发与应用,电子工业出版社,2003
[8]周之英缟著,现代软件工程,科学出版社,2003
[9]康博工作室,张红军,王红等缟著《VisualBasic
6.0中文版高级应用与开发指南》,人民邮电出版社,2001年4月第一版
[10]林立军,程斌,翁迪恩缟著《VisualBasic
6.0数据库开发指南》,西安电子科技大学出版社,2000年2月第一版
[11]张宏林,孔艳,王哲等编著《按实例学VisualBasic
6.0北京,人民邮电出版社,2000
[12]宋伟,吴建国等编著《中文VisualBasic
6.0编程基础》,北京,清华大学出版社
[13][美]JeffreyP.McManus著赵学锁,龚波,李志,曹天伟等译《VisualBasic
6.0数据库存访问技术》,2000年3月第一版年制专业年级学费表入学时间输出档案档案学生教务处班主任输入计算机教务处输出班级班级学生教务处班主任输入计算机教务处联系电话E-Mail码联系电话家庭住址输出课程课程学生教务处教师输入计算机教务处输出班级班级学生教务处班主任输入计算机教务处输出教师成绩学生教务处教师输入计算机教务处统计分析查询学生成绩学生情况教务处学生教师教师教师学生成绩管理系统学籍管理部门管理者
3.0成绩管理
4.0统计分析查询者教务处
2.0课程管理管理部门D3成绩课程D2学生D1教师
1.0学生管理mn学习课程学生成绩教师ln课程教学数据模型实体模型数据库学习教师学生课程lnmm学习学生课程学习教师欠费交费学期学号交费表日期课程名称学期年制专业年级班级课程表备注班主任专业年制教室班级年级班级分数课程名称类型出生年月班级性别姓名学号学籍备注操作员学期学号成绩表教材课程名称课程表课程管理交费管理班级管理档案管理处理中心接受数据成绩管理学费学期打印报表PAGEI。