论文数据库系统VB+SQL

《论文数据库系统VB+SQL》由会员分享，可在线阅读，更多相关《论文数据库系统VB+SQL（26页珍藏版）》请在装配图网上搜索。

1、.摘 要在市场经济发达的今天,终生制的用人制度不再适应时代的发展,人才流动变得越来越频繁。而且随着教师数量的增加,使用信息系统进行教师信息管理成为一种迫切的需要。本人使用开发工具Visual Basic 6.0并结合Microsoft SQL Server 2000数据库开发的教师信息管理系统,可以让多个用户管理教师基本资料、任课情况、科研情况以及奖惩情况。本系统在功能上不仅实现了数据的添加、修改和打印功能,而且应客户的要求,对于每个模块都实现了数据的动态查询和按任意字段进行排序。在数据库设计上,满足了关系数据库的完整性要求；在使用上,操作简便、具有良好的人机交互界面。关键字：VISUAL B

2、ASIC,SQL,MSHFlexGrid,ActiveX数据对象SummaryThe market economy in today prospers, making the whole life of use persons system no longer adapts to the development of the ages, the talented person flow to become more and more multifarious. And along with the increment of teachers quantity, the usage inform

3、ation system proceeds the management of teacher becomes a kind of crying need. Combined Visual Basic 6.0 with Microsoft SQL Server 2000, The Teachers Management Information System explored by me not only can let several customers manage teachersbasic information, class information, scientific resear

4、ches information, rewards and punishment information; with the demand of customer,the system but also have the function of data increase, modification and print. Every module have the function that searchingthe data dynamiclyand lineing up by the segmentarbitrarily.With the database designing, the s

5、ystem satisfied the integrity request of the relation database;On the usage, this system have characteristics of convenient operation and person-to-computer communicationinterface.Keycodes:Visual Basic,SQL,MSHFlexGrid,ADO目 录摘要-2引言-4第一章 系统概述-5第一节 基本开发工具-5第二节 系统的功能模块结构-6第三节 系统的简介-7第二章 数据库概念结构-8第一节 用户管

6、理模块-8第二节 教师基本信息管理模块-9第三节 任课情况管理模块-10第四节 科研情况管理模块-10第五节 奖惩情况管理模块-12第三章 系统设计-13第一节 数据库连接-13第二节 数据库初始化处理-14第三节 主窗体设计-16第四节 主要功能模块设计实现-18一、 用户管理模块设计-18二、 记录查询模块设计-21三、 记录添加模块设计-23四、 记录修改模块设计-25五、 记录删除模块设计-26六、 报表输出模块设计-26总结-30参考文献-31附录-32教师信息管理系统引 言当前,我国正面临着如何加速几十万个企业以及一些组织和世界接轨,参与国际市场竞争这一重大问题,采纳先进制造技术与

7、管理思想进行改造势在必行。信息管理系统是一个以人为主导,利用计算机硬件、软件,网络通信这些设备和其它的办公设备进行信息的收集、传输、加工、储存、更新和维护达到战略竞优、提高效率的目的,来支持高层决策、中层控制和基层运作的集成化的人机系统。MIS为管理者提供报告、提供最近的情况以及历记。信息系统是信息化的物质基础,信息系统建设的好与坏,对于提高经济效益或管理效率有至关重要的作用。信息管理系统在当今社会的各行各业扮演着非常重要的角色,广泛应用在各个领域。信息管理系统的应用加快了信息的收集、整理,归类,又可以大量的节省人力,而且能够快速、准确、系统地处理所需要的信息。建立信息系统,在各个层次和各个职

8、能领域对企业或组织经营决策管理,是提高市场竞争力的重要方式。第一章 系统概述第一节 基本开发工具一、Visual Basic 6.0 概述Microsoft Visual Basic采用可视化的开发方法,是一种易学易用、快速高效的应用软件开发工具。利用VB较好的数据库接口和数据处理能力,程序员可以对包括Microsoft SQL Server和其他企业数据在内的大部分数据库格式创建数据库和前端应用程序；利用ActiveX技术,VB可以使用如Microsoft Word 字处理器、Microsoft Excel 电子数据表及其他Windows应用程序提供的功能,甚至可直接使用由VB专业版或企业版

9、创建的应用程序和对象；在此可以看出VB的功能之强大,是软件开发工具中的佼佼者。二、SQL Server 2000 概述SQL Server 2000是微软公司推出的网络数据库管理系统,其主要任务是存储、管理和提供数据,以满足客户端连接和存储数据的需要。它是真正的客户机/服务器体系结构,具有丰富的编程接口工具；其图形化用户界面,使得系统管理更直观。其中,企业管理器是微软管理控制台一个内建控制台,使用企业管理器几乎可以完成所有的管理工作,如设置用户权限、创建和管理数据库、创建管理表、存储过程、导入/导出数据等。三、ADOADO全称ActiveX Data Objects是一种便于使用的新的低层数据

10、访问接口,以统一的方式访问存储在不同信息源中的数据包括关联和非关联数据库、电子邮件和文件系统、文本和图形、自定义商业对象等。数据访问接口是一个对象模型,它代表了访问数据的各个方面。在VB中,可作用三种数据访问接口,即数据访问对象DAO、远程数据对象RDO和数据对象ADO,这三种接口代表了数据访问技术的三个发展时代,其中最新的是ADO,它也最灵活,囊括了DAO和RDO的所有优点,不仅能快速地访问本地数据库,而且也适用于访问远程数据库,是Microsoft公司长期的数据访问策略,将替代DAO和RDO成为以后最主要的数据访问接口。第二节 系统的功能模块结构教师信息管理系统包括五个模块：用户管理模块、

11、教师基本信息管理模块、任课情况管理模块、科研情况管理模块、奖惩情况管理模块。其设计的系统功能模块为：教师信息管理系统用户管理模块基本信息管理模块任课情况管理模块科研情况管理模块奖惩情况管理模块论文情况管理模块科研项目情况管理模块报表打印记录查询记录删除记录修改记录添加第三节 系统简介该系统采用Microsoft SQL Server 2000作为系统数据库开发平台,使用了ADO实现数据库的连接、访问以及其它的操作。系统主要是由5个模块组成,而且各个模块是相互独立的,分别为：一、用户管理模块在该模块中,用户登录必须通过访问数据库验证其用户名和密码是否正确,通过验证正确后,才能进入系统。用户进入系

12、统后,可以添加、修改和删除用户信息,若系统用户有且仅有一个时,系统将会弹出对话框提示不能删除此用户,方便了系统的管理,也提高了系统的安全性。二、教师基本信息管理模块三、任课情况管理模块四、科研情况管理模块：包括科研项目情况管理模块和论文情况管理模块五、奖惩情况管理模块此系统中,上述模块都可按其每个模块对应表的各个字段进行排序,也可以按教师的姓名等字段进行查询,相应的记录都可以在表格控件中显示出来。在表格控件中单击右键,就可以对所查询到的记录进行编辑管理,如添加、修改、删除等操作,这样使得系统有较高好的操作性。另外,在这此模块中还实现了动态查询功能,当在添加记录窗体中新增了一条记录后,在查询窗体

13、里动态地出现了新增加的记录选项,可以方便地进行查询。重要的是,在第二到第五个模块中还实现了打印功能,增加了系统的实用性。最后,系统还增加了一个状态栏,用于显示当前的状态、日期和时间,方便用户的查看。本信息系统可以让学校随时掌握教师的基本信息,有效地管理和充分利用教师各方面信息,减少学校工作的成本,协调各个部门的工作。第二章 数据库概念结构根据系统的设计要求,以模块为标准建立数据库,有利于数据库的完整性,也有得于系统的扩充性和维护性。在数据库设设计时,考虑到尽量避免出现数据类型错误的情况,绝大多数的表元素可以为空值。下面介绍五个主要模块的数据库结构。第一节 用户管理模块该模块是用于管理和验证用户

14、信息,对合法的用户授予使用权限。本模块中只有一个表tabuser表,下面就是这个表的实体关系：tabuserpasswordbhusername用户密码用户名编号第二节 教师基本信息管理模块该模块所包含的都是教师个人的一些基本信息,包含一个表tabjbxx,它的实体关系如下图示：毕业院校进校时间获得学历及学位时间学历及学位jxsjhdxlxwsjxljxwbyyx任教时间职称zhicheng聘任时间rjsjgangwei岗位prsjtabjbxxbhzhiwu编号职务xingming zhuanyezzmmcsnyjiguanxingbie姓名政治面貌专业出生年月籍贯性别第三节 任课情况管理模

15、块该模块的功能是管理教师在不同学期的任课情况,包含一个表tabrkqk,实体关系如图：tabrkqkkcmingbanjibhxingmingxueqisksu课程名班级姓名编号学期上课时数sysukclb实验时数课程类别第四节 科研情况管理模块该模块包括两个方面内容：项目情况管理模块和论文情况管理模块。这两个模块都有动态查询功能,也有对数据进行操纵的功能如添加、修改、删除和打印功能；在SQL中建了两个表tabkyqk和tablwqk,分别用于这两个模块中,其实体关系如下图：项目情况表：tabkyqkxmmcbhxingmingnianduxmly姓名项目名称编号年度资助金额jsrqksrq结

16、束日期开始日期论文情况表：tablwqkfbsjfbgwmclwmcnianduxingmingbh发表时间发表刊物名称论文名称年度编号姓名第五节 奖惩情况管理模块该模块的主要功能就是集中统一管理教师在各年度的奖惩情况,包含一个表tabjcqk,实体关系如图所示：tabjcqkjlchjldwjlchnianduxingmingbh奖励称号奖励单位奖励称号年度姓名编号beizhujlyy奖励原因备注第三章 系统设计第一节 数据库连接一、ADO技术首先单击VB工程菜单的引用,弹出如下图所示的对话框,勾选ADO并单击确定。如下图：因本人更擅长于用数据环境,就使用了ADO编程模型而没有用ADO控件进

17、行VB和SQL的连接。为了使程序更为简洁,在VB程序设计时添加了一个模块,定义了两个公用函数,在以后的程序设计过程中基本上都是调用这两个函数进行连接操作。两个函数为：Public Function ConnectString As StringPublic Function ExecuteSQL As ADODB.Recordset系统在运行时,程序就是通过调用这两个函数来实现数据库的连接和记录的查询。第二节 数据库初始化处理在系统运行初期,除了用户表中有一条记录外,teacher数据库中其余表都是一张空表,里面是没有任何数据的,这时就要对数据库中的表进行初始化。一、用户管理模块在用户管理模块

18、中,由于用户表中的用户名和密码都设置不能为空,当用户表中有且仅有一条记录时,若删除这个用户就会弹出如下所示消息框,这样就避免了在运行时因空值引发的错误的情况。这个功能实现首先要判断系统总共有几个用户,代码如下：intCount = 0 txtSQL = select * from tabuser Set mrc = ExecuteSQL If mrc.EOF = False Then Do While Not mrc.EOF intCount = intCount + 1 mrc.MoveNext Loop End If若用户有且仅有一个则弹出如上图所示的消息框,若有多个用户,则可进行删除操作

19、。在删除时,同样要验证用户名和密码是否匹配。代码如下： txtSQL = select * from tabuser where username = & txtusername.Text & Set mrc = ExecuteSQLIf mrc.EOF = False ThenIf intCount = 1 Then MsgBox 此系统用户就只有一个,不能删除此用户！, vbOKOnly + _vbExclamation, 警告End IfElse MsgBox 没有这个用户名！, vbOKOnly + vbExclamation, 警告Exit Sub End If二、其它模块在其余四个

20、模块中,若数据表中没有记录时就弹出如下图所示的消息框：现在以教师基本信息管理模块为例,由以下程序段实现的： txtSQL = select * from tabjbxx Set mrc = ExecuteSQLIf mrc.EOF =True ThenMsgBox 数据库中没有记录！, vbOKOnly + vbExclamation, 警告End If当单击主窗体的基本信息添加菜单,弹出教师信息添加窗体,就可以向tabjbxx表中添加记录了。类似地,其它三个模块也是这样进行表格的初始化处理的,这里就不一一叙述了。第三节 主窗体设计主窗体frmmain包括菜单栏和状态条组成,界面如下图：一、菜

21、单栏的设计菜单的设计是由菜单编辑器 设计实现的,界面如下图所示：二、状态条的设计状态条StatusBar1位于主窗体的底部,主要用于显示应用程序的各种状态的信息,其中第一栏显示系统当前状态,第二、第三栏分别显示当前的日期和时间,如下图所示：StatusBar控件是ActiveX控件,包含在MSCOMCTL.OCX文件中,添加后该控件将在控件箱中出现；在窗体上创建StatusBar1,用鼠标右键单击该控件,选择快捷菜单中的属性命令,出现属性页如下图；在此可设置分栏数目为3、各栏所显示的内容等信息。第四节 主要功能模块设计实现一、用户管理模块设计该模块是系统数据安全的防火墙,只有通过了该模块的身份

22、验证,用户才有权使用该系统。在数据库的用户表中包含了所有用户的信息,随着用户的增减及考虑到系统安全性,用户表的信息也相应地可以添加、修改和删除。如下图所示教师管理系统的登录界面frmlogin：在登录时,可以在列表框中选择用户名,然后输入密码,单击确认按钮验证正确后便可进入系统主窗体。主要代码为：UserName = txtSQL = select * from tabuser where username = & cbousername.Text & Set mrc = ExecuteSQL If mrc.EOF =False ThenIf Trimmrc.Fields = Trim The

23、n OK = True mrc.Close Me.Hide UserName = Trim frmmain.Show Unload Me End If End If在进行用户名和密码的验证时,若有连续三次输入用户名和密码不一致,则退出系统,实现的代码为： miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit Sub在此登录界面,欢迎使用此管理系统！是用计时器做的由左到右的一行流动字幕,设置计时器的interval属性为200。这样,登录界面就不会显得呆板,使得此界面变得更美观。代码为：Label4.Left = Label4

24、.Left - 50If Label4.Left = frmlogin.ScaleLeft - Label4.Width ThenLabel4.Left = frmlogin.ScaleWidth - Label4.WidthElseLabel4.Left = Label4.Left - 50End If当用户登录成功进入主窗体后,就可以进行用户的管理了。当单击主窗体上的系统菜单,弹出一个下拉菜单,如下图所示；当前用户可以对用户进行添加、删除以及修改密码。下面来详细介绍一下管理功能实现过程：一添加用户单击添加用户,则会弹出如下图所示的添加用户窗体frmadduser：在上面窗体文本框中输入用户

25、名和密码,按确定按钮后,如果用户名不为空,就连接到teacher数据库检索其中的usertab表,判断表中是否已有此用户名,检索到的情况系统都会以消息框的方式告诉用户。这样既保证了用户名的唯一性,也避免了系统在运行时因记录的空值所引发的错误。若用户名没有重名且不为空,密码和确认密码一致且不为空,把此用户信息添加到用户表中。主要代码如下： mrc.AddNew mrc.Fields = Trim mrc.Fields = Trim mrc.Update mrc.Close MsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户 Me.Hide二修改密码单击修

26、改密码菜单,会弹出下图所示的修改密码窗体frmmoduserpwd：在系统设计阶段,本人在程序的模块中定义了一个公共变量UserName,用户登录成功时就把当前用户名赋给了这个变量。当此用户要修改密码时,在连接到数据库查询用户表tabuser时就可以利用该变量准确查找到当前用户记录所在的位置,确保进行对表的正确操作。相应的主要代码如下： txtSQL = select * from tabuser where username= & UserName & Set mrc = ExecuteSQL mrc.Fields = txtnewpwd.Text mrc.Update mrc.Close

27、MsgBox 密码修改成功！, vbOKOnly + vbExclamation, 修改密码 Me.Hide三删除用户单击菜单删除用户,弹出如下所示的删除用户窗体frmdeluser：当系统用户有且仅有一个时,系统不允许删除用户。除此之外,当前用户只要输入正确的用户名和密码,且用户名和密码相匹配时,就可以删除自己或其它用户的信息。相应的代码为：txtSQL = select * from tabuser where username = & txtusername.Text & Set mrc = ExecuteSQL If Trim = Trimmrc.Fields And Trim = T

28、rimmrc.Fields Then mrc.Deleteend if二、记录查询模块设计如下图所示,单击教师基本信息,就可以看到该模块可以对教师基本信息进行查询、添加、修改和删除操作。单击基本信息查询,弹出下面基本信息查询窗体frmxxcx：在复选框中勾选查询记录需满足的条件,选择或填入相应信息,单击查询首先得到并在窗体右上角显示需查询记录所要满足的条件,如上图的姓名为李丽的基本信息表,方便用户的查看。之后就可以根据所得的查询条件查询到满足条件的记录并在控件msglist中显示出相应记录,同时显示查询到的记录的条数。相应代码为： txtSQL = select * from tabjbxx

29、where & sQSql Set mrc = ExecuteSQL With msglist .Rows = 1If mrc.EOF = False Then Do While Not mrc.EOF .Rows = .Rows + 1 For i = 0 To 15.CellAlignment = 4 .TextMatrix = mrc.Fields Next i mrc.MoveNext LoopEnd IfEnd WithMsgBox MsgText, vbOKOnly + vbExclamation, 提示单击窗体frmxxcx上的全部显示按钮,在控件msglist里就可以显示出教师

30、基本信息表tabjbxx 中的所有记录。代码如下： txtSQL = select * from tabjbxx Set mrc = ExecuteSQL选择作为排序标准的字段,然后单击升序排序按钮,在msglist控件中的记录就会按所选中的字段重新排序。主要程序段为：txtSQL = txtSQL & order by & sMeg Set mrc = ExecuteSQL三、记录添加模块设计在一个信息系统中,记录的添加功能是必不可少的,如何实现该功能呢？单击主窗体基本信息添加菜单,弹出如下图所示的教师信息窗体frmjbxx：用户在相应的文本框填上教师的基本资料,单击添加按钮程序一样会检测填

31、入的信息是否有空值,还需判断数据类型和格式是否正确等。只有所填资料不为空和数据类型格式正确,才会将此记录添加到teacher数据库的tabjbxx表中系统会自动检索到此表编号的最大值加1赋给新记录的编号字段；否则就会弹出消息框告诉用户该如何填写资料。这样就避免了因数据的空值和类型不匹配而发生错误的情况。主要程序段如下：txtSQL = select * from tabjbxx order by bhSet mrc = ExecuteSQLIf mrc.EOF = True Thenmrc.AddNewmrc.Fields = 1Elsemrc.MoveLasttemp = mrc.Field

32、smrc.AddNewmrc.Fields = temp + 1End Ifmrc.Fields = TrimText1.Textmrc.Fields = TrimFor i = 1 To 13 mrc.Fields = TrimText1Next imrc.Updatemrc.CloseMsgBox 添加记录成功！, vbOKOnly + vbExclamation, 添加记录由上面代码可见,如果记录添加成功后,将弹出添加记录成功！的消息框。为了让用户能够立即看到刚刚添加的那条记录,本人增加了一段代码,即让控件msglist清空,然后重新对更新的数据库进行查询,使查询结果在msglist中显

33、示出来,而且让新增加记录的姓名将自动添加动查询条件的姓名组合框中。这样可让用户更加简便地对数据进行操作,实现了记录的动态查询。若打开了教师基本信息查询窗体frmxxcx,用户可以不用单击主窗体frmmain上的基本信息添加菜单,而在控件msglist上单击右键,在弹出的快捷菜单中选择基本信息添加命令,也一样可以弹出基本信息添加窗体frmjbxx进行记录的添加。如下图所示：在进行记录修改和删除操作时,也可以先选择要操作的记录,选择其它相应命令进行操作。实现此功能代码如下：Private Sub msglist_MouseUpIf Button = 2 And Shift = 0 Then Pop

34、upMenu frmmain.menujbxiEnd IfEnd Sub四、记录修改模块设计记录修改也是信息系统必须实现的功能之一,在教师基本信息查询窗体frmxxcx的msglist控件上选择要修改的记录并单击右键,选择基本信息修改命令,则会弹出真的要修改这条记录么？的对话框,若选择是,就弹出下图所示的基本信息修改窗体frmjbxx,而且还会把选择中记录的除性别外的各个字段显示到该窗体。若没有选择任何记录就选择基本信息修改命令,系统就会弹出消息框提示用户选择要修改的记录。同样地,在用户填写好修改资料后单击修改按钮的同时,只有所填资料不为空和数据类型格式正确,系统才会将此记录保存到teache

35、r数据库的tabjbxx表中,并替代原来的那条记录。实现该功能的代码如下： _x& Set mrc = ExecuteSQLmrc.Fields = TrimText1.Textmrc.Fields = Trim For i = 1 To 13 mrc.Fields = TrimText1 Next i mrc.Update mrc.CloseMsgBox 修改记录成功！, vbOKOnly + vbExclamation, 修改记录如果记录修改成功后,同样会弹出修改记录成功！的消息框,而且替换后的记录的姓名字段将自动在姓名组合框中更新。这样可让用户更快地看到数据的变化,方便用户操作。五、记录

36、删除模块设计在教师基本信息查询窗体frmxxcx的msglist上选择要删除的记录并单击右键,在弹出的快捷菜单中选择基本信息删除命令,则会弹出下图所示的对话框,若选择是则直接删除此记录。 实现此功能的代码如下：txtSQL= select * from tabjbxx where bh= & _Trimfrmxxcx.msglist.TextMatrix & Set mrc = ExecuteSQLIf Not mrc.EOF Then intCount = mrc.Fields mrc.DeleteEnd If六、报表输出模块设计首先选择VB工程菜单,单击添加Data Environment

37、添加一个数据环境,选中Connection并单击右键,选择属性命令,弹出如下图所示的对话框,对其进行相应设置,使其连接到teacher数据库。在如数据环境Data Environment1窗口中添加一个命令,同样选中此命令单击右键,选择属性命令,设置连接属性,使其连接到teacher数据库中的tabjbxx表,如下图：设置这些后,数据环境Data Environment1窗口如下图所示：向工程中添加数据报表Data Report,设置其DataMember为Command1,DataSource为Data Environment1,使其显示teacher数据库中tabjbxx 表中的内容。把要

38、显示的字段拖到报表里面,添加报表的标题,设计界面如下：由于教师基本信息表tabjbxx的字段太多,就用了两个数据报表实现教师基本信息报表输出。系统运行后,单击基本信息查询窗体frmxxcx的报表1和报表2按钮,报表输出如下图：实现此输出功能的代码为：Private Sub cmddayin_ClickDataReport1.ShowEnd SubPrivate Sub cmddayin_ClickDataReport6.ShowEnd Sub在上面报表中,可以实现数据报表的打印和导出；单击上面的,就可以进行打印设置。总 结该系统在功能上实现了多个用户对教师基本资料、任课情况、科研情况以及奖惩情

39、况的记录查询、添加、修改、删除和打印,而且应客户的要求,每个模块都实现了数据的动态查询和按任意字段进行排序。所查询到的记录都可以在表格控件中整齐有序的显示出来,并且还可以对查询结果在表格控件中任意地进行添加、修改、删除和打印操作,这样大大地方便了用户对数据库的操作。由于本人粗心及其它原因,在系统设计过程中也碰到了不少问题。但因本人以前编写过一些小程序,对VB比较熟悉,一般的问题都是可以自己一一解决的。例如在调试程序时,经常会遇到记录的空值所引发的错误,这花费了很多时间去处理,所以在编程时细心一点,编译时就少报些错误,这样就可以节省大量时间。当在表格控件上单击右键进行数据操作时,不知道该根据什么

40、来判断是记录是否选中,无论选中没选中提示信息都是一样的。在漆老师的指导下,我就让系统根据所选行的第一列在数据表中检索数据表中是否存在第一个字段等于所选行第一列的记录,若有则表明选中了记录,反之则无。在以后的编译中,碰到的大部分问题在系统的提示下都得到了很好的解决。通过对教师信息管理系统的设计,让我对VB可视化编程的掌握更上了一个台阶,同时也让我对VB是如何访问SQL Server数据库有了进一步的了解。当然,由于本人水平、经验有限,再加上时间仓促,该系统错误和不足之处在所难免。如数据安全方面没有实现,数据操作日志也没有实现等,希望各位读者和专家能给我提出宝贵意见。在本人系统开发过程中,得到了许

41、多同学和老师的大力支持,特别是指导老师漆志群老师,在此整个系统开发过程中提出许多宝贵意见和给予了我大力的支持,在此向漆老师表示我诚挚的谢意。参考文献1谭浩强, 薛淑斌, 袁玫. Visual Basic程序设计. 清华大学出版社, 20XX7月第一版. 第63页到169页 .2刘瑞新 .Visual Basic程序设计教程习题及习题解答. 机械工业出版社 , 20XX4月第1版. 第52页到第64页.3 郑阿奇, 曹戈. Visual Basic 实用教程. 电子工业出版社 , 20XX6月第六版. 第18页到第295页.4 黄明. Visaual Basic6.0信息系统设计与开发实例. 机

42、械工业出版社, 20XX4月第1版. 第1页到第52页.5 :/vbworld.sxnw.gov/ VB大世界6 邓良松. 软件工程. XX电子科技大学出版社, 20XX11月第1版 .第45页到第102页 .7 廖望. SQL Server2000案例教程. 冶金工业出版社 , 20XX4月第一版.第1页到74页, 第281页到第322页.8 希望图书创作室译. SQL完全参考手册. 北京希望电子出版社, 2000.第5页到第78页.9 李卓玲 .数据库系统原理与应用. 电子工业出版社 , 20XX8月第1版.第71页到148页.10 :/cec-ceda.org/information/b

43、ook/info-8.htm 企业管理信息系统11 袁晓洁 ,徐雷. 数据库系统教程. 南开大学出版社, 1998. 第64页到第128页.附 录1、公用模块中的代码Public UserName As StringPublic Function ConnectString As String ConnectString = driver=sql server;server=;UID=sa;PWD=;database=teacherEnd FunctionPublic Function ExecuteSQL As ADODB.Recordset Dim cnn As ADODB.Connect

44、ion Dim rst As ADODB.Recordset Dim sTokens As String On Error GoTo ExecuteSQL_Error sTokens = Split Set cnn = New ADODB.Connection cnn.Open ConnectStringSet rst = New ADODB.Recordset rst.Open Trim$, cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & 条记录 Exec

45、uteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误: & Err.Description Resume ExecuteSQL_ExitEnd Function2、frmlogin.frm登录窗体的代码2.1用户登录及验证Option ExplicitPrivate Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA As LongPublic OK As BooleanDim

46、 miCount As IntegerPrivate Sub cmdqueren_ClickDim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String UserName = If Trim Then MsgBox 没有这个用户,请重新输入用户名！, vbOKOnly + vbExclamation, 警告 cbousername.SetFocus Else txtSQL = select * from tabuser where username = & cbousername.Text & Set mrc = E

47、xecuteSQL If mrc.EOF = True Then MsgBox 没有这个用户,请重新输入用户名!, vbOKOnly + vbExclamation, 警告 cbousername.SetFocus Else If Trimmrc.Fields = Trim Then OK = True mrc.Close Me.Hide UserName = Trim frmmain.Show Unload Me Else MsgBox 输入密码不正确,请重新输入！, vbOKOnly + vbExclamation, 警告 txtpassword.SetFocus txtpassword.

48、Text = End If End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit Sub End Sub2.2窗体装载时执行的代码Private Sub Form_Load Dim sBuffer As String Dim lSize As Long Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As StringsBuffer = Space$ lSize = Len Call GetUserName If lSize 0

49、Then cbousername.Text = Elsecbousername.Text = vbNullString End If OK = False miCount = 0 txtSQL = select * from tabuser Set mrc = ExecuteSQL If mrc.EOF = False ThenDo While Not mrc.EOF cbousername.AddItem mrc.Fields mrc.MoveNext Loop End IfEnd Sub3、frmxxcx.frm教师基本信息查询窗体 3.1窗体装载时执行的代码Private Sub For

50、m_LoadDim i As IntegerDim j As IntegerDim k As IntegerDim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringtxtSQL = select * from tabjbxxSet mrc = ExecuteSQLIf mrc.EOF = False ThenDo While Not mrc.EOFcboxingming.AddItem mrc.Fieldsmrc.MoveNextLoopFor i = 0 To 1For j = 1950 To 2050 cboyear.AddItem jNext jNext iFor i = 0 To 1cboyear.Text = YearNow Next IFor i = 0 To 1For j = 1 To 12 cbomonth.AddItem jNext jNext iFor i = 0 To 1cbomonth.Text = MonthNowNext iElse MsgBox 数据库中没有记录！, vbOKOnly + vbExclamation, 警告 End IfWith msglist .Cols = 16 .TextMatrix = 姓名 .TextMatrix = 性别 .TextMat