学生档案管理系统(vb)

合集下载

基于VB档案管理系统的设计与实现

（ＸｉｎｇｙｉＮｏｒｍａｌＵｎｉｖｅｒｓｉｔｙｆｏｒＮａｔｉｏｎａｌｉｔｉｅｓ，Ｘｉｎｇｙｉ，Ｇｕｉｚｈｏｕ５６２４００）
Ａｂｓｔｒａｃｔ：Ｔｈｅｍｏｓｔｓｃｉｅｎｔｉｉｃｆｍａｎａｇｅｍｅｎｔｍｏｄｅｏｆｉｆｌｅｍａｎａｇｅｍｅｎｔｓｙｓｔｅｍｉｓｅｌｅｃｔｒｏｎｉｃｒｅｃｏｒｄｓ．Ｉｔａｃｃｅｐｔｅｄｂｙｐｅｏｐｌｅｆｏｒｉｔ＇ｓｍｅｉｒｔｓｏｆｓｉｍｐｌｅｓｔｒｕｃｔｕｒｅ，ｅａｓｙｏｐｅｒａｔｉｏｎ，ｌａｒｇｅｉｎｆｏｒｍａｔｉｏｎｃａｐａｃｉｔｙａｎｄｔｈｅｆａｓｔｒｅｔｉｒｅｖａｌｓｐｅｅｄ．Ｉｎｏｒｄｅｒｔｏｅｎｓｕｒｅｔｈｅａｂｓｏｌｕｔｅｓｅｅｕ－ｒｉｔｙｏｆｉｆｌｅｄａｔａ，ｈｅｔｄｅｓｉｇｎｏｆｔｈｅｉｆｌｅｓｙｓｔｅｍｕｓｅｏｆｈｅｔＣｌｉｅｎｔ／ＳｅｒｖｅｒｍｏｄｅｌｗｈｉｃｈｂａｓｅｄｏｎＶＢｄｅｖｅｌｏｐｍｅｎｔ．Ｋｅｙｗｏｒｄｓ：ＶＢ；ｉｆｌｅｍａｎａｇｅｍｅｎｔ；ｉｎｆｏｍａｒｔｉｏｎ

基于VB.NET的高校综合档案管理系统

近几年来，信息化管理技术已经广泛地应用于各类企事业单位。综合档案管理是组织人事处综合档案室工作的一
个重要组成部分，于学校的决策者和管理者来说至关重对
（）１档案基本信息表，包括的字段有：号（档主键）责任、者、文号、归档类别代号、归档部门、交人、移题名、管期限、保文件形成日期、页数、保密级别、归档日期、置号、态、位状鉴
量起着关键性的作用。本系统包含数据字典表、密级别保
基于综合档案管理的需要，序系统共划分为连接数据程
库服务器、基本数据管理、档案数据管理、档案整理、系统维护五个功能模块，图１如所示
表、保管期限表、归档类别表、归档部门表及用户信息表和档案基本信息表。设计结构如下：
保管期限。（）５归档类别表，括的字段有：包归档类别代号（主键）、归档类别名称。
在此系统的开发过程中，要用到了ＶｓａＳｕｉ．Ｅ主ｉｌｔｄＮＴｕｏ２００５中的ＶｓａＢｓ．Ｅ而数据库使用的是ＳＬＳｒｅｉｌａｉＮＴ，ｕｃＱｅｒｖ
定、注。备
要。目前综合档案管理大多采用人工管理的方式，用这种方式管理文件档案存在着许多缺点，如效率低、密性差，保对于查找、更新和维护都带来了不少的困难。为了提高综合档案
的统一管理和信息共享，提高工作效率，为用户提供充足的信息和快捷的查询手段，我们开发设计了连云港职业技术学院综合档案管理系统，望为综合档案的有效管理提供范希

基于B╱S模式的学生电子档案管理系统的设计与实现

郑州轻工业学院本科毕业设计（论文）题目基于B/S模式的学生电子档案管理系统的设计与实现学生姓名朱小燕专业班级计算机科学与技术08-1班学号200807010156院（系）计算机与通信工程学院指导教师(职称) 司丽娜（讲师）完成时间2012 年5月21日郑州轻工业学院毕业设计（论文）任务书题目基于B/S模式的学生电子档案管理系统的设计与实现专业计算机科学与技术学号200807010156姓名朱小燕主要内容、基本要求、主要参考资料等：主要内容：本系统设计的主要是对学生电子档案信息进行统计管理，以方便地查询出每个学生的档案信息。

基本要求： 1. 各模块的基本功能都能实现。

2. 计严谨、功能完备。

3. 界面美观大方，使用方便。

4. 要方便使用者操作。

主要参考资料：[1] 刘瑞新. ASP网页数据库短训教程. 北京:机械工业出版社，2002.[2] 龙守堪. ASP编程基础与实例. 北京:机械工业出版社，1998[3] 陈峰棋,俞彬.深入浅出程序设计.北京:中国水利水电出版社，2004.[4] 孙振业. 网页设计与制作.北京:高等教育出版社[5] 陈春玲.软件工程与数据库概论．西安:西电科大出版社,1999.完成期限： 2012年6月1日指导教师签章：专业负责人签章：年月日目录摘要 ......................................................IV ABSTRACT (II)1 绪论 (1)1.1引言 (1)1.2目前研究状况 (1)1.3研究目标及解决的主要内容 (2)2系统开发相关技术及工具介绍 (4)2.1 ASP概述 (4)2.2 VBScript介绍 (4)2.3 数据库技术 (4)2.3.1 SQL Server2000 (4)2.3.2 ASP与数据库的访问及连接 (5)3系统需求分析 (8)3.1 系统开发的目标 (8)3.2 系统可行性分析 (8)3.2.1 技术可行性 (8)3.2.2 经济可行性 (9)3.2.3 操作可行性 (9)3.3 系统功能分析 (9)3.3.1系统功能模块分析 (9)3.3.2 系统模块组成 (10)3.4 数据流图分析 (11)3.4.1 数据流程图 (11)3.4.2 数据存储分析 (11)4 学生档案管理系统概述 (14)4.1 系统的总体设计 (14)4.1.1 系统分析 (14)4.1.2 学生档案信息管理模块 (16)4.1.3 课程管理模块 (16)4.1.4 成绩管理模块 (16)4.1.5 班级管理模块 (16)4.2 数据库设计 (16)4.2.1 数据库概念设计 (18)4.2.2 逻辑设计 (21)4.2.3 数据物理结构设计 (22)5 系统详细设计与实现 (26)5.1 登录界面的设计实现 (26)5.2 信息管理主界面 (29)5.3 用户管理模块 (32)5.4 学生成绩管理模块 (33)5.5 班级管理模块 (33)5.6 科目管理模块 (34)6 统测试与分析 (35)6.1 统测试 (35)6.1.1测试方法 (35)6.1.2 测试原则 (36)6.1.3 测试分析 (37)结束语 (38)致谢 (40)参考文献 (41)基于B/S模式的学生电子档案管理系统的设计与实现摘要随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已体现在人类社会的各个领域并发挥着越来越重要的作用。

学生档案管理系统方案

学生档案管理系统摘要：随着科技时代的飞速开展，人们也加快了公司业务的步伐，于是竞争愈来愈激烈。

如何让企业在这弱肉强食的时代立足下去，这是个迫切需要解决的问题，因此对于为求生存的企业而言，一个良好系统的作用是不言而喻的，只有优化企业部体系，才能最大限度支配时间，减少不必要的浪费，同时也可以减少工作人员的工作量，让其处理其他事项。

当今经济全球化趋势愈加明显，更多为利所趋的企业和商家开始在国外设立分支机构，开展业务，所以跨区域、跨国度移动办公人员数量也大幅增加，这样也就容易出现更多的问题。

每个行业开展壮大后都会遭遇如此问题。

学校容纳了千数或万数学生，自然也不可防止面临着学生信息管理的问题。

高校扩招后，学生的数量骤然增加，数据量也就随之增多，所以一个好的管理系统需要能够为学校人事管理给予方便、简易、完善的查询方式。

早期，学校管理工作都是应用传统的管理方式，即用人力来管理学生信息、文件档案等。

这种管理方式确实存在很多缺点，不仅需要很多人力来维护更新，并且在搜索信息时也费时费力。

相较手工管理方式管理信息，这种新的学生档案管理系统管理配置文件信息有着其无法比拟的优势。

使用Visual Studio 2008程序来编写学生档案管理系统。

它的总体思路是：建立一个项目，这个系统能够参与每个模块窗体，报表，等等。

在此根底之上建立一些，最后编译和制作安装盘，以善用人才，以更好地利用这个软件。

关键词：计算机；数据库；Visual Studio 2008Students file management systemAbstract：With the rapid development of science and technology era, people also accelerated the pace of the company, so more and more competitive.How to make the enterprise in this era of predatory based on down, this is an urgent need to solve the problem, thus for enterprise to survive, the role of a good system is self-evident, only optimize the enterprise internal system, can maximum limit time, reduce unnecessary waste, at the same time can also reduce the workload of staff, to deal with other matters.In today's economic globalization trend is more obvious, more hasten is for the enterprises and businesses begin to set up branches at home and abroad, to do business, so the cross-regional, cross-border mobile office workers number is increased, which is easy to appear more problems.After each industry development would encounter such a problem.Schools contains thousands of number or the number, nature also inevitably faced with the student information management problems.After the enrollment expansion of colleges and universities, the number of students increased sharply, the data quantity is more, so a good management system needs to school personnel management convenient, simple and easy, improve the way of the query.Early, the school management is the traditional way of management, which USES manpower to manage student information, documents, etc.This management way exists many shortcomings, not only need a lot of manpower to maintenance updates, and are also time-consuming when searching for pared with manual management way of management information, the new student records management system management configuration file information has its incomparable advantage. Using Visual Studio 2008 program to write the student file management system.Its general idea is: first create a project, the system is able to participate in each module forms, reports,and so on.On the basis of the established some, and finally to compile and make installation disk, to make good use of talents, in order to better use of this software.key words ：the computer; Database; Visual Studio 2008目录第一章前言01.1 学生档案管理系统的背景01.2 学生档案管理系统开发意义01.3 系统设计的工具简介01.4 系统设计的主要任务和预期目标21.4.1 主要任务21.4.2 预期目标2第二章系统需求22.1 系统功能需求22.2 系统性能需求32.3 系统数据要求32.4 系统运行要求4第三章系统设计43.1 总体设计43.1.1 项目概述43.2 详细设计7第四章编码计划26第五章测试31第六章结语33附录36第一章前言1.1 学生档案管理系统的背景在学生综合信息管理系统未曾开发并被广泛利用之前，人们长期以来都只是使用非常传统的人工管理的方法来管理人数众多的学生的信息。

毕业设计论文题目汇总

毕业设计(论文)题目员工考勤管理系统图书馆借阅管理系统网上拍卖系统超市管理系统图书管理系统学生公寓管理系统xxx资源网的设计与开发计算器的设计计算器的设计与实现JSP人事综合信息管理系统的设计与实现健康饮食网站设计基于java的图书管理系统的设计与开发网络聊天室设计与实现xx市三益医疗器械有限责任公司网站开发与设计蓬莱利朗葡萄酒网站设计与实现基于ssh的学生成绩查询系统xx市环球酿造有限责任公司网站设计酒店管理系统xx集团网站开发与设计图书管理系统学生信息管理系统xx校园网络建设教授个人教学网站建设学校图书管理系统VB文件档案管理系统图书管理系统xx大酒店网络组建方案校园局域网规划与管理销售供应链管理系统的设计与开发学校图书管理系统的设计局域网财务管理系统的设计IT学习论坛系统在线拍卖平台系统xx学院计算机排课系统的设计与实现ATM自动取款机终端系统ASP产品销售管理系统朝阳小学校园网络改造与建设企业网站设计与制作企业财务管理系统读者信息管理系统的设计泰来服装销售系统小型财务办公管理系统网上书店企业组网实施方案基于Web的网上购物系统企业网接入方案设计网页聊天系统网上书店系统局域网的信息安全与病毒防治策略动态电子商务网站制作局域网网络安全问题剖析居家装饰公司网站设计研究方案局域网信息安全与病毒防治策略中国风系列画册设计网络聊天室超市管理系统互联网信息安全控制与病毒防治措施个人网站设计与制作计算机图书管理系统局域网安全策略方案研究办公自动化系统的设计与实现基于的在线考试系统电子商务网站开发与设计学生信息管理系统电子商务网站开发与设计基于技术的动态IT培训网站的设计与实现小型网上商城的设计与实现企业门户网站的开发与设计基于PHP的在线留言管理系统设计与开发图书馆借阅管理系统网络聊天室的开发与设计无线、有线融合网络环境下不同丢包区分算法性能的研究电子商务网站开发与设计图书管理系统的设计与实现人事管理系统学生管理系统图书馆管理系统酒店管理系统基于VC++的图书馆管理系统学生信息管理系统学生信息管理系统产品管理系统火车订票系统在线答疑图书馆管理系统在线答疑图书管理系统在线答疑系统基于WEB的网上答疑系统网上答疑软件工程学院论坛系统网上订餐系统新闻发布系统在线求职网超市管理系统企业网站的建设与管理基于WEB的成绩管理设计与实现鲜花销售系统电脑销售管理系统设计与开发网络考试系统个人防火墙研究—状态检测学生信息管理系统个人博客的设计与实现网上选课系统基于的留言板设计高校教师管理系统人事信息管理系统超市管理系统学生信息管理系统学生在线选课系统图书馆查询系统8086/8088系统仿真技术个人空间及留言板的设计与实现校园网络规划设计方案耗材管理系统学生信息管理系统图书管理系统个人博客系统诚鑫贸易销售网网上团购系统进销存管理系统人力资源管理系统网上购物系统学员管理系统的研究与实现开发酒店管理系统生产管理系统flash cs3课件制作技术与应用动态网页制作——“吉他时代”3D MAX在建筑中的应用——室内设计Maya与After Effects在影视创作中的运用成绩管理系统用数据库语言编写销售管理系统网上购物系统网上考试系统学生公寓管理信息系统Maya室内设计高校学生选课系统企业人员信息管理系统教育宣传网站的设计与实现学生公寓管理系统个人网页设计与制作学生信息管理系统学生成绩查询系统B2C电子商务系统图书借阅管理系统个人博客系统数字时钟的设计与制作MP3播放器的制作小区物业管理系统在线购物系统的设计与实现服装进销存管理系统电子商务网站的设计与实现-系统前台设计xx集团无线局域网规划与建设xx学院学生选课系统航空公司管理系统超市管理系统学生档案管理系统俄罗斯方块的设计与实现同学录设计与实现计算机网络安全超市管理系统Flash播放器的制作电子商城网站Linux全能服务器搭建LAMP实验课在线答疑系统学生选课系统学生选课系统学生选课系统网上购物系统设计网络故障及解决办法。

学生信息管理系统毕业论文

前言学生档案管理系统其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，对于前者要求建立起数据库一致性和完整性、数据安全性好的库。

而对于后者则要求应用程序功能完备，易使用等特点。

经过分析，使我们使用易于与数据库连接的Microsoft Visual Basic 6.0开发工具，利用其提供的各种面向对象的开发工具，尤其是数据库窗口这一功能强大而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原形，然后，对初始原型系统进行需求分析，不断修正和改进，直到形成用户满意的可行系统。

学生档案管理系统是每个学校教育环节不可缺少的一部分，它的内容对学校的决策者和管理者来说至关重要，所以该系统应该能够为用户提供充足的信息和快捷的查询手段。

但一直以来人们使用传统人工方式管理文件档案，这种管理方式存在着许多缺点，如：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不便。

随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，他已进入人类社会的各个领域并发挥着越来越重要的作用。

早期的校园网络、如今的web宽带网都为我们共享数据提供了前所未有的方便，由此，建立高性能的学生档案管理系统，作为计算机应用的一部分，使用计算机对学生信息管理，具有手工管理无法比拟的优点，如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，这些优点能够极大的提高学生档案管理的效率，也是科学化、正规化的体现。

因此，开发这样的软件系统是很必要的。

摘要学生档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强、数据安全性好的库。

而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,我们使用MICROSOFT公司的VISUAL BASIC6.0开发工具,以MICROSOFT SQL SERVER数据库作为系统的后台操作,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

学生档案管理系统

学生档案管理系统1.课程设计目的数据库课程设计是为数据库原理及应用课程而独立开设的实践性课程,对于巩固数据库知识，加强学生的实际动手能力和提高学生综合素质十分必要。

通过本实验达到以下目的：(1)培养学生具有C/S和B/S/S模式的数据库应用软件系统的设计和开发能力。

(2)熟练掌握一种数据库系统(如SQL SERVER)的使用。

(3)熟练掌握一种数据库应用软件开发工具（如POWERBUILDER 、ASP、）的使用。

通过设计实际的数据库系统应用课题，进一步熟悉数据库管理系统的操作技术，提高动手能力，提高分析问题和解决问题的能力。

2.系统功能设计（1）系统功能模块图（2）功能说明四个子系统的功能如下：①登录子系统可以实现登录用户登录管理②查询子系统：主要用于用户查询学生信息，其中直接查询包括按学号直接查询，按课程号查询；多条件查询可以按用户的要求查询信息③更新信息子系统主要由教师、管理员和超级管理员进行学生信息的更新。

④管理子系统：由超级管理员管理系统，管理查询信息，管理更新信息，管理用户登录帐户，管理删除信息。

⑤帮助子系统：主要提供用户的使用本系统的操作手册。

3．数据库概念设计（E-R图设计）对于学生信息的管理，我们可以将学生实体抽象出来，根据所要实现的功能设计，可建立它们之间的关系，进而实现逻辑结构功能。

学生管理信息系统可以划分的实体有：用户登录信息实体、学生基本信息实体、课程基本信息实体、学生课程成绩信息实体。

用E-R图一一描述这些实体。

（1）用户登录信息实体课程设计说明书 N O.3用户登录信息登录名口令权限级别图2.1用户登录实体及其属性图（2）学生基本信息实体学生基本信息学号专业姓名性别出生时间备注总学分图2.2学生基本信息实体及属性（3）课程基本信息实体课程基本信息课程名学分学时学期课程号图2.3 课程基本信息实体及属性（4）学生课程成绩信息实体学生课程成绩信息实体学号学分成绩课程号图2.4 学生课程成绩信息实体及属性（5）超级管理员实体图（6）.用户信息实体图超级管理员管理员姓名管理员编号管理员密码管理员权限用户权限用户名密码（7）.学生课程成绩三者实体间的联系图4.数据库逻辑设计表1 学生基本信息表表中列名数据类型可否为空说明 XH char not null(主键）学号 XM char not null 姓名 XB bitnot null 性别CSSJ smalldatetime not null 出生时间 ZY char null 专业 ZXF tinyint null 总学分 BZtext null 备注课程学生专业学号出生日期姓名查询成绩学期课程号课程名称学时成绩表2 课程信息表表中列名数据类型可否为空说明KCH char not null(主键）课程号KCM char not null 课程名XQ tinyint null 学期XS tinyint null 学时XF tinyint null 学分表3 学生课程成绩信息表表中列名数据类型可否为空说明XH char not null(主键）学号KCH char not null(主键）课程名CJ tinyint null 成绩XF tinyint null 学分表4 用户登录信息结构表表中列名数据类型可否为空说明DLM char not null(主键）登录名KL char not null 口令QXJB tinyint not null 权限级别5.数据库物理设计物理设计数据库的物理设计就是为一个给定的逻辑数据模型选取一个最适合应用要求的物理结构的过程。

VB学生信息管理系统-任务书

Visual Basic程序设计实验知道与习题解答出版社：电子工业出版社作者：林伟建
中文Visual Basic 6。0使用教程出版社：北京希望电子出版社作者：尹乾王颖欣等
Access2000中文版高级编程出版社：人民邮电出版社作者：F.Scott Barker
Access2000中文版实用教程出版社：人民邮电出版社作者：康博创作室
进行学生基本信息的管理，班级信息的管理，成绩信息的管理系统设计
数据库的管理与维护。
主要内容包括系统的维护工
撰写毕业论文并提交论文
5.实现学生课程管理的系统化、规范化和自动化。
开发工具采用：Visual Basic 6.0数据库采用：Access2000
设计
（论文）
的主
要技
术指
标
1.学生各种信息的输入，包括学生基本信息、学历信息、健康状况、学位等
2.学生各种信息的修改
3.对于升学、毕业、开除信息的删除
4.按照某种条件，查询、统计符合条件的学生信息
设计
（论文）
的主
要技
术指
标
6.学生各种信息的输入，包括学生基本信息、学历信息、健康状况、学位等
7.学生各种信息的修改
8.对于升学、毕业、开除信息的删除
9.按照某种条件，查询、统计符合条件的学生信息
10.学生考勤统计信息。包括缺勤时间、缺勤天数、缺勤类别等。
6学生考勤统计
7档案/成绩/考勤系统的使用帮助
经过分析,我们使用MICROSOFT公司的VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

基于VB6.0与SQL建立的教务管理系统

型，证了代码的模块化，代码模块化的保而提高，常有利于以后对系统的扩展和修非改。而ＭｉｒｓｆＳｌＳｒｅ是一个支持多ｃｏｏｔｑｅｖｒ用户的数据库系统，于大中规模的数据适用
档案信息［学号（ｎａｃａ，）姓名（ｎｖｒｈｒ５，ｖｒｈｒ８，ａｃａ，）性别（ｎａｃａ，）级（ｎａｖｒｈｒ２，班ｖｒ能。）（课程管理模块：４该模块主要用于各所ｃａｒ１）出生年月（ｓｌａｅｉ，）家ｈｅ，０，ｍａｌｔｔｄｍｅ４，上课程信息管理工作，其有课程添加、程庭住址（ｎａａ，０，课ｖｍｈｒ３）邮政编码（ｎａｃａｖｒｈ安排、课程查询等功能。５成绩管理模块：ｒ５）联系电话（ｎａｃａ，０，学时间（（），０，ｖｒｈｒ５）入该模块主要用于学生成绩管理，有添加ｓｌａｅｍｅ４，其ｍａｌｔｔ，）备注（ｎｅｔ１）ｄｉｔｘ，１】ｉ５
・
软件设计开发・
基于Ｖ６０ＳＬ建立的教务管理系统Ｂ．与Ｑ
肖冬梅
（四川省交通管理学校
四川成都
６０４）１０１
摘要：务管理主要负责对学生档案进行管理，教课程进行安排，是一项非常重要的工作，决定着一个学校的教学质量高低，
甚至一个学校的发展的好坏。
关键词：务管理计算机教中图分类号：Ｐ９．８Ｔ３３１文献标识码：Ａ
本教务管理系统采用Ｖ６０Ｂ．作为前台开发工具，台采用ＭｉｒｓｆＳｌＳｒｅ。后ｃｏｏｔｑｅｖｒＶＢ有快速友好的用户界面，于对多种具便数据进行操作，于掌握等特点，易同时，为作种现代的编程语言，提供完善的指令ＶＢ控制语言、与对象的支持及丰富的数据类类

基于VB的档案管理系统的设计与实现

中图法分类号：ＴＰ３１５Ｇ２５
文献标识码：Ａ
ＤＯＩ：１０．３９６９／ｊ．ｉｓｓｎ．１００３ — ６９７０．２０１３．０６．０１６
本文著录格式：［１］闫美玲．基于ＶＢ的档案管理系统的设计与实现 Ⅱ ］．软件，２０１３，３４（６）：５１ — ５２
１主体模块设计
１．１登陆模块设计
新建一个窗体，在窗体上添加两个Ｌａｂｅｌ，两个文本框，两个按钮；在属性窗口中分别改它们的属性，并添加方法。
子窗体， “ 修改”按钮分别调用ＳＳＴａｂ下的每个子窗体， “ 删除”
按钮可删除每个ＳＳＴａｂ下的ＤａｔａＧｒｉｄ列表中的数据。
０引言
高校教师档案管理系统是教育单位不可缺少的部分，人们
印”按钮可打印ＤａｔａＧｉｆｄ列表中的数据。在子窗体中放置一些Ｌａｅｌｂ、ＴｅｘｔＢｏｘ、ＣｏｍｂｏＢｏｘ等控件，
ｏｍｂｏＢｏｘ控件使用传统的人工方式管理文件档案存在着许多缺点和漏洞。在用作标题和录入数据。当窗体装载完毕时，向Ｃ性别” “ 婚姻状况” “ 政治面貌” “ 文化程度”等数据。当今信息时代这种传统的管理方法必然被计算机为基础的信息中装入 “ ｔｉｖａｔｅ事件下，设置 “ 姓名”文本框获得焦点，管理系统所代替。本系统的开发能够给用户带来方便，进一步在此窗体的Ａｃ提高办学效益和现代化水平，帮助高校提高工作效率，实现高以方便用户录入数据。在保存数据前用户首先判断用户是属于新增数据录入模式还是数据修改模式。校教师档案管理工作流程的系统化、规范化和自动化。

学生档案管理系统

_
实现菜单选项
菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。
您可以使用Visual Basic的Application Wizard也可以使用Visual Basic的菜单编辑器建立菜单或者修改已经存在的菜单。
Keywords ActiveX , Form , Field .
--------------前言--------------
学生档案管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
_关于版本
为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。Visual Basic允许你使用APP对象来保存这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些APP提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。
第三章
Windows下的Visual
)。Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。
Visual Basic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。

学生学籍管理信息系统

学生学籍管理信息系统用户描述1.引言随着信息技术高速发展，信息化程度的不断提高，计算机的应用已普及到经济和社会生活的各个领域。

计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作的不方便而继续沿用传统的手工劳动。

为了适应现代社会的高效率，提高当前在教学领域的管理水平，我们特开发一套学籍管理系统。

该系统由目前主流的程序设计开发工具实现，其功能在系统内部由源代码直接完成。

通过操作手册，用户可以了解本软件的基本工作原理。

操作人员只需输入一些简单的汉字、数字，即可达到自己的目标，从而为教学办公自动化带来了极大的方便。

1.1编写目的此文档作为用户对即将开发的软件的功能要求，是软件设计和开发者的主要依据。

1.2项目背景项目名称：学生学籍管理信息系统项目委托单位：XXX软件开发单位：hustwh_xj2.任务描述2.1目标使得学籍管理更为完善；对学生档案的管理更为方便；减轻教学管理人员的工作量。

2.2运行环境本系统是基于C/S模式的采用vb实现的学生管理信息系统（Students Management Information System），以后简称SMIS。

数据库服务器由access实现。

操作系统：WINDOWS xp；数据库服务器端软件Microsoft Access2000 + SQL查询语句。

3.数据描述1.数据流程图：2.针对这个处理流程，现具体描述如下：①用户登录：对系统进行初始化设置，包括对专业、课程和班级的设置②新生报到：按专业分班进行教学，并为每位新生分配学号，然后对学生基本信息进行录入，③学生分配到班级、领教材开始新的大学学习生活④用户对学生在校期间个人基本信息发生变化的，在系统中进行修改⑤期末考试结束，把每个学生的成绩进行录入、修改、查询和打印3.功能3.1功能划分学生档案管理系统必须完成以下功能：系统管理模块学籍管理模块，班级管理模块，专业课程管理模块，成绩管理模块，用户帮助模块。

3.2描述系统管理模块：包括用户管理，重新登录，退出系统子功能学籍管理模块：包括学生添加学生查询学生注销学生打印子功能。

VB+SQL学生信息管理系统

计算机网络数据库设计题目: 学生信息管理系统学号xx姓名xx专业xxxx日期2006年12月8日随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。

面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。

通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。

本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。

本系统主要包括学生信息查询、教务信息维护和学生选课三部分。

其功能主要有：⒈有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。

⒉学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。

⒊学生信息的修改。

⒋班级管理信息的输入，包括输入班级设置、年级信息等。

⒌班级管理信息的查询。

⒍班级管理信息的修改。

⒎学生课程的设置和修改。

学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2000数据库完成。

该系统总体有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。

通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。

通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。

本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。

学生档案管理系统

学生档案管理系统专业班级: 姓名: 学号: 指导教师:200年月日目录【摘要】........................................ 错误！未定义书签。

【关键词】 .......................................错误！未定义书签。

【 Summary 】 ....................................错误！未定义书签。

前言 ............................................错误！未定义书签。

第一章概述 ......................................错误！未定义书签。

1．1 开发背景................................错误！未定义书签。

1．2 开发环境...............................错误！未定义书签。

第二章系统分析和设计............................错误！未定义书签。

2.1系统业务流程图 ............................错误！未定义书签。

2.2系统逻辑模型的提出 ........................错误！未定义书签。

2.2.1数据流图（简称为DFD） ...............错误！未定义书签。

2．2．2数据字典（简称为DD） ..............错误！未定义书签。

2．3 总体模块划分.............................错误！未定义书签。

2．4各个模块的功能 ...........................错误！未定义书签。

2．5 数据库设计...............................错误！未定义书签。

第三章系统实现..................................错误！未定义书签。

学生信息管理系统学生信息管理系统

--1绪言1.1 系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生缴费管理系统等多种功能。

本系统主要用到的技术包括：MVC三层架构开发模式，这种设计模式把应用逻辑、处理过程和显示逻辑分成不同的组件来实现，这些组建可以进行交互和重用。

封装了数据操作类，以便调用数据库的操作函数因而具有较强的实用性和先进性。

本文首先探讨了SQL语言接口和VB软件开发工具的技术特点以及结合SQL和VB的数据库访问方法，在此基础上，利用VB和Microsoft SQL Server 2000实现了一个基于C/S模式的学生信息管理系统。

在本文的后半部分，给出了该系统的整个系统分析、设计以及实现的过程，包括需求分析、功能后矛盾的不完整的数据；⑵完整、及时提供在管理及决策中需要的数据；⑶利用指定的数据关系式分析数据，客观预测未来；⑷向各级管理机构提供不同详细程度的报告，缩短分析和解释时间；⑸用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。

各方面的竞争中占有一席之地。

学生信息管理系统是一个学校不可缺少的部分,它的内容对于学校的管理者来说至关重要,所以学生信息管理系统应该能够为老师提供充足的信息和快捷的查询手段。

但一直以来人们使用传统人工的方式管理学生档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对学生信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。

最详细的学生档案管理系统

VB高级程序开发学生档案管理系统学生档案管理系统目录一、标准模块（公共部分） (1)1：PublicVar (1)2：OPeratDataBase (1)二、窗体 (3)1：A院设置 (3)2：A系设置 (8)3：A班级设置 (14)4：B基本信息 (21)5：B家庭基本成员信息 (27)6：B学籍报告 (33)7：B学籍异动 (37)8：B学期注册 (42)9：B学生查询 (45)10：C 课程查询 (48)11：C课程分配 (51)12：C 新增课程 (55)13：D成绩单生成 (62)14：D成绩录入 (66)15：D成绩评审 (70)16：E奖惩查询 (74)17：E奖惩单生成 (77)18：E奖惩录入 (79)19：F数据库连接 (84)20：G登录 (85)21：G密码维护 (87)22：G用户管理 (89)23：学生档案管理 (94)一、标准模块（公共部分）1：PublicVarPublic MenuIndex As Integer '保存用户选择的菜单Public LoginSucceeded As Boolean '用户登录标志Public UserID As String '用户IDPublic ConnectionString As String '数据库连接字符串2：OPeratDataBasePublic Function GetConnStr() As String'得到数据库连接字符串，用户可以在此处设置连接字符串'User ID 是数据库用户ID，Password是登陆密码'Initial Catalog是数据库名，Data Source是服务器名称GetConnStr = ConnectionStringEnd FunctionPublic Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean '打开数据库连接，连接成功返回true，出错时返回falseSet Conn = New ADODB.Connection'出错处理On Error GoTo ErrorHandleConn.Open GetConnStrOpenConn = TrueExit FunctionErrorHandle:MsgBox "连接数据库失败！请重新连接！"OpenConn = FalseExit FunctionEnd FunctionPublic Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)'执行SQL语句Dim Conn As ADODB.ConnectionDim sTokens() As String'出错处理On Error GoTo ErrorHandle'判断SQL语句sTokens = Split(SQL)If InStr("INSERT,DELETE,UPDA TE", UCase((sTokens(0)))) Then '打开数据库连接If OpenConn(Conn) ThenConn.Execute SQLmsg = sTokens(0) & "操作执行成功！"End IfElsemsg = "SQL语句有误：" & SQLEnd IfFinally_Exit:Set rst = NothingSet Conn = NothingExit SubErrorHandle:msg = "执行错误: " & Err.DescriptionResume Finally_ExitEnd SubPublic Function SelectSQL(ByVal SQL _As String, ByRef msg As String) As ADODB.Recordset'执行SQL语句，返回ADODB.RecordsetDim Conn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String'出错处理On Error GoTo ErrorHandle'判断SQL语句sTokens = Split(SQL)If InStr("SELECT", UCase((sTokens(0)))) Then'打开数据库连接If OpenConn(Conn) ThenSet rst = New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimisticSet SelectSQL = rstmsg = "查询到" & rst.RecordCount & " 条记录! "End IfElsemsg = "SQL语句有误：" & SQLEnd IfFinally_Exit:Set rst = NothingSet Conn = NothingExit FunctionErrorHandle:MsgString = "查询错误: " & _Err.DescriptionResume Finally_ExitEnd FunctionPublic Function BatchSelectSQL(ByVal SQL _As String, ByRef msg As String) As ADODB.Recordset'执行SQL语句，返回批处理的ADODB.RecordsetDim Conn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String'出错处理On Error GoTo ErrorHandle'判断SQL语句sTokens = Split(SQL)If InStr("SELECT", UCase((sTokens(0)))) Then'打开数据库连接If OpenConn(Conn) ThenSet rst = New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open Trim$(SQL), Conn, adOpenDynamic, adLockBatchOptimisticSet BatchSelectSQL = rstmsg = "查询到" & rst.RecordCount & " 条记录! "End IfElsemsg = "SQL语句有误：" & SQLEnd IfFinally_Exit:Set rst = NothingSet Conn = NothingExit FunctionErrorHandle:MsgString = "批查询错误: " & _Err.DescriptionResume Finally_ExitEnd Function二、窗体1：A院设置（1）界面（2）代码Dim rs As ADODB.RecordsetDim SQL As StringDim msg As StringDim Index As IntegerDim flag As String '判断是新增记录还是修改记录Private Sub Form_Load()Call LoadData '装载数据If rs.RecordCount > 0 ThenCall ShowData '显示数据ElseFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'控件可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True CmdCancel.Enabled = False: CmdSave.Enabled = FalseEnd SubPrivate Function CheckData() As Boolean'检查数据的合法性Dim rst As ADODB.RecordsetDim msgt As Stringmsgt = ""'检查数据非空If Trim(txtItem(0).Text) = "" Thenmsgt = "院代码为空；"ElseIf Not Len(Trim(txtItem(0).Text)) = 2 Thenmsgt = "院代码不是2位；"End IfIf Trim(txtItem(1).Text) = "" Thenmsgt = msgt & " 院名称为空；"End IfIf Not msgt = "" ThenMsgBox (msgt)CheckData = FalseExit FunctionEnd If'检查唯一性SQL = " select * from 院信息表where 院代码='" & Trim(txtItem(0).Text) & "'"Set rst = SelectSQL(SQL, msg)If flag = "Add" And rst.RecordCount > 0 ThenMsgBox ("该院的信息已经存在，重复添加!")rst.CloseCheckData = FalseExit FunctionEnd IfCheckData = True '合法End FunctionPrivate Sub ShowData()'在文本框中显示数据If rs.RecordCount <> 0 And rs.EOF = False ThenFor Index = 0 To 6If rs.Fields(Index) <> "" ThentxtItem(Index).Text = rs.Fields(Index)ElsetxtItem(Index).Text = ""End IftxtItem(Index).Enabled = FalseNext IndexIf IsDate(Trim(txtItem(4).Text)) ThenMe.DTPicker1.Value = Trim(txtItem(4).Text) '时间控件End IfEnd IfEnd SubPrivate Sub LoadData()'装载数据Set rs = NothingSQL = " select * from 院信息表order by 院代码"Set rs = SelectSQL(SQL, msg)Set Me.DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub CmdMove_Click(Index As Integer) '移动记录Select Case IndexCase Is = 0 '移到第一条记录If Not rs.BOF Then rs.MoveFirstCase Is = 1 '移到上一条记录If rs.RecordCount <> 0 ThenIf rs.BOF = False Then rs.MovePreviousIf rs.BOF = True Then rs.MoveFirstEnd IfCase Is = 2 '移到下一条记录If rs.RecordCount <> 0 ThenIf rs.EOF = False Then rs.MoveNextIf rs.EOF = True Then rs.MoveLastEnd IfCase Is = 3 '移到最后一条记录If rs.RecordCount <> 0 ThenIf Not rs.EOF = True Then rs.MoveLastEnd IfEnd SelectIf rs.RecordCount <> 0 ThenCall ShowData '在文本框中显示数据'按钮可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = TrueCmdCancel.Enabled = False: CmdSave.Enabled = FalseElse'按钮可用性CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = FalseCmdCancel.Enabled = False: CmdSave.Enabled = FalseEnd IfEnd SubPrivate Sub CmdAdd_Click()'清空文本框，文本框可用For Index = 0 To 6txtItem(Index).Text = ""txtItem(Index).Enabled = TrueNext Index'设置标志flagflag = "Add"'设置时间控件txtItem(4).Text = Me.DTPicker1.Value'所有移动按钮不可用For Index = 0 To 3CmdMove(Index).Enabled = FalseNext Index'添加、修改、删除按钮不可用，取消、保存按钮可用CmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = FalseCmdCancel.Enabled = True: CmdSave.Enabled = TrueEnd SubPrivate Sub CmdModify_Click()'修改操作If rs.RecordCount > 0 Then'文本框可用,院代码不可以修改For Index = 1 To 6txtItem(Index).Enabled = TrueNext IndextxtItem(0).Enabled = False'设置标志flagflag = "Modify"'移动控件不可用For Index = 0 To 3CmdMove(Index).Enabled = FalseNext Index'添加、修改、删除按钮不可用，取消、保存按钮可用CmdCancel.Enabled = True: CmdSave.Enabled = TrueCmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = False ElseMsgBox ("没有可以修改的数据!")End IfEnd SubPrivate Sub CmdDelete_Click()'删除操作On Error GoTo ErrMsgIf rs.RecordCount > 0 Thenmsg = MsgBox("删除该条记录吗?", vbYesNo)If msg = vbYes Thenrs.DeleteCall LoadData '重新装载数据'清空文本框、并不可用For Index = 0 To 6txtItem(Index).Text = ""txtItem(Index).Enabled = FalseNext Index'所有移动控件不可用If rs.RecordCount = 0 ThenFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'按钮可用性处理CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = TrueCmdSave.Enabled = False: CmdCancel.Enabled = FalseMsgBox ("成功删除的数据!")End IfElseMsgBox ("没有可删除的数据!")End IfExit SubErrMsg:MsgBox Err.Description, vbExclamation, "出错"End SubPrivate Sub cmdCancel_Click()'取消操作Call ShowData'所有移动控件可用For Index = 0 To 3CmdMove(Index).Enabled = TrueNext Index'修改、删除、添加按钮可用,保存和取消按钮不可用CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = TrueCmdSave.Enabled = False: CmdCancel.Enabled = FalseEnd SubPrivate Sub CmdSave_Click()On Error GoTo ErrMsgIf Not CheckData Then Exit Sub '如果数据不合法就退出If flag = "Modify" Then '如果是修改数据msg = MsgBox("您确实要修改这条数据吗?", vbYesNo)If msg = vbYes ThenFor Index = 0 To 6If txtItem(Index).Text <> "" Then rs.Fields(Index) = txtItem(Index).TexttxtItem(Index).Enabled = FalseNext IndexElseExit SubEnd IfElseIf flag = "Add" Then '如果是添加新数据rs.AddNewFor Index = 0 To 6If txtItem(Index).Text <> "" Then rs.Fields(Index) = txtItem(Index).Text Next IndexEnd If'更新数据rs.Update'移动控件可用For Index = 0 To 3CmdMove(Index).Enabled = TrueNext IndexCmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = FalseIf flag = "Add" ThenMsgBox ("成功添加数据!")ElseMsgBox ("成功更新数据!")End IfCall LoadData '重新装载数据'定位到添加或修改记录If rs.RecordCount <> 0 Thenrs.MoveFirstrs.Find ("院代码='" & Trim(txtItem(0).Text) & "'")If Not rs.EOF Then Call ShowData '重新装载数据End IfExit SubErrMsg:MsgBox Err.Description, vbExclamation, "出错"End SubPrivate Sub DTPicker1_CloseUp() '得到日期txtItem(4).Text = Me.DTPicker1.ValueEnd SubPrivate Sub CmdExit_Click()'退出操作学生档案管理.Enabled = Truers.CloseUnload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)'退出操作学生档案管理.Enabled = TrueUnload MeEnd Sub2：A系设置（1）界面（2）代码Dim rs As ADODB.RecordsetDim SQL As StringDim msg As StringDim Index As IntegerDim flag As String '判断是新增加记录还是修改记录Private Function CheckData() As Boolean'检查数据的合法性Dim rst As ADODB.RecordsetDim msgt As Stringmsgt = ""'检查数据非空性If Trim(txtItem(0).Text) = "" Thenmsgt = "系代码为空；"ElseIf Not Len(Trim(txtItem(0).Text)) = 4 Thenmsgt = "系代码不是4位；"ElseIf Not Left(Trim(txtItem(0).Text), 2) = Left(Trim(CboQuery.Text), 2) Then msgt = "系代码错误；"End IfIf Trim(txtItem(1).Text) = "" Thenmsgt = msgt & " 系名称为空；"End IfIf Not msgt = "" ThenMsgBox (msgt)CheckData = FalseExit FunctionEnd If'检查唯一性SQL = " select * from 系信息表where 系代码='" & Trim(txtItem(0).Text) & "'"Set rst = SelectSQL(SQL, msg)If flag = "Add" And rst.RecordCount > 0 ThenMsgBox ("该系的信息已经存在，重复添加!")rst.CloseCheckData = FalseExit FunctionEnd IfCheckData = True '合法End FunctionPrivate Sub ShowData()'在文本框中显示数据If rs.RecordCount <> 0 ThenFor Index = 0 To 7If rs.Fields(Index) <> "" ThentxtItem(Index).Text = rs.Fields(Index)ElsetxtItem(Index).Text = ""End IftxtItem(Index).Enabled = FalseNext IndexIf IsDate(Trim(txtItem(5).Text)) ThenDTPicker1.Value = Trim(txtItem(5).Text) '时间控件End IfEnd IfEnd SubPrivate Sub LoadData()'装载数据Dim strWhere As StringIf CboQuery.ListCount > 0 ThenstrWhere = " where 院代码='" & Left(Trim(CboQuery.Text), 2) & "'"Set rs = NothingSQL = " select * from 系信息表" & strWhere & " order by 系代码"Set rs = SelectSQL(SQL, msg)Set Me.DataGrid1.DataSource = rsMe.DataGrid1.RefreshFrame1(1).Enabled = TrueElseMsgBox ("请先创建上级单位！")Frame1(1).Enabled = FalseEnd IfEnd SubPrivate Sub CboQuery_Click()txtItem(4).Text = Left(Trim(CboQuery.Text), 2)End SubPrivate Sub CmdQuery_Click()Call LoadData '重新装载数据If rs.RecordCount > 0 ThenCall ShowData '显示信息ElseFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'控件可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True CmdCancel.Enabled = False: CmdSave.Enabled = FalsePrivate Sub Form_Load()'初始化ComboBoxDim rst As ADODB.RecordsetDim strItem As StringSQL = " select 院代码,院名称from 院信息表order by 院代码"Set rst = SelectSQL(SQL, msg)If rst.RecordCount > 0 ThenDo While Not rst.EOFstrItem = rst.Fields(0) & " " & rst.Fields(1)CboQuery.AddItem (strItem)rst.MoveNextLooprst.CloseCboQuery.ListIndex = 0ElseMsgBox ("请先创建院信息！") '如果没有院信息不能使用Frame1(0).Enabled = FalseFrame1(1).Enabled = FalseExit SubEnd IfCall LoadData '重新装载数据If rs.RecordCount > 0 ThenCall ShowData '显示数据ElseFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'控件可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = TrueCmdCancel.Enabled = False: CmdSave.Enabled = FalseEnd SubPrivate Sub CmdMove_Click(Index As Integer) '移动记录Select Case IndexCase Is = 0 '移到第一条记录If Not rs.BOF Then rs.MoveFirstCase Is = 1 '移到上一条记录If rs.RecordCount <> 0 ThenIf rs.BOF = False Then rs.MovePreviousIf rs.BOF = True Then rs.MoveFirstEnd IfCase Is = 2 '移到下一条记录If rs.RecordCount <> 0 ThenIf rs.EOF = False Then rs.MoveNextIf rs.EOF = True Then rs.MoveLastEnd IfCase Is = 3 '移到最后一条记录If rs.RecordCount <> 0 ThenIf Not rs.EOF = True Then rs.MoveLastEnd IfEnd SelectIf rs.RecordCount <> 0 ThenCall ShowData '在文本框中显示数据'按钮可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = TrueCmdCancel.Enabled = False: CmdSave.Enabled = False'按钮可用性CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = FalseCmdCancel.Enabled = False: CmdSave.Enabled = FalseEnd IfEnd SubPrivate Sub CmdAdd_Click()'清空文本框，文本框可用For Index = 0 To 7txtItem(Index).Text = ""txtItem(Index).Enabled = TrueNext IndexCboQuery.Enabled = False 'ComboBox不可用'设置标志flagflag = "Add"txtItem(5).Text = Me.DTPicker1.Value '设置日期txtItem(0).Text = Left(Trim(CboQuery.Text), 2)txtItem(0).SetFocustxtItem(4).Text = Left(Trim(CboQuery.Text), 2)'所有移动按钮不可用For Index = 0 To 3CmdMove(Index).Enabled = FalseNext Index'添加、修改、删除按钮不可用，取消、保存按钮可用CmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = FalseCmdCancel.Enabled = True: CmdSave.Enabled = TrueEnd SubPrivate Sub CmdModify_Click()'修改操作If rs.RecordCount > 0 Then'文本框可用,系代码不可以修改For Index = 1 To 7txtItem(Index).Enabled = TrueNext IndextxtItem(0).Enabled = FalseCboQuery.Enabled = False 'ComboBox 不可用'设置标志flagflag = "Modify"'移动控件不可用For Index = 0 To 3CmdMove(Index).Enabled = FalseNext Index'添加、修改、删除按钮不可用，取消、保存按钮可用CmdCancel.Enabled = True: CmdSave.Enabled = TrueCmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = False ElseMsgBox ("没有可以修改的数据!")End IfEnd SubPrivate Sub CmdDelete_Click()'删除操作On Error GoTo ErrMsgIf rs.RecordCount > 0 Thenmsg = MsgBox("删除该条记录吗?", vbYesNo)If msg = vbYes Thenrs.DeleteCall LoadData '重新装载数据'清空文本框、并不可用For Index = 0 To 7txtItem(Index).Text = ""txtItem(Index).Enabled = FalseNext Index'所有移动控件不可用If rs.RecordCount = 0 ThenFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'按钮可用性处理CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = TrueCmdSave.Enabled = False: CmdCancel.Enabled = FalseMsgBox ("成功删除的数据!")End IfElseMsgBox ("没有可删除的数据!")End IfExit SubErrMsg:MsgBox 不能删除, vbExclamation, "出错"End SubPrivate Sub cmdCancel_Click()'取消操作Call ShowData'所有移动控件可用For Index = 0 To 3CmdMove(Index).Enabled = TrueNext IndexCboQuery.Enabled = True 'ComboBox可用'修改、删除、添加按钮可用,保存和取消按钮不可用CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = TrueCmdSave.Enabled = False: CmdCancel.Enabled = FalseEnd SubPrivate Sub CmdSave_Click()On Error GoTo ErrMsgIf Not CheckData Then Exit Sub '如果数据不合法退出If flag = "Modify" Then '如果是修改数据msg = MsgBox("您确实要修改这条数据吗?", vbYesNo)If msg = vbYes ThenFor Index = 0 To 7If txtItem(Index).Text <> "" Then rs.Fields(Index) = txtItem(Index).Text Next IndexElseExit SubEnd IfElseIf flag = "Add" Then '如果是添加新数据rs.AddNewFor Index = 0 To 7If txtItem(Index).Text <> "" Then rs.Fields(Index) = txtItem(Index).Text Next IndexEnd If'更新数据rs.Update'移动控件可用For Index = 0 To 3CmdMove(Index).Enabled = TrueNext IndexFor Index = 0 To 7txtItem(Index).Enabled = FalseNext IndexCboQuery.Enabled = True 'ComboBox可用CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = FalseIf flag = "Add" ThenMsgBox ("成功添加数据!")ElseMsgBox ("成功更新数据!")End IfCall LoadData '重新装载数据'定位到添加或修改记录If rs.RecordCount <> 0 Thenrs.MoveFirstrs.Find ("系代码='" & Trim(txtItem(0).Text) & "'")If Not rs.EOF Then Call ShowData '重新显示数据End IfExit SubErrMsg:MsgBox Err.Description, vbExclamation, "出错"End SubPrivate Sub DTPicker1_CloseUp() '得到日期txtItem(5).Text = Me.DTPicker1.ValueEnd SubPrivate Sub CmdExit_Click()'退出操作学生档案管理.Enabled = Truers.CloseUnload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)'退出操作学生档案管理.Enabled = TrueUnload MeEnd Sub3：A班级设置（1）界面（2）代码Dim rs As ADODB.RecordsetDim SQL As StringDim msg As StringDim Index As IntegerDim flag As String '判断是新增记录还是修改记录Private Sub SelectData()'初始化系ComboBoxDim rst As ADODB.RecordsetDim strItem As StringSQL = " select 系代码,系名称from 系信息表where 院代码='"SQL = SQL & Left(Trim(CboQuery(0).Text), 2) & "' order by 系代码"Set rst = SelectSQL(SQL, msg)CboQuery(1).ClearIf rst.RecordCount > 0 ThenDo While Not rst.EOFstrItem = rst.Fields(0) & " " & rst.Fields(1)CboQuery(1).AddItem (strItem)rst.MoveNextLooprst.CloseCboQuery(1).ListIndex = 0ElseFrame1(1).Enabled = FalseExit SubEnd IfEnd SubPrivate Function CheckData() As Boolean'检查数据的合法性Dim rst As ADODB.RecordsetDim msgt As Stringmsgt = ""'检查数据非空If Trim(txtItem(0).Text) = "" Thenmsgt = "班号为空；"ElseIf Not Len(Trim(txtItem(0).Text)) = 6 Thenmsgt = "班号不是６位；"ElseIf Not Left(Trim(txtItem(0).Text), 4) = Left(Trim(CboQuery(1).Text), 4) Then msgt = "班号错误；"End IfIf Trim(txtItem(1).Text) = "" Thenmsgt = msgt & " 班级名称为空；"End IfIf Not msgt = "" ThenMsgBox (msgt)CheckData = FalseExit FunctionEnd If'检查唯一性SQL = " select * from 班级信息表where 班号='" & Trim(txtItem(0).Text) & "'"Set rst = SelectSQL(SQL, msg)If flag = "Add" And rst.RecordCount > 0 ThenMsgBox ("该班级的信息已经存在，重复添加!")rst.CloseCheckData = FalseExit FunctionEnd IfCheckData = True '合法End FunctionPrivate Sub ShowData()'在文本框中显示数据If rs.RecordCount <> 0 ThenFor Index = 0 To 8If rs.Fields(Index) <> "" ThentxtItem(Index).Text = rs.Fields(Index)ElsetxtItem(Index).Text = ""End IftxtItem(Index).Enabled = FalseNext IndexIf IsDate(Trim(txtItem(3).Text)) ThenDTPicker1.Value = Trim(txtItem(3).Text) '时间控件End IfEnd IfEnd SubPrivate Sub LoadData()'装载数据Dim strWhere As StringIf CboQuery(0).ListCount > 0 And CboQuery(1).ListCount > 0 ThenstrWhere = " where 系代码='" & Left(Trim(CboQuery(1).Text), 4) & "'"Set rs = NothingSQL = " select * from 班级信息表" & strWhere & " order by 班号"Set rs = SelectSQL(SQL, msg)Set Me.DataGrid1.DataSource = rsMe.DataGrid1.RefreshFrame1(1).Enabled = TrueElseMsgBox ("请先创建上级单位！")Frame1(1).Enabled = FalseEnd IfEnd SubPrivate Sub CboQuery_Click(Index As Integer)If Index = 0 ThenCall SelectData '得到系列表ElseIf Index = 1 ThenIf CboQuery(1).ListCount > 0 ThentxtItem(2).Text = Left(Trim(CboQuery(1).Text), 4)Label4.Caption = "系代码：" & Left(Trim(CboQuery(1).Text), 4) End IfEnd IfEnd SubPrivate Sub CmdQuery_Click()Call LoadData '重新装载数据If rs.RecordCount > 0 ThenCall ShowData '显示数据ElseFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'控件可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True CmdCancel.Enabled = False: CmdSave.Enabled = FalseEnd SubPrivate Sub Form_Load()'初始化ComboBoxDim rst As ADODB.RecordsetDim strItem As StringSQL = " select 院代码,院名称from 院信息表order by 院代码"Set rst = SelectSQL(SQL, msg)If rst.RecordCount > 0 ThenDo While Not rst.EOFstrItem = rst.Fields(0) & " " & rst.Fields(1)CboQuery(0).AddItem (strItem)rst.MoveNextLooprst.CloseCboQuery(0).ListIndex = 0ElseMsgBox ("请先创建院信息！") '如果没有院信息不能使用Frame1(0).Enabled = FalseFrame1(1).Enabled = FalseFrame2.Enabled = FalseExit SubEnd IfCall SelectData '得到系列表Call LoadData '重新装载数据If Not Frame1(1).Enabled Then Exit SubIf rs.RecordCount > 0 ThenCall ShowData '显示数据ElseFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'控件可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = TrueCmdCancel.Enabled = False: CmdSave.Enabled = FalseEnd SubPrivate Sub CmdMove_Click(Index As Integer)'移动记录Select Case IndexCase Is = 0 '移到第一条记录If Not rs.BOF Then rs.MoveFirstCase Is = 1 '移到上一条记录If rs.RecordCount <> 0 ThenIf rs.BOF = False Then rs.MovePreviousIf rs.BOF = True Then rs.MoveFirstEnd IfCase Is = 2 '移到下一条记录If rs.RecordCount <> 0 ThenIf rs.EOF = False Then rs.MoveNextIf rs.EOF = True Then rs.MoveLastEnd IfCase Is = 3 '移到最后一条记录If rs.RecordCount <> 0 ThenIf Not rs.EOF = True Then rs.MoveLastEnd IfEnd SelectIf rs.RecordCount <> 0 ThenCall ShowData '在文本框中显示数据'按钮可用性CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = TrueCmdCancel.Enabled = False: CmdSave.Enabled = FalseElse'按钮可用性CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = FalseCmdCancel.Enabled = False: CmdSave.Enabled = FalseEnd IfEnd SubPrivate Sub CmdAdd_Click()'清空文本框，文本框可用For Index = 0 To 8txtItem(Index).Text = ""txtItem(Index).Enabled = TrueNext IndexCboQuery(0).Enabled = False 'ComboBox不可用CboQuery(1).Enabled = False 'ComboBox不可用'设置标志flagflag = "Add"txtItem(3).Text = Me.DTPicker1.Value '设置日期txtItem(0).Text = Left(Trim(CboQuery(1).Text), 4)txtItem(0).SetFocustxtItem(2).Text = Left(Trim(CboQuery(1).Text), 4)'所有移动按钮不可用For Index = 0 To 3CmdMove(Index).Enabled = FalseNext Index'添加、修改、删除按钮不可用，取消、保存按钮可用CmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = FalseCmdCancel.Enabled = True: CmdSave.Enabled = TrueEnd SubPrivate Sub CmdModify_Click()'修改操作If rs.RecordCount > 0 Then'文本框可用,班号不可以修改For Index = 1 To 8txtItem(Index).Enabled = TrueNext IndextxtItem(0).Enabled = FalseCboQuery(0).Enabled = False 'ComboBox 不可用CboQuery(1).Enabled = False 'ComboBox 不可用'设置标志flagflag = "Modify"'移动控件不可用For Index = 0 To 3CmdMove(Index).Enabled = FalseNext Index'添加、修改、删除按钮不可用，取消、保存按钮可用CmdCancel.Enabled = True: CmdSave.Enabled = TrueCmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = False ElseMsgBox ("没有可以修改的数据!")End IfEnd SubPrivate Sub CmdDelete_Click()'删除操作On Error GoTo ErrMsgIf rs.RecordCount > 0 Thenmsg = MsgBox("删除该条记录吗?", vbYesNo)If msg = vbYes Thenrs.DeleteCall LoadData '重新装载数据'清空文本框、并不可用For Index = 0 To 8txtItem(Index).Text = ""txtItem(Index).Enabled = FalseNext Index'所有移动控件不可用If rs.RecordCount = 0 ThenFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext IndexEnd If'按钮可用性处理CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = TrueCmdSave.Enabled = False: CmdCancel.Enabled = FalseMsgBox ("成功删除的数据!")End IfElseMsgBox ("没有可删除的数据!")End IfExit SubErrMsg:MsgBox Err.Description, vbExclamation, "出错"End SubPrivate Sub cmdCancel_Click()'取消操作Call ShowData'所有移动控件可用For Index = 0 To 3CmdMove(Index).Enabled = TrueNext IndexCboQuery(0).Enabled = True 'ComboBox可用CboQuery(1).Enabled = True 'ComboBox可用'修改、删除、添加按钮可用,保存和取消按钮不可用CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = FalseEnd SubPrivate Sub CmdSave_Click()On Error GoTo ErrMsg '出错处理If Not CheckData Then Exit Sub '如果数据不合法退出If flag = "Modify" Then '如果是修改数据msg = MsgBox("您确实要修改这条数据吗?", vbYesNo)If msg = vbYes ThenFor Index = 0 To 8If txtItem(Index).Text <> "" Then rs.Fields(Index) = txtItem(Index).TextNext IndexElseExit SubEnd IfElseIf flag = "Add" Then '如果是添加新数据rs.AddNewFor Index = 0 To 8If txtItem(Index).Text <> "" Then rs.Fields(Index) = txtItem(Index).Text Next IndexEnd If'更新数据rs.Update'移动控件可用For Index = 0 To 3CmdMove(Index).Enabled = TrueNext IndexFor Index = 0 To 8txtItem(Index).Enabled = FalseNext IndexCboQuery(0).Enabled = True 'ComboBox可用CboQuery(1).Enabled = True 'ComboBox可用CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = FalseIf flag = "Add" ThenMsgBox ("成功添加数据!")ElseMsgBox ("成功更新数据!")End IfCall LoadData '重新装载数据'定位到添加或修改记录If rs.RecordCount <> 0 Thenrs.MoveFirstrs.Find ("班号='" & Trim(txtItem(0).Text) & "'")If Not rs.EOF Then Call ShowData '重新显示数据End IfExit SubErrMsg:MsgBox Err.Description, vbExclamation, "出错"End Sub。