湖南工程职业技术学院信息工程系毕业实习与设计

1、湖南工程职业技术学院信息工程系毕业实习与设计设计题目_指 导 老 师_学 生 姓 名_学 生 学 号_专业年级层次_实习点 _湖南工程职业技术学院信息工程系制目 录企业人事管理信息系统设计(摘要) 3第一章 管理信息系统概述4第二章 visual basic 6.0概述7第三章 sql语言概述10第四章 企业人事管理系统12结 束 语 34参考文献 35企业人事管理信息系统设计 【摘要】企业在一般日常工作中需要一套人事信息管理系统，以便对企业人员的组成、基本情况、考勤情况、工资信息进行管理，进而实现对企业内部人事管理系统的信息化，进一步向无纸化办公、自动化办公的目标靠拢。本文介绍了毕业设计课程

2、的意义，开发的过程，设计思路和各个功能模块的实现细节，最后也将自身的体会表达了出来。 【关键字】管理信息系统，visual basic6.0，sql语言，企业人事管理，数据 流图，实体关 系图（e-r图），应用程序编译。企业人事管理信息系统 3第一章 管理信息系统概述管理信息系统基本概念管理信息系统就是我们常说的mis（anagement information system），在强调管理，强调信息的现代社会中变得越来越普及。mis是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学、运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。

3、20世纪，随着全球经济的蓬勃发展，众多经济学家纷纷提出了新的管理理论。20世纪50年代，西蒙提出管理依赖于信息和决策的管理。同时期的维纳发表了控制论，他认为管理是一个过程。1958年，盖尔写到：“管理将以较低的成本得到及时准确的信息，做到较好的控制”。这个时期，计算机开始用于会计工作。数据处理一词已经出现。 1970年，walter t.kennevan给刚刚出现的管理信息系统一词下了一个定义：“以口头或书面的形式，在合适的时间向经理、职员以及外界人员提供过去的、现在的、预测未来的有关企业内部及其环境的信息，以帮助他们进行决策”。在这个定义里强调了用信息支持决策，但并没有强调应用模型，没有提到

4、计算机的应用。 1985年，管理信息系统的创始人，明尼苏达大学的管理学教授gordon b.davis给了管理信息系统一个教完整的定义，即“管理信息系统是一个利用计算机软硬件资源以及数据库的人机系统。它能提供信息支持企业或组织的运行、管理和决策功能。”这个定义全面地说明了管理信息系统的目标、功能和组成，而且反映了管理信息系统在当时达到的水平。管理信息系统的应用管理信息系统起初应用于最基础的工作，如打印报表、计算工资、人事管理等，进而发展到企业财务管理、库存管理等单项业务管理，这属于电子数据处理（edp，electronic data processing）系统。当建立了企业数据库，有了计算机网

5、络从而到达数据共享后，从系统观点出发，实施全局规划和设计信息系统时，就达到管理信息系统的阶段。随着计算机技术的进步和人们对系统的需求进一步提高，人们更加瞧调管理信息系统能否支持企业高层领导的决策这一功能，更侧重于企业外部信息的收集、综合数据库、模型库、方法库和其他人工智能工具能否直接面向决策者，这是决策支持系统（dss，decision support system）的任务。我国20世纪70年代末有少数企业开始mis的局部应用。“六五”期间，选择一些大型企业进行mis的开发试点，其中首都钢铁公司、北京第一棉纺厂、湖北第二汽车制造厂、宁江机床厂等取得了经验。20世纪80年代中后期，在全国性的计算

6、机应用热潮中，许多企业纷纷从财务管理、人事管理等单项入手，尝试建立mis。许多企业的mis初具规模，建立了覆盖全厂的计算机网络。“八五”期间，企业逐步走向市场，mis建设的目标和需求日益明确。一些企业的系统都得到了很高的水平，于企业中的其他系统集成，形成cims。目前，我国mis已经有了相当的普及率，几乎覆盖了各个行业及各个部门。管理信息系统的发展方向l 在20年间，国外大公司出现了3种变化：l 抓管理着重于建立mis系统，使管理技术走向成熟。l 信息是决策的依据，mis随时为经理们提供信息服务。l 经理通过mis使经营计划和具体的业务活动联系在一起。由于以上的变化，mis应用得到了迅速的发展

7、。不仅大中型企业普遍建立了自己的mis，一些中小企业也不例外，普遍建立了公用数据网络，如电子邮件、电子数据交换等，尤其是进年来internet的飞速发展，intranet技术得到应用，为企业mis提供了良好的支持环境。从国际技术发展趋势看，20世纪90年代出现了几种全新的管理技术。1. brp企业过程重组一个企业应该重视对时间、产品质量、生产成本和技术服务等几个部分的管理，把目前的机构和过程重新组合，做到功能集成化、运营过程化、机构组织扁平化。2. idds智能化决策支持系统充分考虑了企业高层人员的要求和工作特点，将把中层管理人员的服务转向为经理的决策服务。3. lean production

8、精良生产应用准时生产(jit，just-in-time）、全面质量管理(tqc)、并行工程等技术，最大限度地缩短产品设计和生产周期、提高产品质量、降低再制品库存，并行生产中提倡团队精神，以满足客户不断变化的需求。4. agile manufacture临捷制造一种有远见的企业管理模式，其特点是职工素质高、组织机构精简、多功能小组效率高、信息存放灵活、响应客户要求迅速。相应的mis开发技术在20世纪90年代有了新的发展。1. 信息综合集成mis在计算机网络和分布式数据库管理系统的支持下，与企业其他的系统，如oa、cad、cam、capp、在线数据采集等进行系统集成，形成制造业的计算机集成制造系统

9、，或者一般企事业单位的综合信息系统（ciis，computer integrated information system），实现办公、管理、计算、设计、控制、检测，以及决策等多功能综合。2. internet/intranet因特网（internet）已经被广大用户熟悉，而以因特网技术为基础的企业内部信息系统intranet既可以通过接入的方式成为因特网的一部分，也可以自成体系，实现企业内部的管理。它可以克服传统mis存在的系统封闭、用户界面形式不统一、多种软件版本并存、维护移植困难等问题，为新一代企业mis的开发注入了强劲的活力。3. 先进的软件开发工具为了缩短软件开发的周期，提高软件的质

10、量和标准化水平以及软件的可维护性，越来越多的软件开发公司使用先进的软件开发工具或计算机辅助软件工程工具（case，computer-aided software engineering），如各种可视化建模工具、系统分析和设计工具、软件质量测试工具、软件文档建立和管理工具等。还有各种mis开发平台和代码生成工具，这些都极大地方便了mis的开发。4. 多媒体技术随着计算机性能的提高，mis采用越来越多的多媒体技术，用图形、图像、声音替代原来单调的字符形式，给用户提供了一个更加生动真实的应用环境。第二章 visual basic 6.0概述一、visual basic语言特点visual basic

11、是在原basic语言基础上的进一步发展，它包含了数百条语句、函数及关键词，其中很多和windows gui有直接的关系。visual basic语言具有简单易学的特性，只要稍有语言基础就可以很快掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的界面设计种解脱出来；可视化编程环境的“所见即所得”功能，是界面设计如积木游戏一般，从而使编程成为一种享受；强大的多媒体功能可轻而易举地开发出集声音、动画、影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写internet程序的能力。二、visual basic 6.0的新功能和新特点1新的数据访问能力visual basic 6

12、.0提供了与已有系统（如unix和sna主机系统）的开放式的互联性技术，包括activex data objects（activex数据对象，简称ado）、microsoft sna server 4.0和com/cisc事务集成管理器（com ti）。microsoft还为各种不同的数据库提供了全新的ole db和odbc驱动程序，包括oracle及运行于ibm as400等大型机上的vsam和db/2数据库的驱动程序；通过第三方提供的odbc和ole db驱动程序，还可以与其他数据库系统进行连接。2新的语言特征新的语言特征包括：用户自定义类型可以作为参数或作为公共属性和方法的返回值；函数可

13、以返回数组变量；动态数组可以赋值；文件系统对象；按名调用（callbyname）；创建增强的对象函数（createobject function enhancements）;增强的strconv函数等。3更强大的internet应用程序开发功能在visual basic 6.0种，internet应用程序的开发更加容易，功能更加强大。在应用程序内可以通过internet或intranet访问文档和应用程序；也可以创建internet服务器应用程序，包括iis应用程序；支持动态html技术（dhtml）的应用程序；具有web应用程序发布功能等。4新增和加强的控件新增的控件有：ado data c

14、ontrolcoolbar controldatagrid controldatalistcontrol, datacombodatarepeater conrol datatimepicker controlhierachical controlimagecombo controlmonthview control增强的控件有：imagelist controllistview controlmschart controltoolbar control控件增强的属性有：control focusdynamic controlload picturevalidate contorl metho

15、d5新增的部件功能visual basic 6.0提供了各种基于部件的可视化开发工具以及基于部件的web开发能力。visual basic 6.0包括了新版本的microsoft 可视化开发工具，可以帮助开发人员创建基于部件（component）的解决方案。这些工具可用于创建基于microsoft dna体系的应用系统，包括提供创建交叉平台的web应用程序、windows的客户/服务器模式应用系统、web应用程序和中等规模的应用系统。visual basic 6.0可以创建和重用com部件，创建的部件可以被其他语言重用，而且也可以使用其他语言创建的部件。这使得从已有的各种第三方开发的部件建立w

16、eb应用程序成为困难。开发人员也可以使用任何高级语言，如c+，visual basic，java来建立部件，并将其集成在visual basic 的应用程序种。6增强的和新的向导增强的向导有：安装程序向导，数据窗体向导，应用程序向导，类生产工具。新的向导有：数据对象生产向导，工具条向导。三、visual basic 6.0的版本及硬件安装需求简介visual basic有三种发行版本，可以满足不同的开发需求。l visual basic学习版使编程人员可以轻松开发windows9x和windowsnt4.0的应用程序。该版 本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有

17、learn vb now cd和包括全部联机文档的microsoft developer network cd。l visual basic专业版为编程人员提供了一整套功能完备的开发工具。该版本包括学习版的 全部功能以及activex控件、internet information serverapplication designer、集成 的visual database tools和dataenvironment，activex data objects和dynamic html page designer。专业版提供的文档有visual studio professional featur

18、es 手册和包括 全部联机文档的microsoft developer network cd。l visual basic企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本 包括专业版的全部功能以及backoffice工具，如sql server，microsoft transaction server，internet information server，visual sourcesafe，sna server等。企业版包 括的文档有visual studio enterprise features手册以及包括全部联机文档的microsoft developer netwo

19、rk cd。在安装visual basic 之前，必须确定计算机满足最低的安装要求，作为32位应用程序的开发工具，visual basic能够高效运行的条件如下：l windows 95，windows nt 4.0或更高版本的操作系统。l microsoft internet explorer 4.01或更高的版本。l 至少有150m左右的硬盘空间。l pentium 90mhz或更高的处理器。l microsoft windows 95支持的cd-roml microsoft windows 95支持的vga或分辨率更高的监视器。l windows 9x下要求24mb的内存，windows

20、 nt下要求32mb以上的内存。第三章 sql语言概述一、sql语言概述sql（结构化查询语言）是一种在关系数据库种定义和操纵数据的标准语言。其基本格式类似于英语语法，它最早是1974年由boyce和chamberlin提出的（当时称作sequel语言），后来在1976年，由ibm公司的san jose研究所在研制关系数据库管理系统system r时修改为sequel2，也就是目前的sql。1986年美国国家标准化组织ansi确认sql作为数据库系统的工业标准。sql语言的最大特点是直观、简单易学，初学者经过较短的学习就可以使用sql进行数据库的存取操作。sql语言通常分为4类：查询语言（se

21、lect）、操作语言（insert、update、delete）、定义语言（create、alter、drop）和控制语言（commit、rollback）。数据库存在的意义在于将数据组织在一起，使它们更容易为人获取“查询”这个名词用来描述怎样从数据库种获取数据和操纵数据。查询是transact-sql语言，经常是在sql企业管理器的查询工具中被执行。也可以使用其他的用户界面，例如query analyzer和osql，执行查询。当我们正对一个数据库执行查询时，是用它来返回尼寻找的数据信息。广义上讲查询也用于直接操纵语言，使用查询可以向表中插入数据、更新表中的数据，或是从表中删除数据。任何时候

22、当我们和sql server中的数据进行交互时，都是在执行一个查询。查询可以一次性地执行，也可以保存下来，以便今后多次执行。查询是用户和sql server数据库进行交互的主要手段。二、查询语言简介sql语言最主要、最核心的部分是它的查询功能。查询语言用来对已经存在于数据库中的数据按照特定的组合、条件表达式或次序进行检索，其基本格式是由select 字句from字句和where字句组成的查询块： select from where 也就是说，select制定了你想要看的哪些列数据，from指定这些数据来自哪些表或视图，where指定了你想看哪些行。 下面是sql server中的select语

23、句的完整用法。select select_listinto new_tablefrom table_sourcewhere search_conditiongroup by group_by_expressionhaving search_conditionorder by order_expressionasc|desc第四章 企业人事管理系统一、系统设计 人类跨入了21世纪，历史性的进入了信息时代，随着科技日新月异的发展，网络和数据库技术越来越成熟，“科教兴国”口号的提出，人们更加认识到知识的重要性，企业在一般日常工作中需要一套人事信息管理系统，以便对企业人员的组成、基本情况、考勤情况、工

24、资信息进行管理，进而实现对企业内部人事管理系统的信息化，电子化，进一步向无纸化、自动化办公的目标靠拢。因此，开发出基于c/s结构的关系型的企业人事信息管理系统具有非常重要的现实的意义。二、系统功能分析 系统开发的总体任务是实现企业人事信息关系的系统化、规范化和自动化。 系统功能分析是在系统开发的总体任务的基础上完成的。本人开发的企业人事管理系统需要完成的功能主要包括员工基本信息管理、员工工资管理、员工考勤管理以及系统设置，具体如下： 企业员工各种信息的输入，包括员工基本信息、所在部门、工作信息和工作简历等。 员工基本信息的输入。 员工基本信息的查询。 员工基本信息的修改。 员工考勤信息的输入。

25、 员工考勤信息的查询。 员工考勤信息的修改。 员工工资信息的输入。 员工工资信息的查询。 员工工资信息的修改。 系统用户的添加。 系统用户密码修改。三、系统功能模块设计对上述功能进行分析、集中和分块，按结构化程序设计的要求，得到下面的功能模块图。用户管理密码管理员工基本信息添加员工基本信息查询员工基本信息修改员工考勤信息添加员工考勤信息查询员工考勤信息修改员工工资信息添加员工工资信息查询员工工资信息修改企业人事信息管理系统系统管理员工工资管理员工考勤管理员工基本管理四、数据库设计 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合

26、理的数据库结构设计可以提高数据存储的效率，保证数据的完整性和一致性。另外，合理的数据库结构将非常有利于程序的实现。 设计数据库系统时应该首先充分了解用户各方面的需求，包括现有的以及将来可能增加的需求。 五、数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。仔细分析调查有关企业人事信息需求的基础上，得到本系统所处理的数据流图。员工工资管理员工工资设置考勤管理员工考勤信息管理员工登记基本信息录入员工基本信息管理员工当月工资计发员工工资针对一

27、般企业人事信息管理系统的需求，通过对员工工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：l 员工基本信息：包括的数据项有员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、参加工作时间、进入公司时间、起薪时间、调入部门时间、职称、入党时间、档号、原身份、原职务、原工作单位、备注等。l 员工考勤信息：包括的数据项有员工所在的部门、员工姓名、出勤时间、公休时间、旷工时间、请假时间、早退时间、迟到时间、加班时间、出差时间等。l 员工工资信息：包括的数据项有员工所在的部门、员工姓名、底薪、补贴、奖金、加班费、住房补贴、房租、养老金、医疗保险、住房公积金、所得税、实发工资等。有了上

28、面的数据结构、数据项和数据流程，可以进行下面的数据库设计。六、数据库概念设计根据上面的数据项和数据结构以后，可以设计出能够满足用户需求的各种实体，以及各实体间的关系。这些实体包含各种具体信息，通过相互之间的左右作用形成数据的流动。 根据上面的设计规划出的实体有：员工基本信息实体、员工考勤信息实体、员工工资信息实体。各个实体具体的面熟e-r图如下：下图为员工基本信息实体e-r图员工基本信息实体员工姓名员工姓名员工姓名员工姓名 下图为员工考勤信息实体e-r图员工考勤信息实体基本信息出勤时间加班时间出差时间下图为员工工资信息实体e-r图员工工资信息实体基本信息出勤时间加班时间出差时间下图为系统用户信

29、息实体e-r图系统用户信息实体用户密码实体间的关系如下图：员工考勤管理考勤信息考勤管理员工考勤信息管理七、数据库逻辑结构设计 现在将上面的数据库概念结构转化成sql server数据库系统所支持的实际数据模型，也及数据库的逻辑结构。企业人事信息管理系统数据库中的各个表格的设计结果如下面的表格，以下每个表格表示数据库中的一个表。manrecord员工基本信息表列名数据类型是否为空说明ygidvarcharnot null员工编号ygnamevarcharnot null姓名ygdeptvarcharnull部门ygsexvarcharnull性别ygbirthdaydatetimenull生日y

30、gplacevarcharnull籍贯yglevelvarcharnull学历ygspecialvarcharnull专业ygdate1datetimenull参加工作时间ygdate2datetimenull入党时间ygbusivarcharnull职称ygdate3datetimenull职称时间ygstatusvarcharnull原身份ygofficevarcharnull原工作单位ygdutyvarcharnull原职务ygdate4datetimenull进入公司时间ygdate5datetimenull起薪时间ygdate6datetimenull调入时间ygnovarcharn

31、ull档案号ygremark1textnull备注checkin员工考勤信息表列名数据类型是否为空说明kqidvarcharnot null员工编号kqnamevarcharnot null姓名kqdatedatetimenot null日期kqdaysnumericnot null本月天数kqrdaynumericnull公休天数kqtdaynumericnot null应出勤天数kqworknumericnot null出勤kqabsetnumericnull旷工kqrestnumericnull年休kqleavenumericnull请假kqlatenumericnull迟到kqearl

32、ynumericnull早退kqforgetnumericnull忘打卡kqover1numericnull节假日加班kqover2numericnull其它加班kqfillnumericnull补休天数kqgonumericnull出差工地天数kqpaynumericnull加班费kqdeductnumericnull扣考核kqothervarcharnull其它kqremarktextnull备注pay员工工资信息表列名数据类型是否为空说明gzidvarcharnot null编号gznamevarcharnot null姓名gzbasenumericnot null底薪gzallnume

33、ricnull补贴gzbonusnumericnull奖金gzaynumericnull加班gzdeductnumericnull扣考核gzagenumericnull代扣养老金gzmedicalnumericnull代扣医疗保险gzhouse1numericnull代扣住房公积金gztotalnumericnull税前小计gzdutynumericnull所得税gzhouse2numericnull住房补贴gzhouse3numericnull房租gzlaboragenumericnot null实发工资gzdatedatetimenot null时间user_info系统用户信息表列名数据

34、类型是否为空说明user_idcharnot null用户名user_pwdcharnull密码八、数据库结构的实现 经过上面的需求分析和概念结构设计，得到了数据库的逻辑结构，现在可以在sql server 7.0 数据库系统中实现该逻辑结构。具体来说有两种方法实现，一是通过sql sever enterprise manager(企业管理器)，二是通过sql server query analyzer(查询分析器)，本人在实际设计中选择使用了第二种方法。create table dbo.manrecord (ygid varchar (8) not null ,ygname varchar

35、(10) not null ,ygdept varchar (20) null ,ygsex varchar (2) null ,ygbirthday datetime null ,ygplace varchar (40) null ,yglevel varchar (10) null ,ygspecial varchar (20) null ,ygdate1 datetime null ,ygdate2 datetime null ,ygbusi varchar (12) null ,ygdate3 datetime null ,ygstatus varchar (12) null ,ygo

36、ffice varchar (30) null ,ygduty varchar (10) null ,ygdate4 datetime null ,ygdate5 datetime null ,ygdate6 datetime null ,ygno varchar (8) null ,ygremark1 text null ) on primary textimage_on primarygocreate table dbo.checkin (kqid varchar (8) not null ,kqname varchar (10) not null ,kqdate datetime not

37、 null ,kqdays bigint not null ,kqrday numeric(2, 0) null ,kqtday numeric(2, 0) not null ,kqwork numeric(2, 0) not null ,kqabsent numeric(2, 0) null ,kqrest numeric(2, 0) null ,kqleave numeric(2, 0) null ,kqlate numeric(2, 0) null ,kqearly numeric(2, 0) null ,kqforget numeric(2, 0) null ,kqover1 nume

38、ric(2, 0) null ,kqvoer2 numeric(2, 0) null ,kqfill numeric(2, 0) null ,kqgo numeric(2, 0) null ,kqpay numeric(8, 2) null ,kqdeduct numeric(8, 2) null ,kqother varchar (20) null ,kqremark text null ) on primary textimage_on primarygocreate table dbo.pay (gzid varchar (8) not null ,gzname varchar (10)

39、 not null ,gzbase numeric(8, 2) not null ,gzall numeric(8, 2) null ,gzbonus numeric(8, 2) null ,gzpay numeric(8, 2) null ,gzdeduct numeric(8, 2) null ,gzage numeric(8, 2) null ,gzmedical numeric(8, 2) null ,gzhouse1 numeric(8, 2) null ,gztotal numeric(8, 2) null ,gzduty numeric(8, 2) null ,gzhouse2

40、numeric(8, 2) null ,gzhouse3 numeric(8, 2) null ,gzlaborage numeric(8, 2) not null ,gzdate datetime not null ) on primarygocreate table dbo.user_info (user_id char (10) not null ,user_pwd char (10) null ,user_des char (10) null ) on primarygo 上面的sql语句在sql server中的查询分析器执行后，将自动产生需要的所有表格。有关数据库结构的所有后台工作

41、到此已完成。现在将逐步来实现企业人事管理系统中的各个功能模块，本人选择了microsoft公司的visual basic 6.0来完成数据库客户端的编写。九、主要窗体设计浏览系统主窗体的创建 打开visual basic后，单击filenew project菜单，在工程模板中选择standard exe， visual basic将自动产生一个form窗体，该窗体为普通窗体，而本人所需要的是多文档窗体，因此先删除掉该默认产生的窗体，单击filesave project菜单，将工程项目命名为personnel_mis。然后单击工具栏中的add mdi form按钮，产生所需的多文档主窗体。添加上

42、所需的控件，然后设置好各自属性后，窗体如下图所示：主窗体中菜单的结构公用模块创建定义整形变量，记载读写状态，1表示添加，2表示修改public gintmode as integer定义当前用户public currentuser as string定义boolean变量，记载信息列表窗体是否打开public flagedit as booleanpublic fmainform as formpublic function executesql(byval sql as string, msgstring as string) as adodb.recordset执行sql语句，并返回记录集

43、对象 dim cnn as adodb.connection dim rst as adodb.recordset dim stokens() as string异常处理 on error goto executesql_error用split函数产生一个包含各个子串的数组 stokens = split(sql) set cnn = new adodb.connection 打开连接 cnn.open connectstring if instr(insert,delete,update, ucase$(stokens(0) then cnn.execute sql msgstring =

44、stokens(0) & query successful else set rst = new adodb.recordset rst.open trim$(sql), cnn, adopenkeyset, adlockoptimistic 返回记录集对象 set executesql = rst msgstring = “查询到” & rst.recordcount & 条记录 end if executesql_exit: set rst = nothing set cnn = nothing exit function 错误信息 executesql_error: msgstring

45、= 查询错误: & err.description resume executesql_exit end functionpublic function connectstring() as string返回一个数据库连接 connectstring = filedsn=personnel.dsn;uid=sa;pwd= end functionpublic sub entertotab(keyasc as integer) 判断是否为回车键 if keyasc = 13 then 转换成tab键 sendkeys tab end ifend subsub main() dim flogin

46、as new frmlogin 显示登录窗口 flogin.show vbmodal 判断是否为授权用户 if not flogin.ok then 登录失败，所以退出程序 end end if unload flogin set fmainform = new frmmain fmainform.show 在任务栏显示当前用户 fmainform.statusbar1.panels.item(2) = 当前登录用户是： + currentuserend sub系统用户管理模块的创建 用户登录 添加用户 修改用户密码入口程序：系统启动后，将显示下面的登录窗体，用户首先输入用户名和密码，系统进行确认，如果用户3次密码输入不正确，系统将自动退出。若输入用户名不存在，下面的提示框将会出现：若输入的密码不正确，下面的提示框将会出现：正确输入，系统将出现欢迎界面，当前登录的用户会显示在标题栏中，使得界面更加友好：具体编码如下：private sub cmdok_click() 用来存放sql语句 dim txtsql as string 用来定义记录集对象 dim mrc as adodb.recordset 用来存放返回信息 dim msgtext as string 判断输入的用户名是否为空 if isnull(txtusername.text