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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序设计学生信息管理系统说明

VB程序设计学生信息管理系统说明.doc

VB程序设计学生信息管理系统说明

何心实
2017-10-17 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序设计学生信息管理系统说明doc》,可适用于综合领域

VB程序设计学生信息管理系统说明广西城市职业学院毕业统考学年第二学期级毕业广西城市职业学院统考VB程序设计统考作品《VB程序设计》课程设计说明书学生信息管理系统专业:计算机应用与技术班级:计应班学号:xxxxxxxxxxxxx班姓名:xxx日期:广西城市职业学院毕业统考第章系统概述系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、系统等多种功能因而具有较强的实用性和先进性。系统及需求分析系统需求通过调查,要求系统需要有以下功能:由于操作人员的计算机知识普遍较差,要求有良好的人机界面由于该系统的使用对象多,要求有较好的权限管理原始数据修改简单方便,支持多条件修改方便的数据查询支持多条件查询在相应的权限下删除数据方便简单数据稳定性好数据计算自动完成尽量减少人工干预可行性分析()对象运用可行性由于本系统管理的对象单一,都是在校学生且每个数据内容具有较强的关联性涉及的计算过程不是很复杂。因此比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器在存储量、速度方面都能满足数据库运行的要求。()社会与经济可行性利用学生信息管理系统实现了无纸化办公提高效率的同时还保护了环境。本来大量的计算、数据统计工作需要几天、甚至一个月完成的工作广西城市职业学院毕业统考可以在几个小时最多几天内完成大量节省了人力资本。学生信息管理系统同时也给老师和学生带来了极大的方便。老师可以将课程安排第一时间录入到系统。学生也可以第一时间登录到该系统查询自己本学期课程安排和考试方式大大提高了时间成本。系统设计的背景本系统的设计是在Windows中文版操作系统环境下使用VisualBasic中文版开发成功的。数据库是MIS中的重要支持技术在MIS开发过程中如何选择数据库管理是一个重要的问题目前数据库产品较多每种产品都具有各自的特点和适用范围因此在选择数据库时应考虑数据库应用的特点及适用范围本系统选用的数据库语言介绍如下:VisualBasic语言VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计可用于开发Windows环境下的种类应用程序。它简单易学、效率高且功能强大可以与Windows的专业开发工具SDK相媲美而且程序开发人员不必具有CC编程基础。在VisualBasic环境下利用事件驱动的编程机制、新颖易用的可视化设计工具使用Windows内部的应用程序接口(API)函数以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说VisualBasic具有以下特点:可视化编程:用传统程序设计语言设计程序时都是通过编写程序代码来设计用户界面在设计过程中看不到界面的实际显示效果必须编译后运行程序才能观察。如果对界面的效果不满意还要回到程序中修改。有时候这种编程编译修改的操作可能要反复多次大大影响了软件开发效率。VisualBasic提供了可视化设计工具把Windows界面设计的复杂性“封装”起来开发人员不必为界面设计而编写大量程序代码。只需要按设计要求广西城市职业学院毕业统考的屏幕布局用系统提供的工具在屏幕上画出各种“部件”即图形对象并设置这些图形对象的属性。VisualBasic自动产生界面设计代码程序设计人员只需要编写实现程序功能的那部分代码从而可以大大提高程序设计的效率。面向对象的程序设计版以后的VisualBasic支持面向对象的程序设计但它与一般的面向对象的程序设计语言(C)不完全相同。在一般的面向对象程序设计语言中对象由程序代码和数据组成是抽象的概念而VisualBasic则是应用面向对象的程序设计方法(OOP)把程序和数据封装起来作为一个对象并为每个对象赋予应有的属性使对象成为实在的东西。在设计对象时不必编写建立和描述每个对象的程序代码而是用工具画在界面上VisualBasic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上都是可视的。结构化程序设计语言VisualBasic是在BASIC语言的基础上发展起来的具有高级程序设计语言的语句结构接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易懂其编辑器支持彩色代码可自动进行语法错误检查同时具有功能强大且使用灵活的调试器和编译器。VisualBasic是解释型语言在输入代码的同时解释系统将高级语言分解翻译成计算机可以识别的机器指令并判断每个语句的语法错误。在设计VisualBasic程序的过程中随时可以运行程序而在整个程序设计好之后可以编译生成可执行文件(EXE)脱离VisualBasic环境直接在Windows环境下运行事件驱动编程机制VisualBasic通过事件来执行对象的操作。一个对象可能会产生多个事件每个事件都可以通过一段程序来响应。例如命令按钮是一个对象广西城市职业学院毕业统考当用户单击该按钮时将产生一个“单击“(CLICK)事件而在产生该事件时将执行一段程序用来实现指定的操作。在用VisualBasic设计大型应用软件时不必建立具有明显开始和结束的程序而是编写若干个微小的子程序即过程。这些过程分别面向不同的对象由用户操作引发某个事件来驱动完成某种特定的功能或者由事件驱动程序调用通用过程来执行指定的操作这样可以方便编程人员提高效率。访问数据库VisualBasic具有强大的数据库管理功能利用数据控件和数据库管理窗口可以直接建立或处理MicrosoftAccess格式的数据库并提供了强大的数据存储和检索功能。同时VisualBasic还能直接编辑和访问其他外部数据库如dBASEParadox等这些数据库格式都可以用VisualBasic编辑和处理。FoxProVisualBasic提供开放式数据连接即ODBC功能可通过直接访问或建立连接的方式使用并操作后台大型网络数据库如SQLServerOracle等。在应用程序中可以使用结构化查询语言SQL数据标准直接访问服务器上的数据库并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术为单机上运行的数据库提供了SQL网络接口以便在分布式环境中快速而有效地实现客户服务器(clientserver)方案。动态数据交换(DDE)利用动态数据交换(DynamicDataExchange)技术可以把一种应用程序中的数据动态地链接到另一种应用程序中使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时可以自动更新链接的数据。VisualBasic提供了动态数据交换的编程技术可以在应用程序中与其他Windows应用程序建立动态数据交换在不同的应用程序之间进行通信。广西城市职业学院毕业统考对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)将不同的对象链接(link)起来再嵌入(embed)某个应用程序中从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略它把多个应用程序合为一体将每个应用程序看做是一个对象进行链接和嵌入是一种应用程序一体化的技术。利用OLE技术可以方便地建立复合式文档(compounddocument)这种文档由来自多个不同应用程序的对象组成文档中的每个对象都与原来的应用程序相联系并可执行与原来应用程序完全相同的操作。动态链接库(DLL)VisualBasic是一种高级程序设计语言不具备低级语言的功能对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将CC或汇编语言编写的程序加入到VisualBasic应用程序中可以像调用内部函数一样调用其他语言编写的函数。此外通过动态链接库还可以调用Windows应用程序接口(API)函数实现SDK所具有的功能。系统的功能简介本系统主要可以实现以下的管理功能:班级管理、学生档案管理、课程管理、成绩管理等等。项目规划学生信息管理系统是一个典型的数据库应用程序,由班级管理、学生档案管理、课程管理、成绩管理等模块组成,特规划如下:广西城市职业学院毕业统考系统管理模块(CTRLO)该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户(快捷键:CTRLA)、重新登录(快捷键:CTRLF)。班级管理模块(CTRLP):该模块的功能是实现对全校班级的管理工作包括:班级游览、班级添加、班级查询等这三个功能模块各自独立完成学校的全部班级的管理。学生档案管理模块(CTRLT):该模块的主要功能是实现对学生的个人信息的管理工作包括档案添加、档案浏览、档案查询等功能从而方便学校管理部门对学校的基本情况的快速查询和了解。课程管理模块(CTRLR):该模块对各个班级的课程进行设置并可在其中设置各门课程的教材选用情况方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设计和班级课程设置两个模块。成绩管理模块(CTRLF):学校的成绩管理工作是检验学生学习情况的一个主要手段本模块包括考试类型设置共有期中考试和期未考试两种类型还设置了成绩添加、成绩游览功能模块。系统开发的目标出于本系统是学校学生管理的一个综合性的系统本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。广西城市职业学院毕业统考系统分析第章系统流程在用户启动应用程序时首先进入登陆界面进行用户的身份验证。如果用户通过身份验证系统将根据用户的不同级别分别引导用户进入不同的界面超级管理员和老师可进入各自的管理界面进行操作和查询而学生用户则只能通过输入姓名、学号来查询自己的信息。数据存储分析:实体联系图、数据模型设计。首先来做出学生成绩管理系统的ER图分析这个问题的实体从系统分析可以知道学生的成绩是由任课教师按照课程给出的学生、课程、教师组成了这个系统的三个实体。、再分析三个实体之间的联系。首先这三个实体不是一个统一体学生成绩与教师没有内在联系教师必须通过课程实体才能与学生建立联广西城市职业学院毕业统考系因而先不考虑。课程与学生这两个实体是多对多联系一位学生要学习多门课程一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性应填在二者的联系“学习”边。因为成绩既不是学生独有的也不是课程独有的“学生甲分”或“英语分”是不完全的说“学生甲英语分”才是正确的因为分是学生甲和英语课二者共有的。这个ER图可画成下图。学生课程成绩学习学生成绩管理系统中学生与课程的ER图教师与课程这两个实体之间是一对多联系一位教师可以都多门课程而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教但对某个固定的学生来说只能有一位教师)。其ER图如下所示。教师课程教学教师与课程的ER图组合到一起得到最后的ER图有了ER图广西城市职业学院毕业统考就可以设计数据库。下图为最后的er图。广西城市职业学院毕业统考第章系统设计软件模块结构设计((系统方案确定通过对系统的调研与分析系统主要应完成的功能有:班级管理、学生成绩管理、课程管理、成绩管理、系统管理等功能。((软件结构设计本系统在执行时先根据不同的操作人员的需要来进行相应的模块然后可以输入数据或者进行其它的查询或浏览等操作总体来说本系统属于(数据库设计((Acess数据库简介数据库是有结构的数据集合,它与一般的数据文件不同(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。MicrosoftAccess是一种关系式数据库关系式数据库由一系列表组成表又由一系列行和列组成每一行是一个记录每一列是一个字段每个字段有一个字段名字段名在一个表中不能重复。表与表之间可以建立关系(或称关联连接)以便查询相关联的信息。Access数据库以文件形式保存文件的扩展名是MDB。广西城市职业学院毕业统考Access的种对象Access数据库由六种对象组成它们是表、查询、窗体、报表、宏和模块。表(Table)表是数据库的基本对象是创建其他种对象的基础。表由记录组成记录由字段组成表用来存贮数据库的数据故又称数据表。查询(Query)查询可以按索引快速查找到需要的记录按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form)窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的与Access以前的版本比较Access新增了许多功能字段类型增加了OLE对象和超级链接特别是与Internet的融合在数据库中可以直接链接到指定的Web页面或网络文件也可以把Web页面上的表格导入到数据库。Access可以方便地利用各种数据源包括dBASE,FoxBase,FoxPro,Excel,Word等。Access增加了数据库访问的安全机制可对表一级设置访问许可权。Access还可以方便地利用FoxPro数据库、Excel电子表格的数据还可以和Word混合使用打印通用信函或信封。本次数据库采用了Microsoft推出的Access数据库能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处广西城市职业学院毕业统考还在于如果你的系统扩展到ClientServer模式的时候可以使用Microsoft的数据库服务器软件SQLServer此时程序只需要简单的修改一下链接(ADO的数据源)就可以这样为程序的平滑扩展提供了非常有力的条件。建立数据库使用VB所提供的“可视化数据管理器”建立数据库以及其中的数据表。”菜单下的“可视化数据a在VB集成环境中启动数据管理器:单击“外接程序管理器”命令打开可视化数据管理器“VisData”窗口。b选择“文件”菜单中的“新建”项在“新建”子菜单中选择“MicrosoftAccess”子菜单中“VersionMDB”在创建数据库对框中选择保存数据库的路径和库文件名(XS)后保存。本系统中所涉及到的主要实体共有七个数据表:allkecheng表:{课程名称教材}cj表:{学号学期类型课程名称分数}{年级班级教室年制专业班主任备注}class表:classkecheng表:{年级专业年制学期课程名称}kaoshileixing表:{类型}use表:{username,password,admin,readonly,qx,qx,qx,qx}xj表:{学号姓名性别班级出生年月家庭住址邮政编码联系电话入学时间备注}广西城市职业学院毕业统考广西城市职业学院毕业统考广西城市职业学院毕业统考系统的功能第章本部分主要TextSetFocusTextSelStart=TextSelLength=Len(TextText)ExitSub广西城市职业学院毕业统考EndIfusername=mrcFields()txtsql=selectusernamefromusewherepassword=„Trim(TextText)Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenMsgBox密码错误~,vbExclamationvbOKOnly,警告TextSetFocusTextSelStart=TextSelLength=Len(TextText)ExitSubEndIftxtsql=selectusernamefromusewhereusername=„Trim(TextText)andpassword=„Trim(TextText)Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenMsgBox用户名称和密码不匹配~,vbExclamationvbOKOnly,警告ExitSubEndIfMDIFormShowfrmcpassTextText=TextTextUnloadMeEndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormLoad()广西城市职业学院毕业统考EndSubPrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenTextSetFocusEndIfEndSubPrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenCommandSetFocusEndIfEndSub系统管理模块设计“系统管理”模块分为“添加新用户”和“退出”两个子模块。在“工程”菜单中选择“添加窗体”打开“添加窗体”对话框选择添加“窗体”。并将新窗体保存为“frmuser”。进行代码设计代码如下:PrivateSubCommandClick()IfTrim(Text()Text)=Then广西城市职业学院毕业统考MsgBox用户名不能为空~,vbExclamationvbOKOnly,警告Text()SetFocusExitSubEndIfIfTrim(Text()Text)=ThenMsgBox密码不能为空~,vbExclamationvbOKOnly,警告Text()SetFocusExitSubEndIfIfTrim(Text()Text)=ThenMsgBox确认密码不能为空~,vbExclamationvbOKOnly,警告Text()SetFocusExitSubEndIfIfTrim(Text()Text)Trim(Text()Text)ThenMsgBox确认密码不正确~,vbExclamationvbOKOnly,警告Text()SetFocusExitSubEndIfDimaaAsIntegeraa=IfOption()Value=TrueThenFori=ToIfCheck(i)Value=Thenaa=ExitForEndIfNexti广西城市职业学院毕业统考Ifaa=ThenMsgBox普通用户至少要有一项权限~,vbExclamationvbOKOnly,警告ExitSubEndIfEndIfDimmrcAsADODBRecordsettxtsql=select*fromusewhereusername=„Trim(Text()Text)Setmrc=ExecuteSQL(txtsql)IfmrcEOF=FalseThenMsgBox已存在该用户~,vbExclamationvbOKOnly,警告Text()SetFocusText()SelStart=Text()SelLength=Len(Text()Text)ExitSubEndIftxtsql=select*fromuseSetmrc=ExecuteSQL(txtsql)mrcAddNewmrcFields()=Trim(Text()Text)mrcFields()=Trim(Text()Text)Fori=ToIfOption(i)Value=TrueThenSelectCaseiCasemrcFields(admin)=yCase广西城市职业学院毕业统考mrcFields(readonly)=yCaseForj=ToIfCheck(j)Value=ThenSelectCasejCasemrcFields(qx)=yCasemrcFields(qx)=yCasemrcFields(qx)=yEndSelectEndIfNextjEndSelectEndIfNextimrcUpdateMsgBox用户添加成功~,vbExclamationvbOKOnly,Text()Text=Text()Text=Text()Text=EndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormLoad()Option()Value=True警告广西城市职业学院毕业统考EndSubPrivateSubFormResize()Text()SetFocusEndSubPrivateSubOptionClick(IndexAsInteger)IfIndexThenFori=ToCheck(i)Enabled=FalseNextiElseFori=ToCheck(i)Enabled=TrueNextiEndIfEndSub通过代码设计实现了对三种不同权限的新用户的添加管理员具有所有得权限老师在管理员的授权下可以选择系统管理、课程管理与档案管理、课程管理的一种、两种或者全部权限学生则只有浏览的功能。班级管理在完成了系统的登录页面设计、系统主页面系统设计后接下来在总体设计思想的指导下完成系统的其余功能模块的设计。这些子模块作为《学生信息管理系统》的组成部分在很大程度上增强了所开发系统的整体功能。以下主要讲述班级管理这个功能模块的具体设计和实现。班级管理的主要功能是对各院系的班级的基本信息进行管理这些信息包括年级、班级、教室、年制、专业、班主任、备注等。相应的管理操作包括:添加记录、修改记录、删除记录、查询记录以及打印记录。执行查询先输入要进行操作的班级确定后再进行对应的操作。添加操作可直接添加新的班级记录。广西城市职业学院毕业统考添加班级模块设计在“工程”菜单中选择“添加窗体”打开“添加窗体”对话框选择添加“窗体”。并将新窗体保存为“formclass”。添加代码并且进行属性设置。将“Caption”改为“添加班级”并且调整窗口大小。“添加系统”模块的界面如下图所示:浏览班级模块设计在“工程”菜单中选择“添加窗体”打开“添加窗体”对话框选择添加“窗体”。并将新窗体保存为“formclass”。添加代码并且进行属性设置。将“Caption”改为“浏览班级”并且调整窗口大小。“添加系统”模块的界面如下图所示:广西城市职业学院毕业统考通过设计的浏览班级模块可以根据年级对本校的各班级信息进行总体浏览。并且根据需要对班级设置进行修改删除打印。班级查询模块设计”菜单中选择“添加窗体”打开“添加窗体”对话框选择添加“窗体”。在“工程并将新窗体保存为“formclass”。进行属性设置。将“Caption”改为“班级查询”并且调整窗口大小。通过设计此模块可以通过年级、班级、专业对班级设计查询。“添加系统”模块的界面如下图所示:进行代码设计代码如下:PrivateSubCommandClick()广西城市职业学院毕业统考txtsql=IfText()TextThenIftxtsql=Thentxtsql=年级=„Trim(Text()Text)Elsetxtsql=txtsqland年级=„Trim(Text()Text)EndIfEndIfIfText()TextThenIftxtsql=Thentxtsql=班级=„Trim(Text()Text)Elsetxtsql=txtsqland班级=„Trim(Text()Text)EndIfEndIfIfText()TextThenaa=Iftxtsql=Thentxtsql=专业=„Trim(Text()Text)Elsetxtsql=txtsqland专业=„Trim(Text()Text)EndIfEndIfIftxtsql=Thenss=MsgBox(你至少要输入一个条件以上才能查询~,,警告)Text()SetFocusExitSubEndIf广西城市职业学院毕业统考txtsql=select*fromclasswheretxtsqlDimmrcAsADODBRecordsetSetmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenzzz=MsgBox(对不起没有此班级的档案记录~,vbOKOnly,查询)FormclassZOrder()FormclassText()SetFocusExitSubEndIfFormclassprintstr=txtsqlclassfind=TrueFormclassShowFormclassclassshowtitleFormclassclassshowdataFormclassCaption=班级设置查询结果FormclassZOrder()EndSubPrivateSubFormUnload(CancelAsInteger)classfind=FalseEndSub必须同时输入一个条件否则将弹出警告对话框“你至少要输入一个以上条件以上才能查询~”用户可以同时设定一个、两个或者三个条件进行查询。学生档案管理学生档案管理是对全校学生的基本资料进行查询、修改、添加、删除、打印操作。执行查询操作时可以根据学号、姓名、班级、姓名关键字进行查询。可以对查找到的信息进行修改和删除。添加操作可直接添加相应广西城市职业学院毕业统考的学生基本情况。学生信息包括学号、姓名、性别、班级、家庭住址、出生年月、联系电话、入学时间、备注等信息。档案添加模块设计首先明确档案添加的功能是添加对入学的学生进行入学档案登记其中包括姓名、性别、班级、联系电话等信息。在“工程”菜单中选择“添加窗体”打开“添加窗体”对话框选择添加“窗体”。并将新窗体保存为“form”。进行属性设置并且编写代码完成的页面如下图所示:PrivateSubCommandClick()Forj=ToIfText(j)=Thenss=MsgBox(Label(j)Caption不能为空~,vbExclamationvbOKOnly,警告)广西城市职业学院毕业统考Text(j)SetFocusText(j)SelStart=Text(j)SelLength=Len(Text(j)Text)ExitSubEndIfNextDimmrcAsADODBRecordsettxtsql=select*fromxjwhere学号=„Trim(Text()Text)Setmrc=ExecuteSQL(txtsql)Ifmodi=FalseThenIfmrcEOF=FalseThensss=MsgBox(已经存在该学号的记录,学号不能重复~,vbExclamationvbOKOnly,警告)Text()SetFocusText()SelStart=Text()SelLength=Len(Text()Text)mrcCloseExitSubEndIfEndIfIfNotIsDate(Text()Text)Then„判断是否日期格式ssss=MsgBox(应输入日期mmddyy,vbInformationvbOKOnly,警告)Text()SetFocusText()SelStart=Text()SelLength=Len(Text()Text)ExitSub广西城市职业学院毕业统考EndIfIfNotIsDate(Text()Text)Thenssss=MsgBox(应输入日期mmddyy,vbInformationvbOKOnly,警告)Text()SetFocusText()SelStart=Text()SelLength=Len(Text()Text)ExitSubEndIfIfmodi=TrueThentxtsql=updatexjset学号=„Trim(Text()Text),姓名=„Trim(Text()Text),性别=„Trim(Combo()Text),班级=„Trim(Combo()Text),出生年月=#Trim(Text()Text)#,家庭住址=„Trim(Text()Text),邮政编码=„Trim(Text()Text),联系电话=„Trim(Text()Text),入学时间=#Trim(Text()Text)#,备注=„Trim(Text()Text)where学号=„Trim(FormMSFTextMatrix(FormMSFRow,))Setmrc=ExecuteSQL(txtsql)txtsql=updatecjset学号=„Trim(Text()Text)where学号=„Trim(FormMSFTextMatrix(FormMSFRow,))Setmrc=ExecuteSQL(txtsql)txtsql=updatejfset学号=„Trim(Text()Text)where学号=„Trim(FormMSFTextMatrix(FormMSFRow,))„Setmrc=ExecuteSQL(txtsql)UnloadMeExitSubEndIf广西城市职业学院毕业统考txtsql=select*fromxjSetmrc=ExecuteSQL(txtsql)mrcAddNewFori=TomrcFields(i)=Text(i)TextNextimrcFields()=Trim(Text()Text)mrcFields()=Trim(Text()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcUpdateSetmrc=NothingForj=ToText(j)=NextEndSub档案浏览模块设计类似可以进行档案浏览模块设计完成之后的设计见面如下图所示:广西城市职业学院毕业统考其代码如下:PublicSubshowdata()DimjAsIntegerDimiAsIntegerDimmrcAsADODBRecordsetSetmrc=NewADODBRecordsetSetmrc=ExecuteSQL(txtsql)IfmrcEOF=FalseThenmrcMoveFirstWithMSFRows=Row=DoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountTextMatrix(Row,i)=mrcFields(i)NextiRow=RowmrcMoveNextLoopEndWithElseIffind=TrueThenFormHideFormShowzzz=MsgBox(对不起没有此学生的档案记录~,vbOKOnly,询)FormZOrder()查广西城市职业学院毕业统考FormText()SetFocusEndIfEndIfSetmrc=NothingEndSubPublicSubtree()TreeViewNodesClearDimnodexAsNodeDimmrcAsADODBRecordsetDimmrcAsADODBRecordsetDimstrAsStringDimaAsStringa=年级„TreeViewLineStyle=tvwRootLinesstr=selectdistinct年级fromclassorderby年级Setmrc=ExecuteSQL(str)str=selectdistinct年级,班级fromclassorderby年级,班级Setmrc=ExecuteSQL(str)mrcMoveFirstDoUntilmrcEOFmrcMoveFirstSetnodex=TreeViewNodesAdd(,,a,mrcFields(),,)DoWhileNotmrcEOFIfmrcFields()=mrcFields()ThenSetnodex=TreeViewNodesAdd(a,tvwChild,,mrcFields(),,)EndIf广西城市职业学院毕业统考mrcMoveNextLoopa=amrcMoveNextLoopmrcClosemrcCloseSetmrc=NothingSetmrc=NothingEndSubPrivateSubToolbarButtonClick(ByValButtonAsMSComctlLibButton)SelectCaseButtonTagCasefindFormShowCasemodiIfTrim(MeMSFTextMatrix(MSFRow,))=Thensssss=MsgBox(你还没有选择记录~,vbOKOnlyvbExclamation,警告)ExitSubElseqxstr=Executeqx()Ifqxstr=readonlyThenss=MsgBox(对不起你是只读用户不能修改记录请与管理员联系~,vbInformationvbOKOnly,警告)ExitSub广西城市职业学院毕业统考EndIfmodi=TrueFormShowFormZOrderEndIfCasedelDimmrcAsADODBRecordsetDimintcountAsIntegerIfTrim(MeMSFTextMatrix(MSFRow,))=Thensssss=MsgBox(你还没有选择记录~,vbOKOnlyvbExclamation,警告)ElseIfqxstr=readonlyThenss=MsgBox(对不起你是只读用户不能删除记录请与管理员联系~,vbInformationvbOKOnly,警告)ExitSubEndIfIfMsgBox(确定要删除学号为Trim(MeMSFTextMatrix(MSFRow,))的记录吗,Chr()Chr()该操作会导致该学生成绩记录的丢失~确定吗,,vbOKCancelvbExclamation,警告)=vbOKThenintcount=MeMSFRowtxtsql=delete*fromxjwhere学号=„Trim(MeMSFTextMatrix(MSFRow,))Setmrc=ExecuteSQL(txtsql)txtsql=delete*fromjfwhere学号=„Trim(MeMSFTextMatrix(MSFRow,))Setmrc=ExecuteSQL(txtsql)广西城市职业学院毕业统考txtsql=delete*fromcjwhere学号=„Trim(MeMSFTextMatrix(MSFRow,))Setmrc=ExecuteSQL(txtsql)TreeViewDblClickEndIfEndIf„Caseprint„FormShow„FormZOrderEndSelectEndSubPrivateSubTreeViewDblClick()OnErrorGoTossIfTreeViewSelectedItemIndex=ThenMSFClearExitSubEndIftxtsql=TreeViewNodesItem(TreeViewSelectedItemIndex)txtsql=selectxj学号,xj姓名,xj性别,class年级,xj班级,class专业,class年制,xj出生年月,xj家庭住址,xj邮政编码,xj联系电话,xj入学时间,xj备注fromxjinnerjoinclassonxj班级=class班级wherexj班级=„txtsqlor年级=„txtsqlorderbyclass年级,class班级,xj学号printstr=txtsqlMeCaption=浏览学生档案MeshowtitleMeshowdataExitSub广西城市职业学院毕业统考ss:MSFClearEndSub档案查询模块设计档案查询模块的设计可以根据“班级管理”中的班级查询模块的设计来设计和编写。具体的代码如下:PrivateSubCommandClick()DimaaAsIntegertxtsql=IfTrim(Text()Text)Thenaa=Iftxtsql=Thentxtsql=xj学号=„Trim(Text()Text)Elsetxtsql=txtsqlandxj学号=„Trim(Text()Text)EndIfEndIfIfTrim(Text()Text)Then广西城市职业学院毕业统考aa=Iftxtsql=Thentxtsql=xj姓名=„Trim(Text()Text)Elsetxtsql=txtsqlandxj姓名=„Trim(Text()Text)EndIfEndIfIfTrim(Text()Text)Thenaa=Iftxtsql=Thentxtsql=xj班级=„Trim(Text()Text)Elsetxtsql=txtsqlandxj班级=„Trim(Text()Text)EndIfEndIfIfTrim(Text()Text)Thenaa=txtsql=txtsql=xj姓名like„Trim(Text()Text)EndIfIfaa=Thenss=MsgBox(你至少要输入一个条件以上才能查询~,,警告)Text()SetFocusExitSubEndIf广西城市职业学院毕业统考DimstrAsStringstr=select*fromxjwheretxtsqlDimmrcAsADODBRecordsetSetmrc=ExecuteSQL(str)IfmrcEOF=TrueThenzzz=MsgBox(对不起没有此学生的档案记录~,vbOKOnly,查询)FormZOrder()FormText()SetFocusExitSubEndIftxtsql=selectxj学号,xj姓名,xj性别,class年级,xj班级,class专业,class年制,xj出生年月,xj家庭住址,xj邮政编码,xj联系电话,xj入学时间,xj备注fromxjinnerjoinclassonxj班级=class班级wheretxtsqlorderbyclass年级desc,class班级desc,xj学号descFormprintstr=txtsqlfind=TrueFormShow„selectxj学号,xj姓名,xj性别,class年级,xj班级,class专业,class年制,xj出生年月,xj家庭住址,xj邮政编码,xj联系电话,xj入学时间,xj备注fromxjinnerjoinclassonxj班级=class班级wherexj班级=„美术一or年级=„美术一orderbyclass年级desc,class班级desc,xj学号descFormCaption=学生档案查询结果FormshowtitleFormshowdataEndSub广西城市职业学院毕业统考课程管理课程管理的主要功能是对学校所有开设的课程进行设置添加、修改、删除课程名称和相应的教材。将学校开设的基本课程设置好后就可以对选择班级进行班级课程设置添加或者删除该班级开设的课程。课程管理包括基本课程设置、班级课程设置两个模块。基本课程设置模块设计在“工程”菜单中选择“添加窗体”打开“添加窗体”对话框选择添加“窗体”。并将新窗体保存为“frmjiben”。对模块进行总体规划划分成小的区域以及添加按钮。基本课程的设置关系到本系统课程管理能否实现因为它将添加学校所用到的所有课程以及相应的教材。信息量很大因此不能只有添加功能还必须可以对其进行修改、删除等功能。最终的基本课程设置模块设计的界面如下图所示:班级课程设置模块设计进行了学校的基本课程设计之后就要对班级的课程进行设置了。首广西城市职业学院毕业统考先要在学校的众多班级中选择要设置的班级这可以通过几个下拉列表进行选择。所以设计了年级、专业、年制、学期四个下拉列表进行选择需要的班级。然后设计分别指向相反方向的箭头便于进行对选中的班级进行设置。向右的是增加课程向左的是删除课程选择。最后在增加两个按钮一个是确定设置一个是取消设置。总体思想框架有了之后就可以按照蓝图具体设计了。首先在“工程”菜单中选择“添加窗体”打开“添加窗体”对话框选择添加“窗体”。并将新窗体保存为“frmclasskecheng”。在模块建立之后划分成几个模块。添加四个下拉列表并命名。添加两个相反方向的箭头。添加两个按钮并命名。最终班级课程模块设计的界面如下图所示:成绩管理部分设计和班级管理的设计基本上是相同的在这里就不在重复了。至此已完成了窗体部分的详细设计。广西城市职业学院毕业统考第章全文总结在本系统的开发过程中由于本人是初次开发软件在知识、经验方面都存在着不足。另外在整个开发的过程中时间也比较仓促。因此该系统必然会存在一些缺陷和不足。因为对学生管理的整个流程不够熟悉在需求分析时未能做到完全满足用户的需求。虽然网络在学生管理系统中的应用不是很多但是未来的发展方向在本次开发过程由于硬件的限制未能实现网络功能因此在以后的系统更新过程中可能会造成一些不必要的数据损失。尽管本管理系统存在着很多不足但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本学生管理系统是一套学校在日常管理中必不可少的管理软件通过开发这个系统我掌握了的项本过程了解了的基本知识巩固了我对VisualBasic的学习但在这次毕业设计中的最大收获并不是掌握这几门开发工具的应用而是学会了设计系统的思维方法以及与同学们之间相互帮助的精神一、总结在本系统的开发过程中由于本人是初次开发软件在知识、经验方面都存在着不足。另外在整个开发的过程中时间也比较仓促。因此该系统必然会存在一些缺陷和不足。因为对信息管理的整个流程不够熟悉在需求分析时未能做到完全满足用户的需求。。通过开发这个系统了解了的基本知识巩固了我对VisualBasic的学习。最后谢谢老师~

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/40

VB程序设计学生信息管理系统说明

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利