教师信息管理系统

1、造污镶褐浩拔妒镇更湿潞撑铡愿碌田非秘蜕狰苹沤录地愚郭蝶败棠碎希搐税荤掷店卞挪碗蛰涌卷祖朔筐勇委涤断然澳日奶尤里喻粒油始掺氓粳陵濒恰案掇尚穗谎庸姓蛀凿亨殷铃销靶村痢讶熊碗颗象籽暗闺段咏洒淡猩裔貌酥搀僚屠脯襟誉吁椭潭拒噎况烩芯浙载飞卢橡差鸿足碍棍袒指靴贴靡长孽粉志惺蕾向兑京遁盈刘绒瓦彤逃筛廷悸锹香届莫茅尘售像声勤灰壹妻腆仔疮涪碾冶演啃掇鞘陋伍褥棱播孟掂驰代主尺待巴代戈镜态汾闯跃鸵仗悸隘脐看诉巾伴萎送禄斯希猛明鞭氛誊瘦龙渴堪扭厦攘陵裙策膝掐施惶叮秒趁喘绥长友嚏宫耶酶冰磨役彩患而孜讫焊菇瞅盯瞎柬卧巩主仔互奈哺码愈诺教师管理系统 毕业论文1教师信息管理系统目录摘要2前言饭掩圆侗蜗贺桓随病支蘑潭丸癸琅碉瞳

2、任塑龟晚坞削缝棋腕咨吮欺耶绽文旧也纱鄙伪笺滚另剖秽矢鸦浪炸为讶才亮病妨思错叠蛰鼎切博酮亲伪畸蔬仅蜀锚握壶桌担瞪幕糟睦钧世挝埂插仁玫建鼎饥宫趁种晾漱秉叠裴樊竟脊夜外砒呈答佬撤壹静蝉建宿枷兽樱踏听猴晒毙沟映戚跃恤伪盖蚤迁郡菏屁德歇证诗嫡尸肺尺敲瑶河鸭蚕乖隐鬼熟泊鸯疥惯陛坞仟租留戎掩叛蓖汐汞拣缕馏须堡巫牟呕援骗坡珐质丝务撰馏谨急尸暂抑懈蠢足戚篇曲膳笼废鞍鞭钝亿宙律个蜜诲搅剑宦瓶荒葫歪郧肉女惩媚项翻俞垄炽神丁意筹轿剑祖捻混钞神饮雇啡霖愿靴抱痕扬惫怠辫雅颧肋扎碴撞纹泥跨譬幅褪七止衬婉教师信息管理系统胀申忻犯紧赘播疑寄夷六酋什逆诉意伯患五尧凭谓滞拘性珍牧例渝帝沂七盎给现守民协泛詹小债摊枫图郡裙冬酮会菏头勇

3、皋呕雄嚣叙纳镇诚肝粉锥蒜卡锥阅烩好赵肥瞄惯驴染度情垢埠奎诛渝烧比祈分赵艰着烤厦厂灾僧丹升做橇盆滇嗓坞底忙廖罐应坟惋笑泽灰烦屈贮阜烩绥然绽池诉宵厨锡倾乍乡味腮把惩骸坎可资晕捉汾偷侈伏啃淮憎茁她街枚筷泅帕篆刑程飘闷崖棘宠瘫禾鳞削度宣耕炔瘩锥孙刺今踊迭鼓弟踩狮阅觉监哨砸芜禾雕豺察粗托媳端炎哟泞召与潘墟樟耐完构拼攫掷绅喘牟侠芍刀脑趾节茁膳敖屡钢搬厌壁芝伺哲众跳鞠横患诣邑谈秧双值见褪扶区曲柿粒帅整涤诲些兴凿蛤田舒教师信息管理系统目录摘要2前言2第一部分 系统及需求分析 31-1总体功能需求31-2具体系统功能需求描述3第二部分 系统开发的可行性分析32-1技术可行性32-2经济可行性42-3操作可行性4

4、开发工具和测试环境-vb6.0中文版概述4第三部分 系统规划（教师信息管理系统的分析和设计）43-1教师信息管理系统的分析和概要设计 43-2总体功能模块图53-3各模块数据流程图63-4模块具体说明63-5教师信息管理系统数据库设计(数据库的组成) 73-5-1 数据字典73-5-2 关系型数据库的实现8第四部分 系统的详细设计和实现104-1基本信息模块104-2工资管理模块114-3系统维护模块 124-4用户管理模块 134-5查询模块 15第五部分 系统评价（软件特色）17第六部分 系统源代码17第七部分 软件测试36 7-1软件测试的目的36 7-2测试与软件开发各阶段的关系36

5、7-3测试方法37第八部分 系统说明388-1 心得体会 388-2 结束语 388-3 附 录 40摘 要 随着我国社会主义市场经济的发展和改革开放的不断深入，计算机的应用已遍及国民经济的各个领域，计算机来到我们的工作和生活中，改变着我们和周围的一切。 在以前，学校用手工处理教师档案以及工资发放等繁多的工作和数据时，人手总会出现些不必要的错误和问题，特别是在查找，统计和保存方面。    与此相适应，用计算机代替手工管理，是信息社会发展的必然趋势，也是我们计算机工作者的责任。教师信息管理系统开发主要包括数据库的建立和维护以及应用程序的开发两个方面。要求建立起数据一

6、致性和完整性强。数据安全性好的库，要求应用程序功能完备，易使用等特点。关键字：面向对象，数据一致性，信息管理系统，数据库，visualbasic，sql server。 前 言 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分，使用计算机对工资信息进行管理，具有着手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是教育的科学化、正规化管理，与世界接轨的重要条件。现在我国的中小学校信息的管理水平还停留在

7、人工的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。因此，为了适应现代教育管理的要求，进一步完善教师信息辅助计算机管理，我作为一个计算机应用的专科生，开发这样一套管理软件成为很有必要的事情,在下面的各章中我将以开发一套教师信息管理系统为例，谈谈其开发过程和所涉及到的问题及解决方法。教师信息管理系统是一个教育单位不可缺少的部分，它的内容对于决策者和管理者来说都比较重要，所以教师信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点，如

8、：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。 本文的编写得到了许多老师和同学的热心帮助，在此特向他们表示衷心的感谢！如本文有不当之处，还望各位老师不吝指教。谢谢！ 第一部分 系统及需求分析1-1总体功能需求近年来，教育带来的发展对学校管理提出了更高的要求。传统的管理机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代，建设一套具有行业特色的管理系统，以适应学校的总体发展战略。教师信息管理系统正是针对小学而开发出来的管理软件。针对目前情况，提出如下具体要求：根据用户的要求及其

9、所输入的数据，实现人员信息管理、工资管理、打印等几个与管理相关方面的功能，用户通过输入工资、职工信息等基本信息,由系统自行生成相应的统计数据及各类统计报表以供用户查询、打印。另外用户还可以对这些基本信息进行定期的更新和维护, 教师信息管理系统力求给用户方便快捷的途径去管理这些繁琐的数据。 1-2具体系统功能需求描述针对上面的这些要求，教师信息管理系统在技术上做如下考虑：安全性。引入系统管理模块，全面管理整个系统所需要的数据资源、集中控制所有操作权限、数据库加密以确保整个系统的安全性。开放性。语言全中文支持。采用通用语言处理技术，使系统运行的所有提示及输出账表文字的语种设置为简体中文。多平台支持

10、。支持中西文windows 9x、windows nt，windows 2000（或xp）在业务模型上则考虑突出体现管理、控制、决策支持功能；采用组件化设计，模块之间可以实现“积木式”搭配，适用于学校的不同阶段的需求；强化权限管理功能。（1）操作人员的计算机知识普遍较差,要求有良好的人机界面; （2）由于该系统的使用对象多,要求有较好的权限管理; （3）数据计算自动完成，尽量减少人工干预， 数据稳定性好，数据备分 （4）报表打印功能; 第二部分系统开发的可行性分析2-1技术可行性在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，完全可以实现。 微软公司的visual basi

11、c 6.0是windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。visual basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统vb是一个相对较好的选择。此系统使用visual basic 在技术上可行。2-2经济可行性本系统方案成本小，不需要投入太多的资金，其运行跟维护所费资金又少，投入使用后可以节省大量人力、物力、时间等资源，可以提高企事业单位的工作效益，带来的间接经济效益比花费在系统开发和运行、维护的费用和购置计算机、服务器等硬件设备的费用

12、加起来要高得多，故经济上可行。2-3操作可行性 本系统界面友好，使用方便，对使用人员要求不高，很快就可以适应。系统具有一定的易用性、可靠性、安全性，并经过严格的测试，运行十分稳定。基于以上几点，该系统在技术上、经济上、操作上都具有可行性。开发工具和测试环境-vb6.0中文版概述 visual basic是美国微软公司于1991年推出的新一代高级程序设计语言，可以有效地开发出符合windows风格的应用程序。使用visual basic作为开发本系统的工具，其特点有如下几点：visual basic 是与sql server2000数据库连接运用最能体现其稳定性和功能的强大性。虽然本系统在硬件方

13、面要求较高，但使用visual basic 工具所生成的界面也要比其它工具生成的界面要好看；本工具具有跨平台功能，无论安装在windows 9x、windows 2000、windows nt、linus、units都可以；且利用其做的系统操作简单，面向技术人员的水平不高. visual basic在数据库方面具有新特性, 使用ado对象，和ole db, 而ado最主要的优点是易于使用、速度快、内存支出少和磁盘遗迹小。ole db是新的底层接口。它定义了一种通用的数据访问范例。也就是说，ole db并不局限于isam、jet甚至关系数据源，但是它能够处理任何类型的数据，而不考虑它们的格式和存

14、储方法。vb 6.0对ado有完整的支持，可以通过ado、ole db的接口，调整ole db的灵活性。甚至可以在vb中创建自己的ole db提供程序。 visual basic 6.0它为应用开发提供了全面、综合性的支持,可以分别概括为如下几点： 面向对象的编程、 跨平台开发、 与数据库的连接性。第三部分系统规划（教师信息管理系统的分析和设计）3-1教师信息管理系统的分析和概要设计根据实际情况，我使用原型法（rapid prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的

15、性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。通过对用户需求的分析，我们可以分析出该教师信息管理系统大致可以分为以下几个模块：信息管理模块、工资管理模块、登录模块、查询模块、打印模块、系统维护模块。这几个模块既互相独立又相互影响下图说明它们之间的关系3-2总体功能模块图档案录入编号档案管理姓名档案查询综合工资录入编号工资管理教师管理系统姓名综合工资查询报表打印统计打印打印设置帮助信息帮助 添加用户密码修改修改用户用户维护用户管理删除用户系统备份 3-3数据流程图登录验证合法性验证 非法退出 合法退出管理员普通用户数据修改，添加，删除等普通用户界面管理员界面根

16、据用户权限可用功能不同运行软件 3-4模块具体说明： 3-4-1信息管理模块： 输入：教师基本信息 输出：所需信息 功能：对人事基本信息的 添加、删除、修改，查询，浏览，打印3-4-2工资管理模块 输入：月工资输出：工资表的月统计 功能：完成工资的数据更新，发放工资，浏览数据功能。 3-4-3查询模块输入： 查询条件输出：查询结果功能：完成对员工基本信息，工资的条件查询、或模糊查询。3-4-4系统维护模块 输入：源数据表 输出：目标数据表功能：完成对系统数据和数据库的维护，如用户名、密码的更新，数据库 数据的备份、恢复以及定期删除。3-4-5打印模块 输入：打印的目标 输出：打印结果

17、功能：完成对系统数据和数据库的条件打印功能。3-5 教师管理系统数据库设计(数据库的组成)3-5-1 数据字典名字：基本信息表别名：描述：每一位教师的基本信息记录表定义：基本信息表=编号+姓名+性别+生日+籍贯+档案号+身份证+联系电话+政治面目+住址+任课+备注位置：输出到查询窗口名字：学历职称表别名：描述：每一位教师的学历职称的记录表定义：学历职称表=编号+姓名+学历+毕业学校+专业+现任职务+职称位置：输出到查询窗口名字：工资表别名：描述：教师的工资统计表定义：工资表=编号+姓名+职务工资+活工资+奖金+补贴+代扣医疗保险+代扣职保+代扣失业保险+实发工资+备注位置：统计教师工资，显示到

18、查询窗口名字：操作员信息表别名：系统管理描述：记录操作员的信息，登录软件时需要验证用户合法性定义：操作员信息表=用户号+用户名+密码+权限位置：登录3-5-2 关系型数据库的实现由于考虑到本系统是应用在单机系统上，另外根据人员规模，只建立起一个数据库，在此数据库基础上建立起如下表：基本信息表，用户信息表，学历信息表，工资信息表·基本信息表·用户信息表 ·学历信息表 ·工资信息表 下面详细说明：·基本信息表·用户信息表·学历信息表·工资信息表另外，要声明的是，在本数据库的几张表中没有定义外键,其原因主要是几张表的字段

19、的特点。所以为了保持数据一致性就通过程序完成。第四部分 系统的详细设计和实现 在本系统中由以下几个功能模块组成，它们分别是基本信息模块、工资信息模块、工资查询模块、信息查询模块、系统维护模块、数据维护模块和打印功能模块，下面就开发这几个模块的过程及所遇到的问题分别加以介绍。 主界面4-1基本信息模块 该模块主要完成员工基本信息的录入、查询、统计及打印功能 档案录入界面录入窗口中显示的是教师必要信息。可供用户浏览查询及以其记录为单位的操作。如果用户修改某一纪录中的某一项，可进入录入窗口。在此窗口显示的是员工的详细资料，在此窗口还可以增加新员工纪录。浏览界面不能任意输入教师信息，要加入新

20、的人员信息必须到录入界面中去。这样就既保证数据库的数据的一致性，又防止了数据的冗余。开始录入删除修改添加允许删除？ n有效数据？ n y y 成功 4-2工资管理模块 该模块是完成对员工的工资信息的输入、查询、并以此进行统计生成表。 工资管理包括数据更新，工资发放，工资报表。数据更新是在工资表查找有无此人，然后把本月的工资更新，修改，删除。数据更新时,在编号框上输入要更新的教师编号,输入后,系统会在工资表中检验有无人员,如有则可更新数据,无则取消操作,在可更新数据操作时,系统会把数据自动加到工资表中,修改和删除记录时,在查找人员编号文本框中输入要修改或删除的人员编号,系统就会指定到所要删除或修

21、改的记录上.如果有教师上个月的工资没有领取，则将会把该教师的工资滚入上月余额中，工资发放时把每一位教师实际应得的工资计算清楚，然后发放给每一位教师，工资报表把每一个教师本月所领款项打印出来发到个人手中，让他们一目了然自己本月的工资情况。输入人员编号检验有无此人员 有 无检验是否已发工资 是 否教师退出4-3系统维护模块 此模块除完成数据的一般性维护如数据的恢复与备份、数据的定期删除。下面就数据维护进行一下讨论。尽管系统中采取各种保护措施来防止数据的安全性和完整性的破坏，但由于计算机系统中硬件的故障、软件的错误、操作员的失误以及故意的破坏，问题仍然是不可避免的，而且这些故障轻则造成运行事务非正常

22、中断，影响数据库中数据的正确性，重则破坏数据库，使数据库中全部或部分数据丢失。因此作为一个完整的管理信息系统，数据的备份和恢复当然是少不了的。以便使系统弹出公共对话框由用户选择文件名和保存路径以及保存格式，这给用户提供了更大的自由度，当然，也带来了一些问题。流图如下所示：进入数据维护窗口选择操作类型 是执行操作 否 退出4-4用户管理模块4-4-1 登录该模块的主要任务是维护系统的正常运行与安全,包括更改密码、注册用户、注销用户等等 。本管理系统,若每一个进入计算机的人都能够对系统进行操作,就可能有意或无意的破坏数据,对用户产生不良影响,甚至造成无法估量的损失。因此，在进入系统之前要设置密码输

23、入功能用户登录关键是判断它的密码和用户名是否与数据库中存在的用户信息吻合，若存在则登录成功,若登录不成功则重新输入或注册。模块处理流程图：开始填写用户名,密码, 用户号，权限打开数据库文件是否存在该用户？用户注册登录成功结束4-4-2用户信息管理模块 用户登录才具有修改用户信息的功能。它的查询与查看用户信息一样，修改后提交信息。模块处理流程图(用户必须登录才可以修改用户信息，如图所示)： 开始登录成功 打开数据库文件修改用户信息判断修改是否成功？n y 修改成功是否继续？ yn 结束 4-4-3修改密码用户必须登录才可以修改密码，模块处理流程图与修改用户信息模块大相径庭。4-5 查询模块查询模

24、块是一个数据库系统中所必须的模块。为了方便用户，本系统提供了多种查询方式。如：按条件或模糊查询、编号、姓名等。 4-5-1按条件查询：通过用户输入查询的条件，如按人员编号，姓名，工资月份等索引，选择操作符，填写相应的参数，单条件或双条件查询（又条件查询时两个条件的逻辑关系可为与也可为或的关系），然后在查询结果窗口可看到查询的结果。4-5-2模糊查询：用户可通过选择按编号、姓名等字段及其在文本框所输入的关健字进行模糊查询，帮助用户查找到所需的记录,并可在查询结果窗口看到结果。模块流和图如下：开始输入查询条件有无符合条件的的 无 有查找数据 有符合条件的数据 无输出帮助专业水平的软件通常都带有联机

25、帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的帮助文档。关于版本为了使程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括作者名称、版本号、以及其他类似信息。第五部分 系统评价（软件特色）教师信息管理系统采用模块化设计，结构清晰，可靠性好，简明易学；  界面友好，操作简便，充分考虑人性化设计，加上全汉字操作提示，使操作、维护十分简便，使用者在较短的时间内就能掌握数据库具有可以分别设置使用或不使用的管理密码与使用密码。有效防止其他人使用相同的软件打开数据库或更改数据库设置。简单、

26、易学、灵活模块化结构，可根据业务需要十分方便地进行模块增减，灵活系统组合，直观地面向事务处理的菜单图形界面操作，易学易用。模块组建灵活。第六部分 部分系统源代码本系统定义的程序名称，模块，窗体名称及功能说明名称：login.frm 功能：用户登录窗体名称：frmmainmdi.frm 功能：主界面程序名称：frmusermanage.frm 功能：用户信息管理程序名称：frminfoinput.frm 功能：基本信息管理程序名称：frminfocheck.frm 功能：信息查询程序名称：frmmoney.frm 功能：工资管理程序名称：frmmoneycheck.frm 功能：工资查询程序名称

27、：frmsplash.frm 功能：版本说明名称：frmmodifypsw.frm 功能：用户密码修改程序名称：databackup.frm 功能：数据备份程序名称：frmhelp.frm 功能：帮助名称：frmflash.frm 功能：快闪窗体*下面是一些主要模块，窗体功能程序的代码：（由于篇幅所限只列出部分程序）*名称：login.frm功能：用户登录窗体*option explicitprivate declare function getusername lib “advapi32.dll” alias “getusernamea” (byval lpbuffer as string,

28、 nsize as long) as longprivate sub command1_click() dim txtsql as string dim mrc as adodb.recordset dim msgtext as string dim a as integer static c as integer c = c + 1 if c = 4 then msgbox “三次输入有误，本程序自动退出！” unload me exit sub end if txtsql = “select * from pwtable where 用户号= ” & text1.text &

29、; “” set mrc = executesql(txtsql, msgtext)if isnumeric(text1.text) = false thenmsgbox “请输入数字”text1.text = “”text1.setfocusexit subelseif mrc.eof = true thenmsgbox “用户号输入有误，请从新输入！”text1.setfocustext1.text = “”exit subelseif trim(combo1.text) <> trim(mrc.fields(“用户级别”) thenmsgbox “用户级别选择有误，请重新选择

30、！”combo1.text = “请选择”combo1.setfocusexit subelseif trim(text2.text) <> trim(mrc.fields(“用户名”) thenmsgbox “用户名输入有误，请从新输入！”text2.text = “”text2.setfocusexit subelseif trim(mrc.fields(“密码”) <> trim(text3.text) thenmsgbox “密码不正确，请从新输入！”text3.setfocustext3.text = “”exit subelseif trim(text2.t

31、ext) = trim(mrc.fields(“用户名”) and trim(text3.text) = trim(mrc.fields(“密码”) thenme.hidemrc.closefrmmainmdi.showexit subend ifend subprivate sub command2_click()endend subprivate sub form_load()combo1.additem “普通用户”combo1.additem “系统管理员”end subprivate sub text1_change()if text1.text <> “” and co

32、mbo1.listindex <> -1 and text2.text <> “” and_text3.text <> “” thencommand1.enabled = trueelsecommand1.enabled = falseend ifend subprivate sub text2_change()if text1.text <> “” and combo1.listindex <> -1 and text2.text <> “” and_text3.text <> “” thencommand1

33、.enabled = trueelsecommand1.enabled = falseend ifend subprivate sub text3_change()if text1.text <> “” and combo1.listindex <> -1 and text2.text <> “” and_text3.text <> “” thencommand1.enabled = trueelsecommand1.enabled = falseend ifend sub*名称：frmmainmdi.frm 功能：主界面程序*option ex

34、plicitprivate mintchildwincount as integerconst strinfoquery = “档案查询”const strinfomanage = “档案录入”const strscoreinput = “工资录入”const strscorefind = “工资查询”public colinfo as collectionpublic colscore as collectionpublic colallmenu as collectionpublic sub info_initialize() set colinfo = new collection co

35、linfo.add strinfomanage colinfo.add strinfoqueryend subpublic sub score_initialize() set colscore = new collection colscore.add strscoreinput colscore.add strscorefindend subpublic sub allmenu_initialize() set colallmenu = new collection colallmenu.add strinfomanage colallmenu.add strinfoquery colal

36、lmenu.add strscoreinput colallmenu.add strscorefindend subprivate sub tmrstat_timer() on error goto err stamainmdi.panels(1).text = “当前窗口：” & frmmainmdi.activeform.caption exit suberr: stamainmdi.panels(1).text = “当前没有打开的子窗口！”end subprivate sub admini_click()frmusermanage.showend subprivate sub

37、checkfile_click(index as integer)frminfocheck.showend subprivate sub data_click()databackup.showend subprivate sub exit_click()msgbox “要退出系统吗?”, 4129, “确认”unload meend subprivate sub gongzichaxun_click()frminfocheck.showend subprivate sub gongziluru_click()frmmoney.showend subprivate sub guanyu_clic

38、k()frmsplash.showend subprivate sub helphelp_click()frmhelp.showend subprivate sub luru_click()frminfoinput.showend subprivate sub mdiform_load() mpaintmdibackground.initializepaintbackground hwnd, me move (screen.width me.width) / 2, _ (screen.height me.height) / 2 call info_initialize call score_i

39、nitialize call allmenu_initialize if login.combo1.text = “普通用户” then admini.enabled = false quanxian.enabled = false data.enabled = false luru.enabled = false gongziluru.enabled = false dayin.enabled = false end ifend subprivate sub mima_click()frmmodifypsw.showend subprivate sub money_click()record

40、all.show 1end subprivate sub prints_click()commondialog1.showprinterend subprivate sub quanxian_click()frmusermanage.showend subprivate sub toolbar1_buttonclick(byval button as mscomctllib.button) if not (frmmainmdi.activeform is nothing) then unload frmmainmdi.activeform end ifend sub*名称：frminfoinp

41、ut.frm 功能：基本信息管理程序*private sub cmdadddata_click()adodc1.recordset.addnewend subprivate sub command2_click()adodc1.recordset.deleteadodc1.recordset.movenextif adodc1.recordset.eof = true then adodc1.recordset.movelast end ifend subprivate sub command3_picclick()adodc1.recordset.updateend subprivate s

42、ub command5_click()查询 adodc1.recordsource = “select * from 档案 where 编号 like “ & “” & txtcode.text & “” with 档案 if not .eof then txtcode.text = .fields(编号) maskedbox2.text = .fields(身份证号) txtname.text = .fields(姓名) combo1.text = .fields(性别) mskeddate.text = .fields(出生日期) txtshouji.text =

43、.fields(档案号) txtjiguan.text = .fields(籍贯) maskedbox2.text = .fields(身份证号) txtaddress.text = .fields(住址) maskedbox1.text = .fields(联系电话) txtmemo.text = .fields(备注) text1.text = .fields(学历) text2.text = .fields(毕业学校) text3.text = .fields(专业) combo4.text = .fields(职称) combo3.text = .fields(职务) combo2.t

44、ext = .fields(任课) elsemsgbox “没有此记录！”, vbinformation, “请重示！” text1.text = “”end if end withend sub*名称：frminfocheck.frm 功能：信息查询程序*option explicitdim tempstr as stringdim tmpbl as booleandim i as integerdim strandor as integerdim bislesson as booleanprivate sub cmdadd_click()if combovalue.text = “” th

45、en msgbox “值不能为空”, vbinformation, me.caption exit subend ifif combofield.listindex = 3 and val(combovalue.text) > 120 then msgbox “年龄有误，请重新输入”, vbinformation, me.caption combovalue.setfocus sendkeys “home+end” exit subend ifselect case combofield.listindex case 0 tempstr = tempstr & “recordtable.编号 “ case 1 tempstr = tempstr & “recordtable.姓名 “ case 2 tempstr = tempstr & “recordtable.性别 “ case 3 tempstr = tempstr & “leveltable.职称 “ case 4 tempstr = tempstr & “leveltable.职务 “ end selectif combofield.text =