JSJ06-211@VB学生档案管理系统(源代码+论文)
收藏
资源目录
压缩包内文档预览：(预览前20页/共40页)
编号：508467
类型：共享资源
大小：1.53MB
格式：ZIP
上传时间：2015-11-10
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-211@VB学生档案管理系统(源代码+论文),毕业设计论文
- 内容简介：
-
1 中国（武汉）地质大学 题目：学生档案信息管理 指导老师：阳昌明 学生：薛晓锋 班级： 2000 软件 nts 2 摘要 学生档案管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。 经 过分析 ,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。 关键字：控件、窗体、 数据库 nts 3 ABSTRACT The system of managing student file is a typical application of managing information system （ know as MIS） ,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used. By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it. Keywords: ActiveX , Form , Field . nts 4 目录 摘要 ABSTRACT 前言 第一章 绪论 5 1.1 问题的来源 5 1.2学生档案 管理系统的介绍 5 第二章 学生档案管理系统 的数据库的设计 8 2.1 编程环境的选择 8 2.2 Visual Basic 版本简介 8 2.3 VB语言的基本特点及 VB应用程序的基本持点 9 2.4 关系型数据库的实现 10 第三章 学生档案系统的实现 12 3.1模块和属性的 构建 13 3.2 系统设计 13 3.3数据库逻辑结构设计 13 四章 系统总体规划 和界面设计 16 4.1 系统总体规划 和流程 16 4.2 系统具体实现 界面 18 4.3登录界面的实现 18 4.4学生的成绩窗口设计 19 4.5学生状况窗口设计 19 4.6学生状况资料窗口设计 2 0 4.7学生成绩修改窗口设计 21 附录程序清单及注释 22 主要参考文献 39 结束语 40 致谢 41 nts 5 前言 电脑已经成为挂在我们嘴角的一句口头禅，它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。 Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须经 过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发 Windows 下软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，即使你没有接受过严格的程序设计训练，使用 Visual Basic 也一样能够开发出功能强大、适合自己特殊需求的应用程序了。 Visual Basic 继承了 Basic 语言易学易用的特点，特别适合于初学者学习 Windows系统编程 学生档案管理系统是一个教育单位不可缺少的部分 ,它的内容对于学校的决策者和管理者来说都至关重要 ,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点 ,如 :效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分 ,使用计算机对学 生档案信息进行管理 ,具有着手工管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 开发这样一套管理软件成为很有必要的事情 ,在下面的各章中我们将以开发一套学生档案管理系统为例 ,谈谈其开发过程和所涉及到的问题及解决方法 . 学生档案管理系统 是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要 求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。 经过分析 ,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 , 不 断 修 正 和 改 进 , 直 到 形 成 用 户 满 意 的 可 行 系 统 。 因此，开发这样一套管理软件成为很有必要的事情 ,在下面的各章中我们将以开发一套学生档案管理系统为例 ,谈谈其开发过程和所涉及到的问题及解决方法 . nts 6 第一章 绪论 1.1 问题的来源 为什么要开发一个学生档案管理系统？ 计算机已经成为我们学习和工作的得力助手： 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档 更加安全，等等。 在中小学中用计算机管理学生档案的意义 现在我国的中小学校中档案的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。 我作为一个计算机应用的本科生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过 “ 科学技术是第一生产力 ” ，我希望能用我四年的所学编制出一个实用的程序来帮助中小学进行更有效的学籍管理。 归纳起来，好处大约有以 下几点： 1 可以存储历届的学生档案，安全、高效； 2 只需一到二名档案录入员即可操作系统，节省大量人力； 3 可以迅速查到所需信息。 为将来学校上网做好准备 跟据 1999年中国电信的调查报告显示我国的上网人数已达到 890 万，互联网已经十分普及，学校往界的毕业生希望能在世界的任何一个角落查到自己校友的信息，本系统为学校将来的上网作了先期工作，比如数据库的建立。 学生档案的设计分析 根据实际情况，我们使用原型法（ Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。 使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了 。 1.2 学生档案 管理系统的介绍 学 生档案管理系统 设计 ,它的内容 主要 对于学校的决策者和管理者来说都至关重要 ,所以 学生档案管理系统 应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点 ,如 :效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不 少的困难。随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人nts 7 类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分 ,使用计算机对学生档案信息进行管理 ,具有着手工管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 管理信息系统在最初级阶段是统计系统，所研究的内容是数量数据间表面的规律，他可以分成较相关和不相关的 组，然后把数据转换成信息。第二个阶段的数据更新系统，比如它不能告诉你以现在的售票的速度何时把票售完，从而采取补救措施。因而它也是管理信息系统的低级阶段。第三阶段是状态报告阶段系统，它可以分为生产状态报告、服务状态报告和研究状态报告。比如生产状态报告系统，它的典型代表是 IBM公司的生产管理系统。众所周知，它是世界上最大的计算机公司， 1964年它生产出中型计算机 IBM360，使计算机的水平提高了一个台阶，但同时组织生产工作却大大的复杂化了。一台计算机超过了 15000个不同的部件，每一个部件又有若干个元件，加上IBM的工厂遍及美国各地，不同的定货有不同的元件和不同的部件。这样的以来管理就特别复杂了。在 1968年，建立了公用制造信息系统 CMIS运行很成功。状态报告系统还有一种形式是数据处理系统。主要是用来处理日常业务和生产报告。把手工作业自动化，提高效率和节省人力。 最后的阶段是决策支持系统，它是用来辅助决策的信息系统。该系统可以计划、分析解答，它有较好的人机对话，但不强调全面的管理功能 因此，开发这样一套管理软件成为很有必要的事情 ,在下面的各章中我们将以开发一套 学生档案管理系统 为例 ,谈谈其开发过程和所涉及到的 问题及解决方法。 nts 8 第二章 学生档案管理系统 数据库的设计 2.1 编程环境的选择 “ Basic”指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。 Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。何谓 Visual Basic？“ Visual”指的是开发图形用户界面 (GUI) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add 到屏幕上的一点即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。 Visual Basic 不仅是 Visual Basic 编程语言。 Visual Basic 编程系统和 VBA 都使用这一语言。 Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。 从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过 Internet 的遍及全球分布式应用程序，都可在 Visual Basic 提供的工具中各取所需。 1.数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。 2.有了 ActiveX(TM) 技术就可使用其它应用程序提供的功能，例如 Microsoft Word 字处理器， Microsoft Excel 电子数据表及其它 Windows 应用程序。甚至可直接使用 VBP 或 VBE 创建的应用程序和对象。 3.Internet 能力强大，使得您很容易在应用程序内通过 Internet 或 intranet访问文档和应用程序，或者 创建 Internet 服务器应用程序。 4.已完成的应用程序是使用 Visual Basic 虚拟机真正 .exe 文件，您可以自由发布。 2.2 Visual Basic 版本简介 isuaVl Basic 有三种版本，可以满足不同的开发需要。 Visual Basic 学习版使编程人员轻松开发 Windows 和 Windows NT(R) 的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有 Learn VB Now CD 和包含全部联机文档的 Microsoft Developer Network CD。 nts 9 专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及 ActiveX 控件、 Internet Information Server Application Designer 、 集 成 的 Visual Database Tools 和 Data Environment、 Active Data Objects、和 Dynamic HTML Page Designer。专业版提供的文档有 Visual Studio Professional Features 手册和包含全部联机文档的 Microsoft Developer Network CD。 企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及 Back Office 工具，例如 SQL Server、Microsoft Transaction Server、 Internet Information Server、 Visual SourceSafe、 SNA Server，以及其他。企业版包括的印刷文档包括 Visual Studio Enterprise Features 手册以及包含全部联机文档的 Microsoft Developer Network CD。 2.3 VB 语言的基本特点及 VB应用程序的基本持点 VB 程序语言具有许多优秀的特性 ,用其设计应用程序时有两个基本特点 :可视化设计和事件驱动编程 . 1、可视化设计 同其他的一些可视化程序开发工具一样 ,VB 具有可视化设计的特点 ,微软的Word在刚刚进入市场时 ,同 WPS竞争的一个重要的功能砝码就是 所见即所得 的字处理功能 ,VB在设计应用程序界面时也可以说是 所见即所得 .在设计时 ,头脑中所想象的应用程序界面 ,完全可以通过键盘鼠标以及徒手画出来 ,而不是编制大量的代码然后再编译生成 ,如果需要修改 ,也是利用键盘鼠标和手画 ,而底层的一些程序代码由 VB 自动生成或修改。 VB 为用户提供大量的界面元素 (在 VB 中称为控件对象 ),这些控件对象对于熟悉 Windows应用程序的用户而言是一点也不陌生 ,如 窗体 、 菜单 、 命令按钮 、 工具按钮 、 检查框 等等 ,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置 ,设置它们的大小、形状、属性等 ,就可以设计出所需的应用程序界面。 2、事件驱动编 程 Windows操作系统出现以来 ,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的 ,在使用 VB 设计应用程序时 ,必须首先确定应用程序如何同用户进行交互 .例如发生鼠标单击、键盘输入等事件时 ,由用户编写控制这些事件的响应 ,这就是所谓的事件驱动编程。 微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。 Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程 ，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本nts 10 系统 VB是一个相对较好的选择。 2.4 关系型数据库的实现 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。 Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外， Access 允许创建自定义报表用于打印或输出数据库中的信息。 Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其 他网络用户共享数据库。 Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述， Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 二者的结合（ DBA） 微软的 JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及 Visual Basic 来访问数据库并对其进行各种操作。 Visual Basic、 Access 以及其他微软的软件产品都是通过共用 JET 数据库引擎，从而给用户提供了丰富的数据类型。 DATA 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座桥梁。我们可以设置 DATA 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下， DATA 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。 DATA控件还提供了用来浏览不同记录的各种跳转按钮。将 DATA 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 2.3 数据库的介绍 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（ flat-file）和关系数据库（ relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 1 标识需要的数据； 2 收集被标识的字段到表中； 3 标识主关键字字段； 4 绘制一个简单的数据图表； 5 规范数据； 6 标识指定字段的信息； 7 创建物理表。 nts 11 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为 自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 nts 12 第三章 学生档案系统的实现 3.1 模块和属性的 构建 Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和 方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有 可通用性可说扩展性和强有力的功能。 Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。 实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护， Visual Basic 也提供了强大的创建菜单功能是程序更加标准。 您可以使用 Visual Basic 的 Application Wizard 也可以使用 Visual Basic 的菜单编 辑器建立菜单或者修改已经存在的菜单。 实现工具栏 CoolBar控件与 Office97 种看到的 CoolBar 是类似的。 CoolBar就是一个可以在窗体上浮动的工具，同时也是其他 ActiveX 的容器。通过在 CoolBar 中迁入其他空间你局可以向用户提供更好的灵活性和义用性。 Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar也是一个控件容器且具有 Style属性，并可以为其增加下拉按钮和平滑按钮等 。 选择 “ 工程 ” 下拉菜单中的 “ 部件 ” 选项，显示 “ 部件 ” 对话框。在 “ 控件 ” 选项卡列表中选择 “Microsoft Windows Common Controls 6.0” 后工具相中增加改控件。其属性及对象如下： 1 Align属性定义工具条在窗体中的位置 2 ToolTipText属性是字符串类型，定义控件的提示字符 3 Style属性定义按钮外观。 4 ImageList属性定义与数据条对应的 ImageList 控件名，该控件定义工具条按钮显示的图像。 5 HotImangeList 属性设置一个 ImageList 控件名，该控件定义按钮获得热点时显示的图像。 6 DisabledImageList 属性定义工具条按钮无效时显示的图像。 创建工具条包括 ImageList 和 Toolbar控件 ImageList用于为其他控件提供图像库，将 ImageList控件加入到工具箱的操作于前述 Toolbar控件相同。 帮助 专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的 Help Workshop4.0 是一套独立于 Visual Basic 的用来协助我们创建、运行于 32位 Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。 nts 13 关于版本 为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。 Visual Basic允许你使用 APP对象来保存这些信息， APP 对象是一个预定义对象，不需要在程序中创建它。 APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些 APP提供的属性，可以在应用 程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。 3.2 系统设计 一 系统设计分析 1. 系统功能分析 系统开发的总体任务是实现学生学籍管理的系统化，规范化和自动化。 系统功能分析是在系统开发的总体任务基础上完成。学生学籍管理系统需要完成的主要功能有： 1 学生基本信息，包括查询和维护，其中可以查看和插入和删除学生的姓名、学号、性别等。 2 学籍查询系统，包括课程，成绩、条件查询等。 二 系统功能模块设计 学生信息，包括查询 。 成绩插入和删 。 信息 修改、 成绩 修改、档案 查询 ； 三 数据 库设计 在数据库的设计中要保持数据的完整性和一致性。 数据库需求分析根据所须内容设计数据项和数据结构如下 : 1 学生基本信息 ,包括数据项有： 学生号 ,学生姓名 ,性别 ,出生日期 ,祖籍 ,所在系 ,和家庭电话。 2 课程信息，包括的数据项有 :：课程号 ,课程名。 3 成绩信息，包括的数据项有 :：课程号 ,学生学号，成绩。 3.3 数据库逻辑结构设计 在实体关系的基础上，形成数据库中的表格以及关系： 1学生信息表 列名 数据类型 是否为空 说明 Stu_no Number(7) Not null 学号（ 主键） Stu_nane Varchar(7) Null 学生姓名 Stu_sex Varchar(2) Null 性别 Stu_Bithday Varchar(10) Null 出生日期 Stu_homeaddress Varchar(6) Null 祖籍 Stu_tel Number(10) Null 家庭电话 Grade Varchar(4) Null 系别 2 课程信息表 列名 数据结构 可否为空 说明 Course_id Number(3) Null 课程号（主键） Grade Varchar2(20) Null 系别 Course_name Varchar2(20) Null 课程名 nts 14 3 成绩表 列名 数据结构 是否为空 说明 Stu_no Number(7) Not null 学号 ,是此表主键 也是外部键指向学生信息表 Course_id Number(3) Null 课程号 ,外部键指向课程表 score Number(3) Null 分数 一 . 在 ORACLE 中的 SQL语句 1 create table s ( stu_name number(7), stu_no varchar(7) not null, stu_sex varchar(2), stu_birthday varchar(10), stu_tel number(10), stu_homeaddress varchar(6), grade varchar(4) 2 ccreate table course (course_id number(3) null, grade varchar2(20) null, course_name varchar2(20) null, primary key(course_id) 3 create table score (stu_no number(7) not null, course_id number(3) null, score number(3) null, constraint score_stu_no_pk primary key (stu_no,course_id), constraint score_course_id_fk foreign key(course_id) references c(course_id) 二 . 创建系统中出现的错误 1 在 ORACLE 中建表时因把 STUDENT表中的 SNO这项的数据结构设为了 CHAR型，所以再输入数据时应加上引号，另外在插入日期时也遇到了困难，后来发现可以用 TOUPDATE函数来进行转变。例如插入数据时： insert into student values(李飞 ,0000101,女 ,1981/01/03,0205689012,上海 ,信息 ); 1. 在建表时设立外键时，要有 REFERENCES（ ）例如： foreign key(sno) references(sno); 中一定要写。 2. 在建立学生表时 ,学号 (stu_no)的类型为 number而且不为空 ,即为 not null。 3. 在插入数据的过程中要注意数据和定义的范围，不能使插入的数据过大。 4. 在插入数据的时候，如遇到字符型的数据应用单引号括上。 5. 在 PB中，数据窗口选 GIRD为显示全部内容，而选 FREEDOM形式，数据按页显示则数据窗口更为美观。 在中写完按扭的 script语句后，时常忘记写 open事件，而使程序运行不成nts 15 功。 实现数据库之间的联系 数据库之间 的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 nts 16 四章 系统总体规划 和界面设计 4.1 系统总体规划 和流程 可以进行文本操作 添加一个数据库项目； 删除一个数据库项目； 修改一个数据库项目； 学生信息，包括查询 。 成绩插入和删 除。 系统的管理。 察看课程表。 总体流 图 如下： 系统流程主要设计实体 E-R图 登录用户 成绩查询查询 学生信息修改 档案查询 成绩信息查询 个人信息 成绩信息 课程信息 学生 班级信息 nts 17 个人档案 学号 性别 姓名 年龄 个人成绩 科目 学期 学号 类型 名称 编号 课程 nts 18 4.2 系统具体实现 界面 主要窗体实现：个人资料查询 成绩信息 以及其他的窗口信息 图如下： 4.3 登录界面的实现 主要实现用户的登录。 nts 19 4.4 学生的成绩窗口设计 有主窗体直接进入成绩的查询模块。 主要实现成绩的查询等功能。 4.5 学生状况窗口设计 有主窗体直接进入 学 生状况窗口模块。 主要实现 学 生状况查询等功能。 nts 20 4.6 学生状况资料窗口设计 有主窗体直接进入 学 生状况窗口模块。 主要实现 学 生状况资料查询结果。 nts 21 4.7 学 生成绩修改窗口设计 有主窗体直接进入 学 生成绩修改窗口模块。 主要实现 学 生成绩资料查询结果。 nts 22 第五章 附录程序清单及注释 清单 如下： 登录部分 Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() 检查正确的密码 If combo1.Text = 1 And txtPassword = 1 Or combo1.Text = And txtPassword = Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True Me.Hide Form2.Show txtPassword = Else MsgBox 用户名或密码错误，请重试 !, , 登录 combo1.SetFocus txtPassword = SendKeys Home+End End If End Sub 主窗体 Private Sub bz_Click() Form7.Show End Sub Private Sub chaxun_Click() Form5.Show 1 End Sub Private Sub close_Click() End End Sub Private Sub Command1_Click(Index As Integer) If Index = 0 Then Adodc2.Recordset.MoveFirst nts 23 End If If Index = 1 Then If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveLast Else Adodc2.Recordset.MovePrevious End If End If If Index = 2 Then If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveFirst Else Adodc2.Recordset.MoveNext End If End If If Index = 3 Then Adodc2.Recordset.MoveLast End If End Sub Private Sub dangan_Click() Form3.Show End Sub Private Sub Form_Load() Dim i As Integer Dim str As String Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + data.MDe;Persist Security Info=False Adodc1.CommandType = adCmdText SQL = select * from data order by 学号 Adodc1.RecordSource = SQL Adodc1.Refresh str = select 学号 ,学期 ,科目 ,成绩 from chengji where 学号 = & Val(Text1.Text) & order by 学期 MsgBox str Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + data.MDe;Persist Security Info=False Adodc2.CommandType = adCmdText SQL = str nts 24 Adodc2.RecordSource = SQL tablename = orders Adodc2.Refresh Set DataGrid1.DataSource = Adodc2 DataGrid1.Refresh End Sub Private Sub Text1_Change() Dim i As Integer Dim str As String str = select 学号 ,学期 ,科目 ,成绩 from chengji where 学号 = & Val(Text1.Text) & order by 学期 MsgBox str SQL = str Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + data.MDe;Persist Security Info=False Adodc2.CommandType = adCmdText Adodc2.RecordSource = SQL tablename = orders Adodc2.Refresh Set DataGrid1.DataSource = Adodc2 DataGrid1.Refresh End Sub Private Sub xiugai_Click() Form1.Show 1 End Sub Private Sub xiugai1_Click() Form6.Show 1 End Sub Option Explicit Dim FileName As String 文件名，用于打开、保存文件 Dim UndoString As String 用于 Undo 操作 Dim UndoNew As String 用于 Undo 操作 Private Sub ImgUndoDisable() 禁用 “Undo” 按钮 UndoString = UndoNew = ImgUndo.Enabled = False nts 25 ImgUndo.Picture = ImageDisable.ListImages(Undo).Picture End Sub Private Sub ImgUndoEnable() 有效 “Undo” 按钮 ImgUndo.Enabled = True ImgUndo.Picture = ImageUp.ListImages(Undo).Picture End Sub Private Sub Check_ImgPaste() 设置粘贴按钮 If Len(Clipboard.GetText) 0 Then ImgPaste.Enabled = True ImgPaste.Picture = ImageUp.ListImages(Paste).Picture Else ImgPaste.Enabled = False ImgPaste.Picture = ImageDisable.ListImages(Paste).Picture End If End Sub Private Sub Check_ImgCutCopy() 设置剪切、复制按钮 If Text1.SelLength 0 Then ImgCut.Enabled = True ImgCut.Picture = ImageUp.ListImages(Cut).Picture ImgCopy.Enabled = True ImgCopy.Picture = ImageUp.ListImages(Copy).Picture Else ImgCut.Enabled = False ImgCut.Picture = ImageDisable.ListImages(Cut).Picture ImgCopy.Enabled = False ImgCopy.Picture = ImageDisable.ListImages(Copy).Picture End If End Sub Private Sub BackColor_Click() CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color End Sub Private Sub Box_Click() 显停工具栏 If Box.Checked Then 将停显工具栏 Box.Checked = False CoolBar1.Visible = False nts 26 Else Box.Checked = True CoolBar1.Visible = True End If Form_Resize 重新调整控件位置 End Sub Private Sub Close_Click() Dim FileNum As Integer If Len(FileName) 0 Then 有输入文件名 FileNum = FreeFile() 获得可用文件号 Open FileName For Output As FileNum 打开输出文件 如果无指定文件，则创建新文件 Print #FileNum, Text1.Text 输出文本 Close FileNum 关闭文件 End If Text1.Text = FileName = End Sub Private Sub ComboSize_Click() Text1.FontSize = Val(ComboSize.Text) End Sub Private Sub ComboFont_Click() Text1.FontName = ComboFont.Text End Sub Private Sub Copy_Click() Clipboard.SetText Text1.SelText 复制文本到剪裁板 End Sub Pri
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号