学生信息管理系统1
学生管理信息系统
学生管理信息系统.NET()开发文档开发团队名称：星尘工作室( Star Studio)团队成员：查进旻微电子与固体电子学院2000级林伟通信工程学院2000级唐苏计算机科学与技术学院99级刘冠良光电子信息学院2001级一、软件开发背景：学生信息管理作为学校管理的一个重要方面，其可变因素多，管理方面繁琐复杂，时间跨度大，再加上其固有的基数大，因而形成了巨大的数据量。
以前的人工管理方式以人为方式处理这样大量的数据，不可避免地增加了管理的工作量及复杂程度，使学生处、教务处及各系学生科有关管理人员工作繁复、负担重、压力大。
并且人为方式固有的不严密性常常带来各种工作中的疏漏，使得复杂度更甚，常常让工作人员感到头疼。
为了解决这种状况，以计算机实现管理的科学化、严谨化，我们的技术人员此前也做过不少有益的尝试，但由于缺乏各方面的技术支持及相应条件再加上软件分析的不全面和选用开发平台的不够科学，使得仅有一些小的模块可用性较高，而一直未能建立起完整的管理模块。
当前人工管理工作中存在的问题:目前，学校的学生管理机构仍然以人工管理方式为主，这种人工系统在管理工作中存在很大的弊病。
其一、学生信息量大，管理人员的工作量大，负担重，压力大；且工作繁复，复杂程度高，使管理人员颇感头疼；其二、人工处理方式由于其固有的不严密性，造成数据处理中的错、漏现象不可避免，数据缺乏正确性，而且增大了工作难度；其三、由于信息处理量大，信息流动不畅通，反馈时间延长，缺乏时效性；其四、数据备份、传输、报表、统计等相关工作量大，费时，繁琐，容易出错；此外，作为学校的管理职能部门的学生处，与各系、所的管理部门之间的信息交流很不规范和统一，工作效率很低。
根据现实情况，要彻底改变原来的不利局面，以适应现代化管理发展，最佳的改进途径是建立一个完善的计算机管理信息系统，用计算机实现对数据的搜集、加工、存储等精确处理，并且充分发挥网络的优势，加快信息流动，及时反馈，全面提高工作效率。
学生信息管理系统登陆说明
学生信息管理系统登陆填写说明
一、学生信息管理系统网址：，学生登录账号为本人学号，初始密码为123456，请各位学生登陆后更改密码（改后密码切勿太复杂，请妥善保存密码）
二、登陆后进入主页面，点击个人中心-学生个人信息，查看初始信息是否有误（姓名、性别、出生年月、学部、专业班级、宿舍信息、身份证号码）；
三、进行个人信息填写，点击学生个人信息修改，按照后面所附要求认真填写，要求填写规范、准确、真实，页面实效性二十分钟；
填写要求：
1.请如实填写自己的爱好、特长；
2.没有的请填写无，勿空白；
3.家庭住址具体填写，城市的诸如湖北省武汉市积玉桥万达广场11号楼，其余的到乡镇或农村诸如湖北省天门市卢市镇水陆村5组1号；
4.银行卡号请填写武汉本地中国银行卡号，请勿填写其他银行，如果无暂不填写；
5.请填写所有直系亲属的信息，父亲母亲或亲弟弟、亲妹妹；
6.简历起始时间、工作或学习单位即从小学开始至今的学习经历，范例：1995.9-2000.7,安徽省安庆市实验小学……….;
7．星号部分可以进行再次申请修改，备注处写明修改原因，修改手机号在备注处填写新手机号；
8.请勿忘记上传个人电子照片，蓝底红底均可，请上传jpg格式的照片，尺寸是230*300，大小不要超过30K；
9．点击在校期间奖励情况，填写自己所获得的各项奖励。
学生信息管理系统数据流图汇总
学生信息管理系统数据流图汇总Revised at 16:25 am on June 10, 2019目录图0学生信息管理系统数据流图第0层图1学生信息管理系统数据流图第1层图2学生基本信息管理数据流图第2层图基本信息录入管理数据流图第3层图3学生异动信息管理数据流图第2层图异动信息插入管理数据流图第3层图4学生考勤管理数据流图第2层图考勤信息录入管理数据流图第3层图5学生公寓管理数据流图第2层图学生住宿管理数据流图第3层图5.1.1学生入住管理数据流图第4层图5.1.1.1入住学生信息录入管理数据流图第5层图5.1.2卫生管理数据流图第4层图5.1.2.1卫生信息录入管理数据流图第5层图5.1.3纪律管理数据流图第4层图5.1.3.1纪律信息录入管理数据流图第5层图5.1.4维修管理数据流图第4层图5.1.4.1维修信息录入管理数据流图第5层图5.1.5退宿管理数据流图第4层图5.1.5.1退宿信息录入管理数据流图第5层图5.1.6走读管理数据流图第4层图5.1.6.1走读信息申报管理数据流图第5层图5.1.6.走读信息录入管理数据流图第6层图5.1.7住宿调整管理数据流图第4层图5.1.7.1住宿调整信息录入管理数据流图第5层图房源资料库管理数据流图第3层图5.2.1房源信息录入管理数据流图第4层信息维护图宿舍工作人员管理数据流图第3层图5.3.1宿舍工作人员信息录入管理数据流图第4层图6学生处分管理数据流图第2层图学生处分信息录入管理数据流图第3层图7学生资助管理数据流图第2层图奖学金管理数据流图第3层图7.1.1奖学金信息申报管理数据流图第4层图7.1.1.1奖学金信息录入管理数据流图第5层图助学金管理数据流图第3层图7.2.1助学金信息申报管理数据流图第4层图7.2.1.1助学金信息录入管理数据流图第5层图助学贷款管理数据流图第3层图7.3.1助学贷款信息申报管理数据流图第4层图7.3.1.1助学贷款信息录入管理数据流图第5层图勤工助学管理数据流图第3层图7.4.1勤工助学信息申报管理数据流图第4层图7.4.1.1勤工助学信息录入管理数据流图第5层图缓交学杂费管理数据流图第3层图7.5.1缓交学杂费信息申报管理数据流图第4层图7.5.1.1缓交学杂费信息录入管理数据流图第5层。
学生信息管理系统
学生信息管理系统1．数据库结构的实现1）创建系统用户表格user_infoCREATE TABLE [dbo].[user_info] ([user_ID] [char] (10) COLLATEChinese_PRC_CI_AS NOT NULL,[user_PWD] [char] (10) COLLATEChinese_PRC_CI_AS NULL ,[user_DES] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,) ON [PRIMARY]2）创建学生基本信息表Student_infoCREATE TABLE [dbo].[ Student_info] ([student_ID] [varchar](10) COLLATE Chinese_PRC_CI_AS NOT NULL,[student_Name] [varcharchar] (10) COLLATE Chinese_PRC_CI_AS NULL ,[student_Sex] [char] (2) COLLATEChinese_PRC_CI_AS NULL ,[born_Date] [datetime] COLLATEChinese_PRC_CI_AS NULL ,[ClassName] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,[Telephone] [char] (20) COLLATEChinese_PRC_CI_AS NULL ,[Enroll_date] [datetime] COLLATEChinese_PRC_CI_AS NULL ,[Address] [varchar] (50) COLLATEChinese_PRC_CI_AS NULL ,[comment] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,) ON [PRIMARY]3）创建课程基本信息表Course_infoCREATE TABLE [dbo].[course_info] ([course_NO] [varchar](10) COLLATEChinese_PRC_CI_AS NOT NULL,[course_Name] [char] (20) COLLATEChinese_PRC_CI_AS NULL ,[course_Type] [char] (20) COLLATEChinese_PRC_CI_AS NULL ,[course_credit] [int] COLLATEChinese_PRC_CI_AS NULL ,[course_des] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,) ON [PRIMARY]4）创建选课成绩信息表Student_course_infoCREATE TABLE [dbo].[student_course_info] ( [student_ID] [varchar](10) COLLATEChinese_PRC_CI_AS NOT NULL ,[course_NO] [varchar](10) COLLATEChinese_PRC_CI_AS NOT NULL ,[score] [int] COLLATE Chinese_PRC_CI_AS NULL ,) ON [PRIMARY]2．学生信息管理系统主窗体的创建1）创建工程项目Student_MIS2）创建学生信息管理系统主窗体3）创建公用模块在“工程资源管理器”中添加一个Module，保存为Module1.bas，其程序如下：Public username_OK As String '记录登录用户名'定义连接字符串函数Public Function ConnectString() As StringConnectString ="Provider=SQLOLEDB.1;Password=sa;User ID=sa; "+"Initial Catalog=pubs; Data Source =127.0.0.1"'设置SQL Server2000数据库链接字符串，此字符串可保存在目录文件中End Function'ExecuteSQL函数执行SQL语句，返回结果集Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) _As ADODB.RecordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)Set cnn = New ADODB.Connectioncnn.Open ConnectStringIf InStr("INSERT,DELETE,UPDATE,EXECUTE", UCase$(sTokens(0))) Thencnn.Execute (SQL)MsgString = sTokens(0) & " query successful"ElseSet rst = New ADODB.Recordsetrst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgString = "查询到" & rst.RecordCount & "条记录 "End IfExecuteSQL_Exit:Set rst = NothingSet cnn = NothingExit FunctionExecuteSQL_Error:MsgString = "查询错误: " & Err.DescriptionResume ExecuteSQL_ExitEnd Function3．系统用户管理模块的创建1）用户登录窗体设计当用户输入完用户名和用户密码后，单击“确定”按钮将对用户输入的信息进行判断。
学生信息管理系统
学生信息管理系统学生信息管理系统工程设计报告学生信息管理系统〔Student Information Management System〕，以下简称SIMS，是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统〔Management Information System〕。
它是一个教育单位不可缺少的局部,它的容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。
能有效的帮助学校和教师掌握学生的情况，为学生供成绩跟课程方面的查询。
在传统模式下利用人工进展学生信息管理，存在着较多的缺点，如：效率底，XX性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。
诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率。
随着科学技术的不断提高,计算机科学日渐成熟, 使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大的功能已为人们深刻认,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一局部,使用计算机对学生信息进展管理,具有着手工管理所无法比较的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、XX性好、寿命长、本钱低、便于打印等。
这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。
用计算机制作的学生信息管理系统还可以通过功能强大的Internet网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针一定的促进作用。
因此，开发这样一套管理软件成为很有必要的事情。
一、需求分析该学生信息管理系统主要功能：学生通过输入学号和密码进入该系统后，可以进展一些根底维护〔学生信息维护、课程信息维护、选课信息维护〕。
全部都可以进展增加、修改、删除、模糊查询。
随着科学技术的开展和整个社会的进步，计算机技术也得到了很大的提高，特别是微型计算机的大围普及，是计算机的应用逐渐有科学计算、实时控制等方面向非数值处理的各个领域渗透并发挥着越来越重要的作用。
学生信息管理系统
学生信息管理系统中文摘要：随着Internet的普及，越来越多的企业建立了自己的WWW网站，企业通过网站可以展示产品，发布最新动态，与用户进行交流和沟通，与合作伙伴建立联系，以及开展电子商务等。
其中学生信息管理系统是构成网站的一个重要组成部分，它担负着双层作用ASP操作环境的设置以及虚拟目录的创建，系统采用Microsoft Office 中的Access 来设计数据库，并使用当前优秀的开发工具—ASP技术，它有着最为灵活的数据库结构，对数据库应用有着良好的支持。
论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。
重点的说明了系统设计的重点、设计思想、难点技术和解决方案。
设计网站中的页面，创建网站中所要用到的数据库，利用ADO完成与数据库的链接，把注册登录等页面嵌入到具体的网页中，完善整个网站、进行调试本系统运行简单，方便！关键字：学生资料管理员管理管理员日志班级信息目录一、系统概述1、系统开发的目标二、系统分析1、用户查询结构2、管理员结构三、数据库的建立（一）Access数据库（二）数据库的连接（三）主要数据表四、主要功能模块设计（一）主页前台设计1、学生信息查询模块设计2、学生留言模块（二）后台主要设计1、登陆日志模块设计2、专业管理模块设计3、增加学生信息模块设计4、管理员管理权限模块设计5、退出管理模块设计学生信息管理系统一、系统概述学生信息管理管理是一个对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。
因此，比较适合于采用数据库管理。
且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。
在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。
本系统的设计是在Windows XP中文版操作系统环境下，使用ASP 技术开发成功的。
采用Access数据支持本系统，在开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，更多的考虑了数据库应用的特点及适用范围，本论文在以下内容中做以详细介绍。
学生管理信息系统
学生管理信息系统引入当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。
计算机的最大好处在于利用它能够进行信息管理。
使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。
尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。
管理信息系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。
学生成绩管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生成绩管理系统应该能够为用户提供充足的信息和快捷的查询手段，对学生来说可以轻松的查阅自己在校的成绩以及信息等。
一、学生管理信息系统业务背景随着学校的规模的不断扩大，学生数量的增加，需要处理的信息也日趋增大。
不仅花费大量的教师资源，处理效率也十分低下。
为提高学生管理的管理水平，优化资源，尽可能降低管理成本成为学生管理的新课题，学生管理系统是从学生管理现状出发，根据学生管理的新要求进行开发设计的，它需要解决学生信息管理数据信息量大修改不方便，对一系列数据进行分析时花费时间长等问题，帮助学生管理人员有效管理学生信息。
因此学生信息管理系统可以通过系统规范化地管理、科学性统计和快速查询、修改、增加、删除等，提高信息的准确度以及日常管理的工作效率。
系统的功能根据使用者的不同而有所不同，主要有三种用户：学生、后台数据库系统管理员以及教师。
为了便于整个系统的组织管理，把整个系统分为三大模块：学生模块、教师模块和管理员模块，三个模块的功能都完全相对独立的设计，然后再将它们进行整合到一个总的模块中。
对于学生模块来说，可以进行浏览学生本人的一些基本信息和成绩信息，学生进行选课、对各科目任课教师信息以及课程表进行查询。
而管理员模块，则可以录入、删除、查询、修改和查看所有学生的基本信息和成绩信息，可以对学生选课信息进行管理，并且可以对班级、专业、学院信息进行相关管理。
学生信息管理系统
学生信息管理系统学生信息管理系统是一种管理和记录学生信息的应用软件，它帮助学校、教育机构或任何需要追踪学生信息的组织管理学生数据。
学生信息管理系统能够帮助学校提高工作效率、更好地管理学生和家长之间的沟通，并确保学生信息的安全和保密。
一、系统架构学生信息管理系统通常分为三层：表示层、业务逻辑层和数据访问层。
表示层：表示层通常是一个网页或桌面应用程序，它提供了一个用户界面，以便用户与系统进行交互。
用户可以在表示层输入和查看学生信息，进行各种操作。
业务逻辑层：业务逻辑层控制着系统的功能和行为。
它处理用户操作和数据处理的逻辑，根据用户提供的指令将数据传递给数据访问层。
数据访问层：数据访问层负责与数据库交互，从数据库中存取数据，以供业务逻辑层使用。
数据访问层还负责验证用户输入的数据是否有效和准确，并将修改后的数据存回到数据库中。
二、系统功能1.学生管理学生信息管理系统可以存储和管理学生的个人信息、家庭背景、教育背景、成绩记录、考试安排、学费记录和缴费历史等信息。
学生信息可以根据不同的条件进行搜索和筛选，以便快速找到所需信息。
2.家长管理家长信息也可以存储在系统中，并与学生信息关联。
学生信息管理系统还可以处理家长与学校之间的沟通，例如查看成绩和课程表、约定会议时间、收取付款账单等。
3.教师管理教师信息可以存储在系统中，以便管理课程、考试和教学进度。
教师可以登录系统，并创建课程、设定考试时间、记录出勤和成绩，以及向系统添加课程资源和作业。
4.报表和分析学生信息管理系统可以生成各种报表和分析数据，以帮助学校和教育机构更好地了解学生的情况并做出决策。
例如，它可以生成出勤表、成绩单、排名榜、学生预测、学费收入等报表和图表。
5.考试管理学生信息管理系统能够处理考试管理，例如创建和安排考试、收集考试答案并计算分数等。
6.课程管理学生信息管理系统可以管理学校的全部课程信息，例如课程名称、课程编号、老师名称、教学地点、上课时间和课程资料等。
全国中等职业学校学生管理信息系统上机操作指南
全国中等职业学校学生管理信息系统上机操作指南一、系统网址、用户名及密码1.系统网址：http://113.4.156.181/jyb-zhongzhi/2.用户名：普通用户（U开头的账号），管理员（A开头账号），领导用户（L开头账号）。
根据已发的用户表格信息，选择普通用户（U开头的账号）登录，除学校领导（以L开头的账号）所有审核用户是以U开头的账号【这里的用户名仅用作系统培训临时使用，系统正式上线后，用户名会重新生成】。
3.初始密码：12ab!@，第一次进入页面需要修改密码，统一修改为：!@ab12【仅在培训时更改为此密码，系统上线后可自行修改】。
二、系统登录注意事项1.建议使用WIN7操作系统，IE8.0标准模式浏览器登录系统；2.不要使用同一浏览器登录多个用户，且一个用户不可多人同时登录；3.用户名第一个字母为大写，在输入用户名和密码时注意键盘大小写的切换，且用户名后不可以有空格；4.登录系统时，如密码连续三次输入错误，系统将自动锁定该账号，需要15分钟之后才可重新登录系统，如忘记密码，可用同级或上级系统管理员账号（A开头的账号）重置为初始密码（12ab!@）。
三、上机操作内容1.配置维护好学校管理模块的基础数据；2.在【在校生管理】->【数据补录】->【导入数据管理】，成功导入一条学生记录信息，且需要所有上级主管部门审核通过，然后可以在档案管理查询到该学生记录信息；3.在【在校生管理】->【学籍异动信息管理】->【调班申请】，新增调班申请单（该学生所属专业存在两个及以上的班级时，才可以进行新增调班申请单，若缺少班级信息，在【学校管理】->【班级信息管理】新增班级信息），完成该学生的调班业务。
四、具体操作步骤1.学校管理（维护校区、专业、班级、年级等基本信息）a)新增校区信息：学校基本信息管理->校区信息维护，新增校区信息。
b)新增专业信息：开设专业管理，新增专业信息，且提交上级主管部门审核，审核通过之后，在班级信息管理新增该班级信息。
学生信息管理系统详细设计
学生信息管理系统详细设计课程名称：软件工程指导老师：冯年荣组员：岳一沿、朱隆君、张敏张雨、邵天宇、万文彬2015/5/11、详细设计概述详细设计也叫做程序设计，它不同于编码或编制程序。
在详细设计阶段，要决定各个模块的实现算法，并精确地表达这些算法。
编程设计所开发项目的具体要求和对每个模块规定的功能，以及算法的设计和评价。
详细设计需要给出适当的算法描述，为此应提供详细设计的表达工具。
在理想情况下，算法过程描述应采用自然描述语言来表达，使不熟悉软件的人理解这些规格说明比较容易，无需重新学习。
但是，自然语言在语法上和语义上往往具有多义性，常常要依赖上下文才能把问题交代清楚。
因此，必须使用约束性更强的方式来表达细节。
2、详细设计的基本内容详细设计过程中需要完成的工作主要是确定软件各个组成部分内的算法以及各个部分的内部数据结构，确定各个组成部分的逻辑过程。
另外还有以下工作。
2.1 处理方式的设计（1）数据结构设计：对于需求分析、总体设计确定的概念性的数据类型进行确切的定义。
（2）算法设计：用某种图形、表格、语言等工具将每个模块处理过程的详细算法描述出来，并为实现软件系统的功能需求确定所必需的算法，评估算法的性能。
（3）性能设计：为满足软件系统的性能需求确定所必需的算法和模块间的控制方式。
（4）确定外部信号的接受发送形式。
2.2 物理设计对数据库进行物理设计，确定数据库的物理结构。
2.3 可靠性设计2.4 其他设计（1）代码设计：为了提高数据的输入、分类、存储及检索等操作的效率，以及节约内存空间，对数据库中的某些数据项的值要进行代码设计。
（2）输入输出格式设计：针对各个功能，根据界面设计风格，设计各类界面的样式。
（3）人机对话设计：对于一个实时系统，用户与计算机频繁对话，因此要进行对话方式、内容及格式的具体设计。
3、结构程序设计3.1 五种基本控制结构构造程序。
（1）顺序型：几个连续的加工步骤依次排列构成。
学生信息管理系统
学生信息管理系统(总24页) -本页仅作为预览文档封面，使用时请删除本页-目录第一章：类图................................................................................ 错误!未定义书签。
第二章：用例描述与用例图........................................................ 错误!未定义书签。
用例图................................................................................... 错误!未定义书签。
用例描述............................................................................... 错误!未定义书签。
登陆用例描述............................................................... 错误!未定义书签。
主界面用例描述........................................................... 错误!未定义书签。
修改密码用例描述....................................................... 错误!未定义书签。
选修课信息用例描述................................................... 错误!未定义书签。
个人信息用例描述....................................................... 错误!未定义书签。
修改学生信息用例描述............................................... 错误!未定义书签。
学生信息管理系统(完整)
学生信息管理系统（总体设计）1、管理系统功能模块设计本系统需要完成的功能主要有：有关学籍信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等、学生信息的修改、班级管理信息的输入，包括输入班级设置、年级信息等。
班级管理信息的查询、班级管理信息的修改、学校基本课程信息的输入、基本课程信息的修改、学生课程设置和修改、学生成绩信息的输入、学生成绩信息的修改、学生成绩信息的查询、学生成绩信息的统计。
2、功能模块设计：3、数据库设计：(4)学生成绩信息：result_Info学生信息管理系统（需求分析）系统模块模块有学生信息管理、课程信息管理、成绩信息管理和班级信息管理等几项，各项管理工作涉及到的内容用下面的关系模式表示。
a)学生（学号，姓名，性别，年龄，班级，电话，备注，出生日期，入学时间，班级编号，家庭地址）b)课程（课程编号，课程名称，课程类别，学分，学时）c)班级（系，班级号，指导老师）系统分析1.抽象出当前系统的逻辑模型画出反映当前系统工作的数据流程图。
数据流程图是逻辑模型的图形表示，即使不是专业的计算机技术人员也能非常容易理解，它是一种很好的系统构造的表示方法。
画数据流程图是应该从已获得的人工处理流程中去掉物理因素，只保留数据、信息处理部分。
2．系统功能分析系统主要用于学校学生信息管理，主要任务是用计算机对学生各种信息进行日常管理，如：查询、修改、增加、删除。
3.系统目标设计根据本校的实际情况，利用校园网而设计一套针对性和功能都比较强的学生信息管理系统，对学生信息管理系统进行科学的分类、录入、查询．4.开发设计思想尽量采用学校现有的软硬件环境及先进的管理系统开发方案，从而达到充分利用资源，提高系统开发的水平和应用效果的目的。
系统应该符合学校学生信息管理的规定，满足学校学生日常管理的需要，达到操作过程中的直观、方便、实用、安全等要求。
《学生信息管理系统》PPT课件
信
息
查
看 功
能
能
能
能
能
学 学学
课
生 籍生
程
查 修注
增
询
改册
加
课 程 查
询
查报
询考
报考
考试
添
查
加询
教
教
师
师
第七页，共24页。
用表
数据库设计(shèjì)
信息(xìnxī)数据库
登录(dēnɡ lù)数据库
教学 学
师生
生
课课
信
程程 息
报 考 表
用
户 信
息
表
表
表
表
第八页，共24页。
系统实施
开发环境
系统 登陆
系统登陆分为三个模块程序流程图结束开始输入用户名和密码进入主界面出错处理系统登录主界面学生信息修改学生课程添加学生档案信息添加程序流程图开始结束输入学生信息学生模块1学生模块二教师模块一管理员模块一管理员模块二系统维护关于由于时间紧迫暂时不能列出通过很长时间的努力系统总算做出来从中获益匪浅感觉自己明显有了质的飞跃基本熟练掌握vs以及数据库的一些相关知识还学会了如何独立的解决相关的问题提高了动手的能力
开发. vs2008开发一般应用模块,供管理人员在本地
机上完成对数据库的各种修改工作.并且采用了数
据访问技术ADO,使之能更好地访问本地和远程的数
据库;在数据环境方面,允许程序员可视化地创建和操
作ADO连接及命令等优点(yōudiǎn),因此,采用vs2008作
为学生信息管理系统的本地开发平台. sql server
将得到很好的缓解。这样一个系统不仅可以更快
学生信息管理系统
学生信息管理系统的设计方案一、系统开发背景 (2)二、系统开发概述 (2)三、系统需求分析 (2)3.1系统功能需求 (2)3.2性能需求分析 (3)3.3逻辑模型建立 (3)3.3.1系统数据模型 (3)3.3.2系统数据流图 (4)3.3.3系统数据字典 (7)四、系统概要设计 (8)4.1系统功能结构设计 (8)4.2数据库设计 (8)五、系统详细设计 (10)5.1菜单设计 (10)5.2表单设计 (13)5.3主程序设计 (24)5.4系统运行演示 (25)六、系统实施 (34)6.1系统调试与运行 (34)6.2系统编译与发布 (34)一、系统开发背景随着学校整体能力的提高，有一个好的学生信息管理系统对于学校各方面的发展有着巨大的意义。
因此需要建立一个完整的符合学校发展的学生管理系统以使学校管理工作变得高效、方便，以提高教学管理水平，实现教育和管理的信息化、现代化。
随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，学生管理工作变得越来越复杂，消耗了大量的人力物力。
开发学校信息管理系统，建立基本的学生及相关信息数据库，实现资源共享和学生管理工作的计算机化，具有重大意义。
二、系统开发概述在开发学生信息管理系统时，我们分析并比较了当前流行的集中系统开发方法，我们认为“生命周期法”是MIS开发的基本方法，尽管这种方法也有许多不足之处，但是他的基本思想、开发步骤、开发工具是可以遵循和使用的。
基于本系统规模小、功能简单的特点，所以仅用了生命周期法中的核心环节来实现，即：系统调查与分析，运用结构分析法、数据流图、数据字典等工具，确定系统的功能。
系统物理（或详细）设计，根据确定的系统功能，选择合适的软硬件环境，确定模块结构与数据库的建立。
程序设计，选用Microsoft Visual FoxPro 6.0为开发工具，编制学生信息管理应用程序。
三、系统需求分析3.1系统功能需求在学生信息管理系统中，主要有用户登录、学生管理、课程管理、成绩管理和信息查询等几个部分，其主要功能描述如下：1）用户登录：学生信息管理系统采用用户名和密码验证模式。
学生综合信息管理系统
1 引言学生综合信息管理系统是大学信息管理系统建设的重要组成部分，是提高教学管理的质量和效益乃至建设知名高水平大学的关键环节。
学生信息处理的电脑化、网络化，也是实现学校管理现代化和信息化的重要内容。
学生综合信息管理系统的内容对于学校的决策者和管理者来说都至关重要，所以学生综合信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点，如：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。
1.1 研究背景随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分，使用计算机对学生信息进行管理，具有手工管理所无法比拟的优点。
例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生档案管理的效率，也是进行科学化、正规化管理，与世界接轨的重要条件。
随着进入二十一世纪，计算机技术迅速向着网络化、集成化方向发展。
传统的单机版应用软件正在逐渐退出舞台，取而代之的是支持网络、支持多种数据信息（多媒体）的新一代网络版应用软件，而目前网络版软件中似乎存在着两种不同的趋势，一种是称为客户端——服务器的C/S结构应用系统，另一种是称为浏览器——服务器的B/S结构应用系统[3]。
而后者的特点是在客户端直接采用了功能强大的浏览器软件作为界面，其优点在于软件开发效率高，客户端不受操作平台的限制、也不受地域的限制，网络传输量少，即适用于局域网，更适用于Internet，而且投资小、见效快，用户可以不必进行服务器方面的投资，而是去租用，甚至是免费使用ISP的服务器资源，因而受到越来越多中小型单位的青睐。
因此，开发一套采用B/S结构的学生综合信息管理系统就成为必要的事情。
本系统正是采用B/S结构开发的[3]，该系统主要由学籍维护、选课管理、成绩查询等功能模块组成，实现学生基本信息管理、学生选修课程管理以及学生成绩查询管理等。
学生信息管理系统学生信息管理系统
--1绪言1.1 系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生缴费管理系统等多种功能。
本系统主要用到的技术包括：MVC三层架构开发模式，这种设计模式把应用逻辑、处理过程和显示逻辑分成不同的组件来实现，这些组建可以进行交互和重用。
封装了数据操作类，以便调用数据库的操作函数因而具有较强的实用性和先进性。
本文首先探讨了SQL语言接口和VB软件开发工具的技术特点以及结合SQL和VB的数据库访问方法，在此基础上，利用VB和Microsoft SQL Server 2000实现了一个基于C/S模式的学生信息管理系统。
在本文的后半部分，给出了该系统的整个系统分析、设计以及实现的过程，包括需求分析、功能后矛盾的不完整的数据；⑵完整、及时提供在管理及决策中需要的数据；⑶利用指定的数据关系式分析数据，客观预测未来；⑷向各级管理机构提供不同详细程度的报告，缩短分析和解释时间；⑸用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。
各方面的竞争中占有一席之地。
学生信息管理系统是一个学校不可缺少的部分,它的内容对于学校的管理者来说至关重要,所以学生信息管理系统应该能够为老师提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理学生档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。
学生信息管理系统
学生信息管理系统学生信息管理系统是针对学校人事处的大量业务处理工作而开发的管理软件，主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、科学化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点。
例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生档案管理的效率,也是进行科学化、正规化管理，与世界接轨的重要条件。
随着我国教育产业化的飞速发展，社会对教育水平和教学管理软硬件的要求日益提高，尤其是对一个学校能够具有一整套完善的教学管理软件提出了更多的要求。
为了适应这种形式，教育系统尤其是大学不仅首先要有坚实的硬件基础，还要有一整套完善的教学管理软件管理系统。
而要实现这一功能，就要求学校管理者配备一套高效的教育管理网络系统，以便在学校内实施良好的一整套完善的管理且以最快地速度响应教师和学生的需求，及时为他们提供服务，为他们提供一个高效、便捷的环境。
学生信息管理系统是校园网络中一个重要的应用系统，它大大改善了学校教学、科研与管理的基础环境，在一定程度上反映出学校管理现代化的水平。
随着国家对于教育的重视逐渐加大，学校正向着大型化、规模化发展，而对于大中型学校，跟学生信息管理有关的信息随之急剧增加。
在这种情况下单靠人工来处理员工的工资不但显得力不从心，而且极容易出错。
该系统就是设计一个学生信息数据库管理系统，由计算机代替人工执行一系列诸如增加新学生，删除旧学生，学生信息修改，查询，维护及打印等操作。
这样就使学生部门管理人员可以轻松快捷地完成学生信息管理的任务。
全国中等职业学校学生信息管理系统用户手册
全国中等职业学校学生管理信息系统学校用户使用说明书2009.3上海鹏达计算机系统开发有限公司Shan ghai Pan tosoft Co., Ltd.版权所有All Rights Reserved声明：本手册内容若有变动，恕不另行通知。
本手册例子中所用的公司、人名和数据若非特别声明，均属虚构。
未得到上海鹏达计算机系统开发有限公司明确的书面许可，不得为任何目的、以任何形式或手段（电子的或机械的）复制或传播手册的任何部分。
（注：本手册适用于学校用户，用户可在手册中查看相应模块内容的操作）技术支持方式：省级用户请直接跟软件公司联系，获取技术支持各省自行安排当地区域的支持方式，请与上级相关部门联系，获取技术支持目录待办事宜和进度表為加密宜获I.制工：era■犷E 30fczn ^oo^gfisia,丰世丰月置號『书学生的豺ftit沬壇壬瓦电科和誓月圭晞加粗植才业0£学生遂甲怅耐身尚1号4 皤■'学生晳Urtrsub 苗皱W 直车EIL■二扁工昨吗2W苍#«怨g m1虫说£^皿:u于if用訥恺息3率月戏助老单itftS.Adft: ■ 删却1耐哥t ：!. □罩尿超世亡1港度怙34霍】和十軸进入系统首页，学校可以立刻了解到审核“未通过”的情况，并且可以掌握当前学籍和资助填报的进度情况。
操作流程斑鼻廣字&■亶怯離① 累蜒B 动锁恵丰月资期名牟② 生成卒月的所有冃报？L ③ 生MT= 口虫眾苦呈学爲蝕特上乐审樣帶九茹于岸诒£葩亩甲溝弟十二:竽业名单那■四* :维F 专业佶肖第十四牛：填写車月国冢町学金实 际堇政盍證（本月侶一天之削■It車月左放金抑坦坯凭仝）第+三出 條改、补坦 学生寿飾信第五齿：漏!n 学生疔色诣m （生晤 和贸功信岂〕第十步：学舞信專异动申请（转=箒4■三匚：歧骂饵專胎呈命甲玄沼 全字临佶包【菽列可姮）爺八歩-捉交学 主踪■合信馭学错 和法助鑒息）曲学期恋Y 亞処臼就生成虫 学捕圣舟1危学展普表第十六歩：斷学生资助桔息学朋_1—11 ^―——4 M i ju 1 那 4学「―E|.1 I业 11L = —F 11 II 4 11 -------- 卡t第一步：系统登录1）输入地址：（教育网： ）2）输入组织机构、用户名、口令和验证码3）点击“登录”按钮牲商IRWWId nnlmiaa.tlu.c-g!!第二步：修改密码登陆系统后，进入首页，点击修改密码输入新密码（两次），点击保存注：第一次登录系统请务必将密码修改。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
湖南广播电视大学计算机信息管理专业数据库应用课程设计报告销售信息系统学号：姓名：指导教师：设计完成日期：一、选题说明及需求介绍学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,对学生来说也可以轻松的查阅自己在校的成绩以及信息等。
通过调查,要求系统需要有以下功能:⑴要求有良好的人机界面；⑵较好的权限管理；⑶原始数据修改简单方便,支持多条件修改；⑷方便的数据查询，支持多条件查询；⑸相应的权限下，删除数据方便简单，数据稳定性好；⑹数据计算自动完成，尽量减少人工干预；我们设计实现的学生信息管理系统，采用计算机对学生信息进行管理，进一步提高办学效益和现代化水平.帮助广大教师提高工作效率，实现学生信息管理工作流程的系统化、规范化和自动化。
二、数据库设计说明系统的需求说明在上面已有介绍，下面我们进入数据库设计中的概念设计、逻辑设计阶段和实现阶段。
1.概念设计在这个学生信息管理系统中，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。
再分析三个实体之间的联系。
首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。
课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。
而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。
因为成绩既不是学生独有的，也不是课程独有的。
教师与课程这两个实体之间，是一对多联系；一位教师可以教多门课程，而一门课程对于学生成绩来说只能有一位教师。
据此分析，得到系统的ER图如图一所示。
2.图二 班级管理业务流程图图三 档案管理业务流程图图四课程管理业务流程图图五成绩管理业务流程图3.数据流程分析图六 学生成绩管理系统0层数据流程图图七 学生成绩管理系统1层数据流程图4.逻辑设计数据库采用了Microsoft 推出的Access 数据库，这是微软集成到Office 中的一个桌查询 统计分析面数据库，能够快速方便的和Office的其他套件综合使用。
由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。
使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。
根据ER图转换成基本表的思想，即每个实体转换成一个基本表，多对多的联系转换成基本表，而1对多的联系根据实际需要可以转换或不转换为基本表，按照图一所示的ER 图，该系统的基本表为八个，分别为：班级课程表（班级编号，课程名）班级表（班级编号，班级名称，指导员姓名，备注信息）课程表（课程名，备注）奖惩表（奖惩名称，备注信息）学生奖惩表（奖惩编号，奖惩学生学号，奖惩日期，奖惩名称）成绩表（成绩号，考试期号，学生班号，学生编号，考试课程，考试分数）学生表（学号，姓名，性别，出生日期，学生编号，联系电话）用户表（用户名称，用户密码，创建日期）5.建立数据库和基本表在ACCESS中建立空的数据库“学生信息管理系统”，然后建立如上所述的基本表，各个表的设计视图如图九至图十六所示。
图八学生信息管理系统ER图图九班级表设计视图图十成绩设计视图图十一班级课程表设计视图图十二奖惩表设计视图图十三课程表设计视图图十四学生表设计视图图十五学生奖惩表图十六用户表设计视图6.定义基本表之间的关系根据前面的分析，定义基本表之间的关系如图十七所示。
图十七基本表之间的关系三、系统的功能划分根据前面的说明和分析，我们希望只有经过授权的用户才能使用该系统，也就是说只有经过系统验证的用户才能进行相关操作，并且系统能对基本数据进行插入、删除、修改和查询等操作，对关联数据也能进行相应的处理，本系统主要提供方便高效的管理功能，该实现以下一些基本功能：1.系统管理模块：维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。
2.班级管理模块：实现对全校班级的管理工作，包括：班级游览、班级添加、班级修改等，这三个功能模块各自独立，完成学校的全部班级的管理。
3.学生学籍管理模块：实现对学生的个人信息的管理工作，包括学籍添加、学籍查询、学籍修改等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。
4.课程管理模块：该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。
该模块包括基本课程设置和班级课程设置两个模块。
5.成绩管理模块：检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。
6.奖惩信息管理模块：奖惩信息是用来督促学习学习活动的一种手段，包括奖惩信息的添加和修改。
7.个人信息查询模块：用于学生个人信息的查询，分为奖惩信息查询和成绩查询两个模块。
8.退出模块：此模块完成程序的退出。
据此，系统的功能模块设计如图十八所示。
图十八系统模块功能图四、实现过程及完成效果介绍1.实现过程简要说明Visual Basic是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。
它简单易学、效率高，且功能强大。
在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
实现系统时，首先实现基本数据处理的功能，例如学生数据的增加、删除和修改都是通过窗体向导完成的，设计时插入数据和修改数据通过下级窗体完成。
关联数据处理比基本数据处理稍复杂，例如班级添加学生，首先由用户选择班级，然后再选择需要添加的学生，不要由用户去输入数据，以免引起数据的不一致性。
当各个功能模块完成后，实现主窗体，将功能集中，然后再设计登录窗体，只允许注册用户进入系统。
2.系统实现效果1.系统登录界面本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用ID;PWD（大写）为用户名和密码来登陆本系统。
如图十九所示。
图十九系统登录窗体2.系统主界面本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有7个功能菜单，从而实现了本系统从用户管理、班级管理、学籍管理、课程管理、成绩管理、奖惩管理、个人信息查询等系统功能，同时，在系统管理模块中可以完成对本系统的安全性管理。
如图二十所示。
图二十系统化主窗体3.用户管理模块本模块是本系统的安全性设置模块，实现了对用户帐户信息管理功能。
如图二十一所示。
图二十一用户管理界面4.班级信息管理模块班级信息管理模块用于实现班级信息的添加、删除、修改的功能。
包括班级编号，班级名称，导员姓名，备注信息。
当对其中某个属性进行操作时，对其基本的信息进行填写完整。
否则会出现提示信息。
当班级编号，班级名称，导员姓名为空时会自动的出现提示信息，提示某个属性列必须要填写，否则显示操作成功。
如图二十二所示。
图二十二班级信息管理界面学籍信息管理模块是对学生的个人信息进行统计。
实现该模块的添加、查询、修改、删除功能。
例如点击添加时，系统弹出如图1-2所示的界面，当点击界面下方面的控件时，其所对应的位置会显示为输入形式，对信息进行输入。
输入完成后，点击添加时，系统会自动对信息进行验证，如果学号以存在时，则提示学号存在无法添加；如果除备注信息中有信息落填时，会提示某个属性列没有填写，否则提示信息添加成功，并对添加后的信息进行显示。
如图二十三所示。
图二十三学籍信息管理界面6.课程信息管理模块图二十四课程信息管理界面图二十五 成绩信息管理界面8.奖惩信息管理模块9.个人信息查询模块图二十六 奖惩信息管理界面图二十七个人信息查询界面五、总结在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。
因此，该系统必然会存在一些缺陷和不足。
因为对学生管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。
虽然网络在学生管理系统中的应用不是很多，但是未来的发展方向，在本次开发过程由于硬件的限制，未能实现网络功能，因此在以后的系统更新过程中可能会造成一些不必要的数据损失。
通过开发这个系统，我掌握了项目的基本开发过程，了解了的基本知识巩固了我对Visual Basic的学习，但在这次设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。
六、致谢七、参考资料1周佩德.数据库原理及应用.电子工业出版社2 刘炳文等.VISUAL BASIC程序设计——数据库篇，19993李光明.Visual Basic编程实例大制作.冶金工业出版社4 李红等编著.管理信息系统开发与应用.电子工业出版社，20035 何桂英.数据库应用课程设计指导书.中央广播电视大学出版社.20056 康博工作室.张红军.Visual Basic中文版高级应用与开发指南.人民邮电出版社，20017 林立军,程斌,翁迪恩.Visual Basic 数据库开发指南.西安电子科技大学出版社，2000 8宋伟，吴建国.中文Visual Basic编程基础.北京，清华大学出版社.2000目录一、选题说明及需求介绍二、数据库设计说明2.1概念设计2.2业务流程分析2.3数据流程分析2.4逻辑设计2.5建立数据库和基本表2.6定义基本表之间的关系三、系统的功能划分四、实现过程及完成效果介绍4.1系统登录界面4.2系统主界面4.3用户管理模块4.4班级信息管理模块4.5 学籍信息管理模块4.6课程信息管理模块4.7成绩信息管理模块4.8奖惩信息管理模块4.9个人信息管理模块五、总结六、致谢七、参考资料8.源程序：8.1系统登录界面：Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringDim miCount As IntegerPrivate Sub Form_Load()Dim i As Integeri = 0txtSQL = "select * from user_Form"Set mrc = ExecuteSQL(txtSQL, MsgText)With txtUserNameDo While Not mrc.EOFi = i + 1.AddItem Trim(mrc!user_ID)mrc.MoveNextLoop.ListIndex = i - 1End Withmrc.CloseOK = FalsemiCount = 0End SubPrivate Sub cmdCancel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()txtSQL = "select * from user_Form where user_ID = '" & txtUserName.Text & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True ThenMsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElseIf Trim(mrc.Fields(1)) = Trim(txtPassword.Text) ThenOK = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"txtPassword.SetFocustxtPassword.Text = ""End IfEnd IfmiCount = miCount + 1Me.HideEnd IfExit SubEnd SubPrivate Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_Click()txtPassword.Text = ""End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub8.2系统主界面：Dim i As LongPrivate Sub Form_Load()Label1.ForeColor = &H8000000ELabel1.FontSize = 12Label1.AutoSize = Truei = Image2.WidthEnd SubPrivate Sub Form_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 - 100End SubPrivate Sub Timer1_Timer()i = i + 50Label1.Left = Me.Width - iIf i > Me.Width + Label1.Width Theni = Image2.WidthEnd IfEnd Sub8.3用户管理模块：Dim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Command1_Click()Dim txtSQL As StringMsgBox "用户名称不能为空!", vbOKOnly, "提示"Text1(0).SetFocusExit SubEnd IfIf Text1(1) = "" ThenMsgBox "用户密码不能为空!", vbOKOnly, "提示"Text1(1).SetFocusExit SubElseIf Text1(1) <> Text1(2) ThenMsgBox "两次密码输入不同!", vbOKOnly, "提示"Text1(1) = ""Text1(2) = ""Text1(1).SetFocusExit SubEnd IfEnd IftxtSQL = "select * from user_Form where user_ID='" & Trim(Text1(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "此用户名已经存在!", vbOKOnly, "警告"Text1(0).SetFocusExit SubEnd Ifmrc.ClosetxtSQL = "select * from user_Form"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(Text1(0))mrc.Fields(1) = Trim(Text1(1))mrc.Fields(2) = Nowmrc.Updatemrc.CloseFor i = 0 To 2Text1(i) = ""NextMsgBox "用户信息添加成功!", vbOKOnly, "提示"ListappEnd SubPrivate Sub Command2_Click()Text1(0) = ""Text1(1) = ""Text1(2) = ""End SubPrivate Sub Command3_Click()Dim txtSQL As StringIf Text1(3) = "" ThenMsgBox "请你选择用户名称!", vbOKOnly, "提示"List1.SetFocusExit SubEnd IfIf Text1(4) = "" ThenMsgBox "修改密码要旧密码!", vbOKOnly, "警告"Text1(4).SetFocusExit SubEnd IfIf Text1(5) = "" ThenMsgBox "新的密码不能为空!", vbOKOnly, "提示"Text1(5).SetFocusExit SubElseIf Text1(5) <> Text1(6) ThenMsgBox "两次密码输入不同!", vbOKOnly, "提示"Text1(5) = ""Text1(6) = ""Text1(5).SetFocusExit SubEnd IfEnd IftxtSQL = "select * from user_Form where user_ID='" & Trim(Text1(3)) & "'and user_PWD='" & Trim(Text1(4)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThentxtSQL = "delete from user_Form where user_ID='" & Trim(Text1(3)) & "'"ElseMsgBox "用户密码输入错误!", vbOKOnly, "警告"Text1(4).SetFocusExit SubEnd IfSet mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "select * from user_Form"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(Text1(3))mrc.Fields(1) = Trim(Text1(5))mrc.Fields(2) = Nowmrc.Updatemrc.CloseFor i = 3 To 6Text1(i) = ""NextMsgBox "用户信息修改成功!", vbOKOnly, "提示"End SubPrivate Sub Command4_Click()Text1(3) = ""Text1(4) = ""Text1(5) = ""Text1(6) = ""End SubPrivate Sub Command5_Click()Dim txtSQL As StringIf Text1(7) = "" ThenMsgBox "请你选择用户名称!", vbOKOnly, "提示"List1.SetFocusExit SubElseIf Text1(7) = UserName ThenMsgBox "不可以删除正在使用的用户!", vbOKOnly, "警告"Text1(7) = ""Text1(8) = ""List1.SetFocusExit SubEnd IfEnd IfIf Text1(8) = "" ThenMsgBox "删除用户需要密码!", vbOKOnly, "警告"Text1(8).SetFocusExit SubEnd IftxtSQL = "select * from user_Form where user_ID='" & Trim(Text1(7)) & "'and user_PWD='" & Trim(Text1(8)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThentxtSQL = "delete from user_Form where user_ID='" & Trim(Text1(7)) & "'"ElseMsgBox "用户密码输入错误!", vbOKOnly, "警告"Text1(8).SetFocusExit SubEnd IfSet mrc = ExecuteSQL(txtSQL, MsgText)Text1(7) = ""Text1(8) = ""MsgBox "用户信息已经删除!", vbOKOnly, "提示"ListappEnd SubPrivate Sub Command6_Click()Text1(7) = ""Text1(8) = ""End SubPrivate Sub Form_Load()8.4班级信息管理模块：Dim mrc As ADODB.RecordsetDim MsgText As StringDim tSQL As StringPrivate Sub Command1_Click()If Text1(0) = "" ThenMsgBox "班级编号不能为空!", vbOKOnly, "提示"Text1(0).SetFocusExit SubEnd IfIf Text1(1) = "" ThenMsgBox "班级名称不能为空!", vbOKOnly, "提示"Text1(1).SetFocusExit SubEnd IfIf Text1(2) = "" ThenMsgBox "导员姓名不能为空!", vbOKOnly, "提示"Text1(2).SetFocusExit SubEnd IftxtSQL = "select * from class_Form where class_NO='" & Trim(Text1(0)) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "此班级编号已存在!", vbOKOnly, "警告"Text1(0).SetFocusExit SubEnd Ifmrc.ClosetxtSQL = "select * from class_Form"Set mrc = 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.CloseFor i = 0 To 3Text1(i) = ""NextMsgBox "班级信息添加成功!", vbOKOnly, "提示"ShowDataEnd SubPrivate Sub Command2_Click()For i = 0 To 3Text1(i) = ""NextEnd SubPrivate Sub Command3_Click()If Text1(5) = "" ThenMsgBox "班级名称不能为空!", vbOKOnly, "提示"Text1(5).SetFocusExit SubEnd IfIf Text1(6) = "" ThenMsgBox "导员姓名不能为空!", vbOKOnly, "提示"Text1(6).SetFocusExit SubEnd IftxtSQL = "delete from class_Form where class_NO='" & Trim(Text1(4)) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "select * from class_Form"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(Text1(4))mrc.Fields(1) = Trim(Text1(5))mrc.Fields(2) = Trim(Text1(6))mrc.Fields(3) = Trim(Text1(7))mrc.Updatemrc.CloseFor i = 4 To 7Text1(i) = ""NextMsgBox "班级信息修改成功!", vbOKOnly, "提示"ShowDataEnd SubPrivate Sub Command4_Click()For i = 4 To 7Text1(i) = ""NextEnd SubPrivate Sub Command5_Click()txtSQL = "delete from class_Form where class_NO='" & Trim(Text1(8)) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText)For i = 8 To 11Text1(i) = ""NextMsgBox "班级信息以经删除!", vbOKOnly, "警告"ShowDataEnd SubPrivate Sub Command6_Click()For i = 8 To 11Text1(i) = ""NextEnd SubPrivate Sub Form_Load()Me.Caption = "班级信息->添加"Picture1(1).Top = Picture1(0).TopPicture1(1).Left = Picture1(0).LeftPicture1(2).Top = Picture1(0).TopPicture1(2).Left = Picture1(0).LeftShowDataFor i = 0 To 2Label2(i).BackColor = &HE0E0E0Picture1(i).Visible = FalseNextLabel2(0).BackColor = &HFFFFFFPicture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize()dColor.ZOrder 1End SubPrivate Sub Label2_Click(Index As Integer)Me.Caption = "班级信息"Me.Caption = Me.Caption & "->" & Trim(Label2(Index).Caption) For i = 0 To 2Label2(i).BackColor = &HE0E0E0Picture1(i).Visible = FalseNextLabel2(Index).BackColor = &HFFFFFFPicture1(Index).Visible = TrueFor i = 0 To 11Text1(i) = ""NextCommand3.Enabled = FalseCommand5.Enabled = FalseEnd SubPrivate Sub ShowData()Dim txSQL As StringDim mrcc As ADODB.RecordsettxSQL = "select * from class_Form"Set mrcc = ExecuteSQL(txSQL, MsgText)With MSFlexGrid1.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 = 1Do While Not mrcc.EOF.Rows = .Rows + 1For i = 0 To mrcc.Fields.Count - 1.TextMatrix(.Rows - 1, i) = mrcc.Fields(i) & ""Next imrcc.MoveNextLoopEnd Withmrcc.CloseEnd SubPrivate Sub MSFlexGrid1_Click()If Picture1(1).Visible = True ThenText1(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 = TrueEnd IfIf Picture1(2).Visible = True ThenText1(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 = TrueEnd IfEnd SubPrivate Sub Text1_Change(Index As Integer)If Index = 4 ThentSQL = "select * from class_Form where class_NO='" & Trim(Text1(Index)) & "'"Set mrc = ExecuteSQL(tSQL, MsgText)If mrc.EOF = False ThenText1(5) = mrc.Fields(1)Text1(6) = mrc.Fields(2)Text1(7) = mrc.Fields(3)Command3.Enabled = TrueExit SubElseText1(5) = ""Text1(6) = ""Text1(7) = ""Command3.Enabled = FalseEnd Ifmrc.CloseEnd IfIf Index = 8 ThentSQL = "select * from class_Form where class_NO='" & Trim(Text1(Index)) & "'"Set mrc = ExecuteSQL(tSQL, MsgText)If mrc.EOF = False ThenText1(9) = mrc.Fields(1)Text1(10) = mrc.Fields(2)Text1(11) = mrc.Fields(3)Command5.Enabled = TrueExit SubElseText1(9) = ""Text1(10) = ""Text1(11) = ""Command5.Enabled = FalseEnd Ifmrc.CloseEnd IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer)Text1(Index).SelStart = 0Text1(Index).SelLength = Len(Text1(Index))End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub8.5学籍信息管理模块：Private Sub claiMenu_Click()frmclai.ShowEnd SubPrivate Sub couiMenu_Click()frmcoui.ShowEnd SubPrivate Sub cusiMenu_Click()frmcusi.ShowEnd SubPrivate Sub MDIForm_Load()dColor.ShowEnd SubPrivate Sub MDIForm_Resize()If Me.Height > 1100 ThendColor.Height = Me.Height - 1100End IfIf Me.Width > 180 ThendColor.Width = Me.Width - 180End IfEnd SubPrivate Sub prpiMenu_Click()frmprpi.ShowEnd SubPrivate Sub scoiMenu_Click()frmscoi.ShowEnd SubPrivate Sub stsiMenu_Click()frmstsi.ShowEnd SubPrivate Sub sumiMenu_Click()frmsumi.ShowEnd SubDim mrc As ADODB.RecordsetDim MsgText As StringDim tSQL As StringPrivate Sub Combo1_Click()Text1(4) = Combo1.TextIf Label1(3).BackColor <>&HFFFFFF ThenIf Label2(4).Caption = Combo1.Text ThenCombo1.BackColor = &HE0E0E0ElseCombo1.BackColor = &HFFFFFFEnd IfEnd IfEnd SubPrivate Sub Command1_Click()Dim txtSQL As StringFor i = 0 To 7If i <> 4 ThenIf Text1(i) = Label2(i).Caption ThenMsgBox "请" & Label2(i).Caption & "!", vbOKOnly, "提示" Text1(i).SetFocusExit SubEnd IfElseIf Text1(i) = Label2(i).Caption ThenMsgBox "请" & Label2(i).Caption & "!", vbOKOnly, "提示"Combo1.SetFocusExit SubEnd IfEnd IfNextIf IsDate(Text1(3)) = False ThenMsgBox "出生日期应为日期格式(yyyy-mm-dd)!", vbOKOnly, "警告"Text1(3).SetFocusExit SubEnd IfIf IsDate(Text1(6)) = False ThenMsgBox "入学日期应为日期格式(yyyy-mm-dd)!", vbOKOnly, "警告"Text1(6).SetFocusExit SubEnd IftxtSQL = "select * from student_Form where student_NO='" & Trim(Text1(0)) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "学号不能重复!", vbOKOnly, "警告"Text1(0).SetFocusExit SubEnd Ifmrc.ClosetxtSQL = "select * from student_Form"Set mrc = 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.Fields(4) = Trim(Text1(4))mrc.Fields(5) = Trim(Text1(5))mrc.Fields(6) = Trim(Text1(6))mrc.Fields(7) = Trim(Text1(7))If Text1(8) = Label2(8).Caption Thenmrc.Fields(8) = ""Elsemrc.Fields(8) = Trim(Text1(8))End Ifmrc.Updatemrc.CloseMsgBox "学籍信息添加成功!", vbOKOnly, "提示"With MSFlexGrid1.Rows = .Rows + 1.TextMatrix(.Rows - 1, 0) = Trim(Text1(0)).TextMatrix(.Rows - 1, 1) = Trim(Text1(1)).TextMatrix(.Rows - 1, 2) = Trim(Text1(2)).TextMatrix(.Rows - 1, 3) = Trim(Text1(3)).TextMatrix(.Rows - 1, 4) = Trim(Text1(4)).TextMatrix(.Rows - 1, 5) = Trim(Text1(5)).TextMatrix(.Rows - 1, 6) = Trim(Text1(6)).TextMatrix(.Rows - 1, 7) = Trim(Text1(7))If Text1(8) <> Label2(8).Caption Then.TextMatrix(.Rows - 1, 8) = Trim(Text1(8))End IfEnd WithMSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1TextDcolorEnd SubPrivate Sub Command2_Click()Dim j As IntegerDim txtSQL As StringIf Text1(5) <> Label2(5).Caption ThenIf IsDate(Text1(5)) = False ThenMsgBox "起始日期应为日期格式(yyyy-mm-dd)!", vbOKOnly, "警告"Text1(5).SetFocusExit SubElseText1(5) = Format(Text1(5), "yyyy-mm-dd")End IfEnd IfIf Text1(6) <> Label2(6).Caption ThenIf IsDate(Text1(6)) = False ThenMsgBox "起始日期应为日期格式(yyyy-mm-dd)!", vbOKOnly, "警告"Text1(6).SetFocusExit SubElseText1(6) = Format(Text1(6), "yyyy-mm-dd")End IfEnd IftxtSQL = "select * from student_Form"If Text1(0) <> Label2(0).Caption ThentxtSQL = txtSQL & " where student_NO='" & Trim(Text1(0)) & "'"End IfIf Text1(1) <> Label2(1).Caption ThenIf txtSQL = "select * from student_Form" ThentxtSQL = txtSQL & " where student_Name='" & Trim(Text1(1)) & "'"ElsetxtSQL = txtSQL & " and student_Name='" & Trim(Text1(1)) & "'"End IfEnd IfIf Text1(4) <> Label2(4).Caption ThenIf txtSQL = "select * from student_Form" ThentxtSQL = txtSQL & " where student_Cla='" & Trim(Text1(4)) & "'"ElsetxtSQL = txtSQL & " and student_Cla='" & Trim(Text1(4)) & "'"End IfEnd IfIf Text1(5) <> Label2(5).Caption And Text1(6) <> Label2(6).Caption Then If txtSQL = "select * from student_Form" ThentxtSQL = txtSQL & " where Format(student_Esd,'yyyy-mm-dd') >='" & Trim(Text1(5)) & "'and Format(student_Esd,'yyyy-mm-dd') <='" & Trim(Text1(6)) & "'"ElsetxtSQL = txtSQL & " and Format(student_Esd,'yyyy-mm-dd') >='" & Trim(Text1(5)) & "'and Format(student_Esd,'yyyy-mm-dd') <='" & Trim(Text1(6)) & "'"End IfEnd IfSet mrc = ExecuteSQL(txtSQL, MsgText)j = 1Do While Not mrc.EOFj = j + 1mrc.MoveNextLoopProgressBar1.Visible = TrueProgressBar1.Min = CInt(0)ProgressBar1.Max = CInt(j)Set mrc = ExecuteSQL(txtSQL, MsgText)Frame1.Visible = TrueWith MSFlexGrid1.Visible = False.Rows = 1ProgressBar1.Value = .RowsDo While Not mrc.EOF.Rows = .Rows + 1For i = 0 To mrc.Fields.Count - 1Select Case mrc.Fields(i).TypeCase adDBDate.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i) & "", "yyyy-mm-dd")Case Else.TextMatrix(.Rows - 1, i) = mrc.Fields(i) & ""End SelectNext imrc.MoveNextLoop.Visible = TrueEnd WithFrame1.Visible = Falsemrc.CloseTextDcolorText1(4).Visible = TrueCombo1.Visible = FalseText1(2).Enabled = FalseText1(3).Enabled = FalseText1(7).Enabled = FalseText1(8).Enabled = FalseEnd SubPrivate Sub Command3_Click()Dim txtSQL As StringDim j As IntegerFor i = 0 To 7If i <> 4 ThenIf Text1(i) = Label2(i).Caption ThenMsgBox "请" & Label2(i).Caption & "!", vbOKOnly, "提示"Text1(i).SetFocusExit SubEnd IfElseIf Text1(i) = Label2(i).Caption ThenMsgBox "请" & Label2(i).Caption & "!", vbOKOnly, "提示"Combo1.SetFocusExit SubEnd IfEnd IfNextIf IsDate(Text1(3)) = False ThenMsgBox "出生日期应为日期格式(yyyy-mm-dd)!", vbOKOnly, "警告"Text1(3).SetFocusExit SubEnd IfIf IsDate(Text1(6)) = False ThenMsgBox "入学日期应为日期格式(yyyy-mm-dd)!", vbOKOnly, "警告"Text1(6).SetFocusExit SubEnd IftxtSQL = "delete from student_Form where student_NO='" & Trim(Text1(0)) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "select * from student_Form"Set mrc = 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.Fields(4) = Trim(Text1(4))mrc.Fields(5) = Trim(Text1(5))mrc.Fields(6) = Trim(Text1(6))mrc.Fields(7) = Trim(Text1(7))If Text1(8) = Label2(8).Caption Thenmrc.Fields(8) = ""Elsemrc.Fields(8) = Trim(Text1(8))End Ifmrc.Updatemrc.CloseMsgBox "学籍信息修改成功!", vbOKOnly, "提示"j = 0For i = 1 To MSFlexGrid1.Rows - 1If MSFlexGrid1.TextMatrix(i, 0) = Text1(0) Thenj = iEnd IfNextIf j <> 0 ThenMSFlexGrid1.TextMatrix(j, 0) = Trim(Text1(0))MSFlexGrid1.TextMatrix(j, 1) = Trim(Text1(1))MSFlexGrid1.TextMatrix(j, 2) = Trim(Text1(2))MSFlexGrid1.TextMatrix(j, 3) = Trim(Text1(3))MSFlexGrid1.TextMatrix(j, 4) = Trim(Text1(4))MSFlexGrid1.TextMatrix(j, 5) = Trim(Text1(5))MSFlexGrid1.TextMatrix(j, 6) = Trim(Text1(6))MSFlexGrid1.TextMatrix(j, 7) = Trim(Text1(7))If Text1(8) <> Label2(8).Caption ThenMSFlexGrid1.TextMatrix(j, 8) = Trim(Text1(8))End IfEnd IfMSFlexGrid1.TopRow = jj = 0TextDcolorEnd SubPrivate Sub Command4_Click()Dim txtSQL As StringDim j As IntegertxtSQL = "delete from student_Form where student_NO='" & Trim(Text1(0)) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText)MsgBox "学籍信息已经删除!", vbOKOnly, "提示"j = 0For i = 1 To MSFlexGrid1.Rows - 1If MSFlexGrid1.TextMatrix(i, 0) = Text1(0) Thenj = iEnd IfNextIf j <> 0 ThenMSFlexGrid1.TextMatrix(j, 0) = "已删除"MSFlexGrid1.TextMatrix(j, 1) = "已删除"MSFlexGrid1.TextMatrix(j, 2) = "已删除"MSFlexGrid1.TextMatrix(j, 3) = "已删除"MSFlexGrid1.TextMatrix(j, 4) = "已删除"MSFlexGrid1.TextMatrix(j, 5) = "已删除"MSFlexGrid1.TextMatrix(j, 6) = "已删除"MSFlexGrid1.TextMatrix(j, 7) = "已删除"MSFlexGrid1.TextMatrix(j, 8) = "已删除"End Ifj = 0TextDcolorText1(1).Enabled = FalseText1(2).Enabled = FalseText1(3).Enabled = FalseCombo1.Enabled = FalseText1(4).Enabled = FalseText1(5).Enabled = FalseText1(6).Enabled = FalseText1(7).Enabled = FalseText1(8).Enabled = FalseEnd SubPrivate Sub Command5_Click()TextDcolorIf Label1(1).BackColor = &HFFFFFF ThenMSFlexGrid1.ClearShowTitleText1(4).Visible = TrueCombo1.Visible = FalseText1(2).Enabled = FalseText1(3).Enabled = FalseText1(7).Enabled = FalseText1(8).Enabled = FalseEnd IfIf Label1(3).BackColor = &HFFFFFF ThenText1(1).Enabled = FalseText1(2).Enabled = FalseText1(3).Enabled = FalseCombo1.Enabled = FalseText1(4).Enabled = FalseText1(5).Enabled = FalseText1(6).Enabled = FalseText1(7).Enabled = FalseText1(8).Enabled = FalseEnd IfEnd SubPrivate Sub Form_Load()8.6课程信息管理模块：Dim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Combo1_Click()List1TextEnd SubPrivate Sub Command1_Click()Dim txtSQL As StringIf Text1(0) = "" ThenMsgBox " 课程名称不能为空!", vbOKOnly, "提示"Text1(0).SetFocusExit SubEnd IftxtSQL = "select * from course_Form where course_Name='" & Trim(Text1(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "此课程名称已经存在!", vbOKOnly, "警告"Text1(0).SetFocusExit SubEnd Ifmrc.ClosetxtSQL = "select * from course_Form"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(Text1(0))mrc.Fields(1) = Trim(Text1(1))。