计算机科学与技术论文.doc

*继续教育学院毕业论文类 别 函 授 年 级 2007级 层 次 专 本 专 业 计算机科学与技术 姓 名 学 号 07421201017 论文题目 山西省旅游资料管理系统 论 文 评 语建议成绩 指导教师 年 月 日目 录1.引言42.系统需求分析4 2.1开发系统的目的和意义4 2.2系统可进性分析43.系统开发环境5 3.1Visual Basic简介5 3.2SQL简介.54.系统总体设计54.1应用背景54.2系统方案设计64.3系统模块功能分析75.数据库设计.85.1总体介绍.95.2 ER图分析.95.3数据表设计96.主要窗体设计.14 6.1主界面、登录模块设计146.2旅游地信息管理模块176.3旅游景点资源管理模块186.4酒店资源管理模块196.5旅游线路管理窗体.216.6用户信息管理模块.227.系统的扩充与提高.238.小结与心得.249.致谢.2410.参考文献.24山西省旅游资料管理系统摘 要：在旅游市场竞争日益激烈的今天，只有摒弃传统的运作模式，通过旅游资源信息管理系统实现快速有效的一系列操作，才能提高效率，降低成本，尤其是地接业务为主、团队业务量大的旅行社，更需要一套操作简便、功能齐全、合适的管理信息系统来完成繁复的业务操作。 本文紧扣旅游的关键要素，讲述如何对这些旅游资源进行管理。本系统具有很强的实用性，既可以作为独立的系统使用，也可以作为旅游企业综合业务管理系统的一个重要的组成部分。本系统包括八个模块：系统用户管理、旅游地信息资源管理、旅游景点资源管理、酒店资源管理、餐厅资源管理、娱乐资源管理、交通资源管理（包括火车资源管理、飞机资源管理）、线路资源统计及打印报表等。全面系统地实现了旅游资源信息管理系统的各项功能。关键词：旅游资源；数据库；信息管理系统1. 引言 随着我国经济的蓬勃发展, 外出旅游逐渐成为人们节假日生活不可缺少的一部分，而随之兴起地旅游团体如雨后春笋遍布全国各省市。对于旅行社来说，能及时了解各地的旅游信息（成本，特色）是行业良性发展的必要保证，目前普遍才存在着企业规模较小，管理不规范等弱点.外出旅游涉及吃、住、行、游、购等诸多要素，而这些要素有分散在不同的地域中，依靠一个人、一个团队不可能全面掌握所有的信息，在这些企业中普遍存在这样的尴尬，当掌握这些方面信息较多的人离开企业，就会对企业的经营造成负面影响。旅游资源管理系统可以把各种旅游资源分类存储管理，通过网络实现资源共享，不仅方便快捷，而且不会因为人员流动影响企业的经营，使旅行社在激烈的市场竞争中的坚强后盾。 2. 系统需求分析 2.1开发系统的目的和意义随着旅游市场的发展，旅游公司的数量也越来越多。山西作为一个旅游大省，旅游资源之多，分布面积之广。旅游公司要想在竞争日益激烈的旅游市场占有一席之地。只有摒弃传统的运作模式，通过旅游资源信息管理系统实现快速有效的一系列操作，才能提高效率，降低成本，尤其是地接业务为主、团队业务量大的旅行社，更需要一套操作简便、功能齐全、合适的管理信息系统来完成繁复的业务操作。该系统会详尽将山西丰富自然旅游资源、人文旅游资源、民俗文化遗产等展现给大家，再现山西数千年的悠久历史和深厚文化底蕴。2.2 系统可行性分析旅游资源管理系统，众所周知，是管理人员进行有效管理的平台。根据要求，本系统将会实现以下功能：（1）管理人员登入功能。（2）管理人员登陆进去后，进入管理的主页，可根据页面的功能提示进行选择的操作。（3）管理人员登陆到相应的页面后，对旅游地信息具有录入、查看、查询、修改、删除等功能；包括旅游地信息资源，景点资源，酒店资源，交通线路，娱乐资源等信息。3.系统开发环境本系统是使用Visual Basic6.0作为前台开发工具和SQL Server2000作为后台数据库开发的，本系统的应用不仅节省了大量的人力和物力，还可避免原有管理方法中易产生的错记、漏记，能够高效、快捷、准确地为管理者和游客提供服务。3.1 Visual Basic 简介：Microsoft的Visual Basic产品属于编程系统。简单的说这个编程系统的是用于编写基于Windows的计算机程序的，它包括Visual Basic语言以及有助于编写这些程序的许多工具。不应把Visual Basic当成一种工具，而应将它作为创建工具的工具。使用Visual Basic创建用户自己的定制程序。用户或公司便不会受到特殊的“脱离外壳”计算机程序的限制，进而用户换还能设计出满足自己特殊要求的应用程序。一个良好的计算机程序应该能够足够灵活，是适应身边的任何工作，而不是修改用户的需要以适应程序的要求。3.2 SQL简介：SQL（Structured Query language）语言是关系数据库的标准语言，它是在1974年由Boyce和Chamberlin提出的。由于SQL语言功能丰富，语言简洁，因而倍受用户及计算机工业欢迎。自SQL成为国际标准后，各自数据库厂家纷纷推出各种支持SQL的软件或SQL的接口软件。这就使得大多数数据库均采用SQL作为共同的数据库存取语言和标准接口，从而使未来的数据库世界有可能连接为一个统一的整体。这个前景是十分诱人和意义重大的。因此，有人SQL被定制为关系数据库语言的标准以及以后的发展称为是“一场革命”。4. 系统总体设计4.1 应用背景此系统具有很强的实用性，既可以作为独立的系统使用，也可以作为旅游企业综合业务管理的一个组成部分。旅游资源管理系统的主要任务是实现对旅游资源的管理。主要功能包括：a. 旅游地信息管理功能旅行社在为游客安排旅游线路时，必须清晰了解相关旅游线路中各旅游地、旅游景点的详细信息，所以地域信息是旅游行业的基本数据，所有的旅游资源都分布在不同的地域中。因此该系统应具备对旅游地信息进入录入、修改、删除、查询等操作。并将地域分为市内和市外两种地域类型。这是因为在旅游行业中，地域的概念是不平等的。本市周边的地域是最常用的，因此把它单独作为一类；离市区较远的地域属于市外地域。这种分类方法在旅游行业中有很强的代表性和适用性。b.景点资源管理功能旅游的核心是旅游景点，旅游业主要依靠景点。景点资源管理功能提供在地域分类体系下景点资源信息的录入、景点资源信息的修改、过时景点资源信息的删除，景点资源信息的查询等功能。景点信息包括景点名称、景点负责人及相关信息、景点门票价格、所在地域等信息 c.酒店资源管理功能酒店资源管理提供在地域分类体系下酒店资源信息的管理功能，解决旅游中住的问题。酒店资源管理提供酒店资源信息的录入、修改、删除和查询功能。酒店资源信息包括各个地方的酒店名称，酒店的标准，联系人及其相关信息，各种类型房间的报价等。酒店资源管理信息还包括酒店不同类别房间的报价，房间类别按照行业通行的标准分为经济间、双人间、三人间和四人间4个类别，以满足不同层次旅游客户对宾馆住宿的要求。d.餐厅资源管理功能旅行社除了为游客安排旅游线路、旅游景点外，一般都需要为游客安排整个旅游线路中的食宿因此本系统应能够对旅游线路中酒店的餐厅的编号、名称、联系人、报价等信息进行录入、修改、删除、查询等操作。e.娱乐资源管理功能 为了丰富旅客旅行途中的生活，旅行社一般都为游客在旅行途中安排丰富的娱乐生活，因此本系统应能够对旅游线路中娱乐资源进行录入、修改、删除、查询等操作。f.交通资源管理功能 旅游自然离不开交通问题，不同的线路、不同的人群、不同的价位将决定旅行过程中的交通方式，因此本系统应具备对旅行线路中的交通信息进行管理的功能。g.旅游线路管理功能为了旅行社、游客的整体利益，旅行社一般都将某一地区的旅游景点联系起来形成旅游线路，为此本系统应该能够对旅游线路编号、名称、报价等信息进行录入、修改、删除、查询等操作。h.系统用户管理功能系统用户管理提供管理员（admin）和普通用户信息的录入、修改、删除和查询功能。用户信息包括用户名称、员工名称、用户密码等。并实现管理员用户和普通用户的不同权限功能。管理员用户可以进行普通用户信息的增删的操作。普通用户只能编辑自己的登陆密码等用户信息。4.2系统方案设计旅游资源及线路管理系统地域信息管理系统用户管理景点资源管理酒店资源管理餐厅资源管理娱乐资源管理交通资源管理旅游线路管理图1 系统功能模块图在功能模块示意图的树状结构中，每一个节点都是一个最小的功能模块。每一个功能模块都需要针对不同的表完成相同的数据操作。 4.3系统模块功能分析本系统包括如下功能模块：1.程序主窗口（FrmMain）2.登陆模块设计用户要使用本系统，首先必须通过系统的身份认证，这个过程需要完成以下任务：1)根据用户名和密码来判断是否可以进入系统。2)根据用户类型决定用户拥有的权限。3.旅游地资源管理模块设计旅游地资源管理模块可以实现以下功能：1)旅游地信息录入。2)旅游地信息修改。3)旅游地信息删除。4)旅游地信息查看。4.旅游景点资源管理模块设计旅游景点资源管理模块可以实现以下功能：1)旅游景点资源修改。2)旅游景点资源录入。3)旅游景点资源删除。4)旅游景点资源查看。5酒店资源管理模块设计酒店资源管理模块可以实现以下功能：1）酒店资源信息录入。2）酒店资源信息修改。3）酒店资源信息删除。4）酒店资源信息查看。6. 餐厅资源管理模块设计餐厅资源管理模块可以实现以下功能：1）餐厅资源信息录入。2）餐厅资源信息修改。3）餐厅资源信息删除。4）餐厅资源信息查看。7.娱乐资源管理模块设计娱乐资源管理模块可以实现以下功能：1）娱乐资源信息录入。2）娱乐资源信息修改。3）娱乐资源信息删除。4）娱乐资源信息查看。8.交通资源管理模块设计交通资源管理模块可以实现以下功能：1）火车、飞机资源信息录入。2）火车、飞机资源信息修改。3）火车、飞机资源信息删除。4）火车、飞机资源信息查看。9.线路管理模块设计线路管理模块可以实现以下功能：1）线路信息录入。2）线路信息修改。3）线路信息删除。4）线路信息查看。10. 用户管理模块设计根据用户类型的不同，用户管理模块的功能也不相同。1)Admin用户可以创建普通用户，对普通用户的用户名和密码进行修改、删除。2)Admin用户也可以修改自身的密码。3)普通用户只能修改自身的用户名和密码。5. 数据库设计5.1 总体介绍本数据库包括9个方面：1）旅游地信息管理信息表Area.2）景点资源管理信息表Place.3）酒店资源管理信息表Hotel.4）餐厅资源管理信息表Restaurant.5）娱乐厅资源管理信息表Amusement.6）火车资源管理信息表Train.7）飞机资源管理信息表Plane.8）线路信息表Tline.9）用户信息表Users.5.2 ER图分析AmusementPlaceAreaAmuseltemlplaneplaneHotellamusetlinelplaceltrainlhotelRestaurantlreaTrain图2 数据库ER图分析5.3 数据表设计按照系统E-R图，旅游资源管理系统数据库包含14个是实体联系表，分别是旅游地信息表、景点资源信息表、酒店资源信息表、餐厅资源信息表、娱乐资源信息表、火车资源信息表、飞机资源信息表、线路景点信息表、线路宾馆信息表、线路用餐信息表、线路娱乐信息表、线路火车信息表、线路飞机信息表和用户信息表。这些表构成了系统信息的基础。在此只列出部分表以及包含的字段含义。1)旅游地信息管理信息表Area旅游地信息管理信息表Area用来保存旅游的信息，表的结构如下所示。表5.1 Area的结构编号字段名称数据类型备注1ArealdInt旅游地编号2AreaNameVarchar40旅游地名称3AreaTypeSmallint旅游地类型，1市内 2市外2)景点资源管理信息表P1ace 景点资源管理信息表Place主要用来保存各旅游景点的信息，表的结构如下所示。表5.2 Place的结构编号字段名称数据类型备注1PidInt旅游景点编号2PnameVarchar200旅游景点名称3Contact、Varchar 100旅游景点联系人4PhoneVarchar 100旅游景点联系电话5AddressVarchar 100旅游景点通信地址6PostcodeVarchar 10旅游景点邮政编码7Adult priceDecimal 10,2旅游景点成人票价8Child priceDecimal 10,2旅游景点儿童票价9ArealdInt旅游景点所在旅游地101nput timeChar 17录入日期和时间 3）酒店资源管理信息表Hotel酒店资源管理信息表Hotel主要用来保存各旅游景点酒店的信息，表的结构如下所示。表5.3 Hotel的结构编号字段名称数据类型备注1HidInt旅游景点酒店编号2HnameVarchar200旅游景点酒店名称3HlevelVarchar40旅游景点酒店标准4ContactVarchar 100旅游景点酒店联系人5PhoneVarcharl00旅游景点酒店联系电话8PricelDecimal 10,2旅游景点酒店经济间报价9Price2Decimal 10,2旅游景点酒店双人间标价10Price3Decimal 10,2旅游景点三人间报价12Arealdlht旅游景点酒店所在旅游地131nput timeChar 17录入日期和时间4）餐厅资源管理信息表Restaurant餐厅资源管理信息表Restaurant主要用来保存各旅游景点酒店餐厅的信息，表的结构如下所示。表5.4 Restaurant编号字段名称数据类型备注1RidInt旅游景点酒店餐厅编号2RnameVarchar200旅游景点酒店餐厅名称3RLevelVarchar40旅游景点酒店餐厅标准4ContactVarchar40旅游景点酒店餐厅联系人5PhoneVarchar 100旅游景点酒店餐厅联系电话6AdressVarchar 100旅游景点酒店餐厅通信地址7PostcodeVarchar 10旅游景点酒店餐厅邮政编码8BreakfastDecimal 10，2旅游景点酒店餐厅早餐报价9DinnerDecimal 10，2旅游景点酒店餐厅正餐报价10ArealdInt旅游景点酒店所在旅游地11Input_timeChar 17录入日期和时间5) 娱乐厅资源管理信息表Amusement 娱乐厅资源管理信息表Amusement主要用来保存旅游景点娱乐厅的信息，表的结构如下所示。 表5.5 Amusement的结构编号字段名称数据表格备注1RidInt旅游景点酒店餐厅编号2RnameVarchar200旅游景点酒店餐厅名称3RlevelVarchar40旅游景点酒店餐厅标准4ContactVarchar40旅游景点酒店餐厅联系人5PhoneVarchar100旅游景点酒店餐厅联系电话6AdressVarchar100旅游景点酒店餐厅通信地址7PostcodeVarchar10旅游景点酒店餐厅邮政编码8BreakfastDecimal 10，2旅游景点酒店餐厅早餐报价9DinnerDecimal 10，2旅游景点酒店餐厅正餐报价10AreaIdInt旅游景点酒店所在旅游地11Input-timeCharl7录入日期和时间6）旅游线路基本信息表tline旅游线路基本信息表tline 保存旅游线路的基本信息，表的结构如表下所示。表5.6 旅游线路基本信息表编号字段名称数据类型备注LidInt旅游线路编号LnameVarchar 50旅游线路名称3LtypeSmallint旅游团类别（学生团，成人团）41nsComVarchar40保险公司5InsFeeDecimal8，2保险费6OtherCostDecimal8，其他费用呢7BenefitDecimal8，利润8AreaIdInt所属旅游地Tline表的脚本文件tline.sql, 其代码如下：CREATE TABLE tline (lid Primary Key, Iname Varchar(50),Iday Smallint,Ltype Smallint,insCon Varchar(40),insFee Decimal(8.2) ,otherCost Decimal(8,2) , tourpay Decimal(8,2),Areald Int）7）用户基本信息表users用户基本信息表users保存用户基本信息表。表的结构如表5.7所示。表5.7 用户基本信息表结构编号字段名称数据类型备注UserNameVarchar40用户名 PwdVarchar40密码 EmpNameVarchar40员工姓名 Users表的脚本文件Users.sql,其代码如下：CREATE TABLE Users (UserNname Varchar(40) primary key, Pwd Varchar(40) NOT NULL, EmpName Varchar(40) )INSERT INTO Users Values(Admin,Admin,Admin) 6. 主要窗体设计系统的窗体主要在VB6.0软件工具上建设的，VB6.0是一种可视化、真正面向对象、采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。它编程简单、方便、功能强大，具有与其它语言及环境的良好接口,只需懂得Windows的界面及其基本操作，就可以迅速上手。它具有良好的视图效果，强大的功能体系，它的使用极大地提高了系统开发的效率。本文在这里只介绍部分窗体的建设情况，并展示出效果图以及主要代码设计。6.1主界面、登录模块设计主界面和登录模块是系统的重要组成部分，也是本系统窗体建设部分的开山之作。在本系统中用户必须通过登录界的面身份验证，然后才能进入主界面对系统进行操作。这里我们简单介绍一下主界面和登录界面的一些主要功能，效果图以及主要代码设计。1.主界面布局效果如图所示图3 系统主界面效果图在旅游资源管理系统的主界面，单击窗体的项目管理菜单打开下拉菜单，可以看到菜单中有游地资源管理、景点资源管理、酒店资源管理、餐厅资源管理等子菜单，单击每个子菜单项则打开各个功能模块管理窗口。用户可以根据个人需要随心所欲地对系统进行操作。主窗体的主要代码设计：Private Sub User_Click()/单击“用户管理”按钮/如果选择用户为Admin,则进入用户管理窗口If Format (CurUer.UserName,”<”)=”admin”then FrmUserMan.show 1Else/否则进入用户编辑窗口，编辑自己的用户信息 With FrmUserEdit .Oriuser=CurUser.UserName .txtuserName=CurUser.UserName .txtPass=CurUser.Pwd .txtPass2=CurUser.pwd .txtEname=Curuser.Empname .txtEname.Enable=False .Modify=True .show 1 End WithEnd IfEnd Sub2.登陆模块设计登陆界面效果如图所示图4 登陆界面效果图用户登陆窗口的模板文件为login.frm，在此界面用户需要输入用户名和密码，验证其身份，用户才能对系统进行成功登陆。它涉及数据库的表名：Users.sql 添加代码 Private Sub Cmd_OK_Click() Dim j As Single If txtUser = “” then MsgBox”请输入用户名” txtUser.SetFocus Exit Sub End If Namekey = MakeStr (txtUser) Passwordkey = makeStr (txtpwd) If MyUser.In_Db (Namekey) = False Then MsgBox “用户名不存在” Try_time = Try_time + 1 If Try_time >= 3Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End Else Exit Sub End If End If MyUser.GetInfo (NameKey) If MyUser.Pwd <> PasswordKey Then MsgBox "密码错误" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End Else Exit Sub End If End If CurUser.GetInfo (MyUser.UserName) Unload MeEnd Sub6.2 旅游地信息管理模块主窗体设计：图5 旅游地信息管理界面效果图此窗体连接的数据库是Area库。两个单选按钮。将旅游地分为两个部分，在list1中会显示出相应得地点。窗体中的添加按钮用来添加新的旅游地信息。改变数据库的信息。修改按钮用来更新数据库中原有的数据。删除按钮用来删除数据中的错误信息或是已经改变的信息。然后关闭窗体。窗体的主要代码设计如下：Private Sub Cmd_Add_Click() If Option1.Value = True Then AreaEdit.CurType = 1 AreaEdit.lblAreaType = "市内" End If If Option2.Value = True Then AreaEdit.CurType = 2 AreaEdit.lblAreaType = "市外" End If AreaEdit.Modify = False AreaEdit.OriAreaName = "" AreaEdit.OriId = 0 AreaEdit.Show 1 LoadareaEnd Sub6.3旅游景点资源管理模块图6 旅游景点资源管理界面效果图窗体主要是用来显示在该地区内的景点信息。包括名称，位置，简单介绍字段。与后台数据库中的旅游景点表相关联。在所在区域内是提供景点查询的主要索引。然后检索出相对应的景点信息。在窗体中央显示。点击添加按钮弹出景点编辑窗体来编辑所添加景点的详细信息。点击修改按钮。弹出已有的景点信息来进行编辑。然后关闭窗体。窗体的主要代码设计：Private Sub Cmd_Add_Click() PlaceEdit.Modify = False PlaceEdit.OriAreaName = ComboName.Text PlaceEdit.OriType = ComboType.ListIndex + 1 PlaceEdit.OriId = 0 PlaceEdit.Show 1 Refresh_PlaceEnd SubPrivate Sub Cmd_Modi_Click() If Adodc1.Recordset.EOF = True Then MsgBox "请选择记录" Exit Sub End If p = Adodc1.Recordset.AbsolutePosition PlaceEdit.OriAreaName = ComboName.Text PlaceEdit.OriType = ComboType.ListIndex + 1 PlaceEdit.OriId = MyPlace.GetId(Adodc1.Recordset.Fields(1) PlaceEdit.txtContact = Trim(Adodc1.Recordset.Fields(2) PlaceEdit.txtPhone = Trim(Adodc1.Recordset.Fields(3) PlaceEdit.txtAddress = Trim(Adodc1.Recordset.Fields(4) PlaceEdit.txtCode = Trim(Adodc1.Recordset.Fields(5) PlaceEdit.txtAdult = Trim(Adodc1.Recordset.Fields(6) PlaceEdit.txtChild = Val(Adodc1.Recordset.Fields(7) PlaceEdit.Modify = True PlaceEdit.Show 1 Refresh_Place Adodc1.Recordset.Move pEnd Sub6.4 酒店资源管理模块图7 酒店资源管理界面效果图窗体主要是用来显示在该地区内的酒店信息。包括名称，位置，简单介绍字段。与后台数据库中的酒店表相关联。在“所在旅游地”内提供酒店查询的主要索引。然后检索出相对应的酒店信息。在窗体中央显示。点击添加按钮弹出景点编辑窗体来编辑所添加酒店的详细信息。点击修改按钮。弹出已有的酒店信息来进行编辑。然后关闭窗体。窗体的主要代码设计如下：Private Sub Cmd_Add_Click() HotelEdit.Modify = False HotelEdit.OriAreaName = ComboName.Text /将文本框中的信息存入数据库 HotelEdit.OriType = ComboType.ListIndex + 1 /增加数据库中的一个数据项。数据数加1 HotelEdit.OriId = 0 HotelEdit.Show 1 /显示酒店编辑窗口并且更新 Refresh_HotelEnd SubPrivate Sub Cmd_Modi_Click() / 点击修改按钮所触发的动作 If Adodc1.Recordset.EOF = True Then MsgBox "请选择记录" Exit Sub End If p = Adodc1.Recordset.AbsolutePosition HotelEdit.OriId = MyHotel.GetId(Adodc1.Recordset.Fields(1) HotelEdit.OriAreaName = ComboName.Text HotelEdit.OriType = ComboType.ListIndex + 1 HotelEdit.OriHotelName = Trim(Adodc1.Recordset.Fields(1) /将修改完的信息载入后台数据库中，并且更新数据库 HotelEdit.txtHotel = Trim(Adodc1.Recordset.Fields(1) HotelEdit.ComboLevel = Trim(Adodc1.Recordset.Fields(2) HotelEdit.txtContact = Trim(Adodc1.Recordset.Fields(3) HotelEdit.txtPhone = Trim(Adodc1.Recordset.Fields(4) HotelEdit.txtAddress = Trim(Adodc1.Recordset.Fields(5) HotelEdit.txtCode = Trim(Adodc1.Recordset.Fields(6) HotelEdit.txtPrice1 = Adodc1.Recordset.Fields(7) HotelEdit.txtPrice2 = Adodc1.Recordset.Fields(8) HotelEdit.txtPrice3 = Adodc1.Recordset.Fields(9) HotelEdit.txtPrice4 = Adodc1.Recordset.Fields(10) HotelEdit.Modify = True HotelEdit.Show 1 Refresh_Hotel Adodc1.Recordset.Move pEnd Sub6.5旅游线路管理窗体图8 旅游线路管理界面效果图旅游线路管理模块连接的数据库是myline库。第一个列表框显示旅游地的类型，第二个列表框显示旅游地的名字。在list列表框中显示出各个旅游地的具体线路。每增加一个数据后台数据库列表中的数据就会发生相应的改变。主要的代码设计：Private Sub Cmd_Add_Click() MyLine.Init MyLine.AreaId = MyArea.GetId(ComboName.Tex MyLine.lid = MyLine.Insert LineEdit.Modify = False LineEdit.ComboType.ListIndex = 0 LineEdit.Show 1 Xl_refreshEnd Sub6.6 用户信息管理模块图9 用户管理界面效果图编辑用户信息管理模块所连接的数据库为user库，用户通过输入用户名、员工姓名、密码等进入系统。主要用来添加新用户，用户设置密码等。主要代码设计如下：Private Sub Cmd_OK_Click() If Trim(txtUserName) = "" Then MsgBox "请输入用户名" txtUserName.SetFocus Exit Sub End If If txtPass <> txtPass2 Then MsgBox "密码和确认密码不相同，请重新确认" txtPass2.SetFocus txtPass2.SelStart = 0 txtPass2.SelLength = Len(txtPass2)