客户管理系统论文.doc

目 录

第一章 引言
一、编写目的…………………………………………………………………………………….3
二、本系统面向的使用对象…………………………………………………………………….3
三、开发工具…………………………………………………………………………………….4
四、系统的技术可行性………………………………………………………………………….4
五、开发人员…………………………………………………………………………………….5
六、主要模块…………………………………………………………………………………….5

第二章 正文
一、功能分析
1、系统结构……………………………………………………………………………………6
2、系统功能模块图……………………………………………………………………………7
二、数据库设计分析……………………………………………………………………………..8
1、数据库需求分析……………………………………………………………………………9
2、数据库结构设计……………………………………………………………………………9
2.1基本表汇总…………………………………………………………………………….10
2.2各基本表的设计……………………………………………………………………….10
3、建立公共模块……………………………………………………………………………..10

第三章 系统的实现
一、客户管理系统窗体汇总……………………………………………………………………16
二、各窗体的实现
1、客户管理系统登入界面（Load）窗体的实现……………………………………………..16
2、客户管理系统初始界面（Init）窗体的实现…………………………………………….17
3、注册新用户（newguest）窗体的实现…………………………………………………….19
4、用户修改密码（Mima）窗体的实现…………………………………………………….22
5、客户管理系统主界面（Main）窗体的实现……………………………………………….23
6、添加（addguest）/修改（editguset）客户资料的实现…………………………………..24
7、注册商品（Zcsp）/修改商品（editinf）窗体的实现……………………………………..24
8、销售登记（addsale ）/库存情况（Kucun）窗体的实现……………………………….25
9、权限设置（quanxian）界面窗体的实现………………………………………………….25
10、系统备份（Beifen）/还原（resetsystem）界面窗体的实现…………………………..26
11、查看文档（Chaken）窗体的实现…………………………………………………………26
12、通讯录（tongxunlu）窗体的实现……………………………………………………….26
13、关于本软件（frmAbout）窗体的实现……………………………………………………26
14、辅助工具（记事本/计算器）窗体的实现………………………………………………27
三、具体制作过程（系统设置）
3.1.1添加一个窗体（进入系统）……………………………………………………………28
3.1.2添加控件………………………………………………………………………………...29
3.1.3添加代码………………………………………………………………………………29
3.2.1 建立窗体（修改密码）………………………………………………………………30
3.2.2 添加控件………………………………………………………………………………30
3.2.3 添加代码………………………………………………………………………………31
3.3.1添加一个注册新用户窗体……………………………………………………………..32
3.3.2 添加控件……………………………………………………………………………….32
3.3.3 添加代码……………………………………………………………………………….32

第四章 系统的运行、调试及编译
一、 数据源（ODBC）的建立…………………………………………………………………32
二、运行、调试软件…………………………………………………………………………..33
第五章 软件的测试
一、测试范围与测试目的……………………………………………………………………..34
二、测试报告…………………………………………………………………………………..35
三、改进建议与措施…………………………………………………………………………..35
第六章 小结……………………………………………………………………….36
第七章 参考资料………………………………………………………………….37

引 言

进入21世纪以来,计算机的迅速发展,计算机的应用，信息技术全面地渗透到人类社会的各个方面，信息化成为世界经济和社会发展的大趋势。企业的管理从人工到自动化，智能化和高效性。作为一家企业，它一样也离不开信息化管理。客户是企业的生存之本，客户信息资料对企业来说至关重要。维护企业客户信息的工作就是保存企业客户的基本信息，如公司名称、地址、主要行业、联系人的姓名、地址等。并要能够保存一个动态的信息，确保信息的一致性。如果这些如此复杂的工作光靠人工来完成，势必浪费很多的时间，而且又很容易出差错。为了适应现代信息管理，节省人力、物力和财力，开发了这个企业客户管理系统面对各种不同种类的信息，需要合理的数据库结构来保存数据信息以及有效的程序结构支持各种数据操作的执行。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查找，充分利用计算机的功能实现对客户管理、商品管理、系统管理等的自动化控制从而减少管理方面的工作量。
一、编写目的
本软件系统说明书的编写目的，是为用户及分析、工作人员充分理解本产品而设立的，它说明了本软件的各项功能和性能需求，明确标识各项功能的实现过程，阐述实用范围及背景，提供用户解决问题或达到目标所需的条件或权能，提供一个度量和遵循的基准。
二、本系统面向的使用对象　
本系统面向的使用对象是企业销售主管、业务部门经理、业务骨干、小型办事处。
三、开发工具
本系统在Windows XP下开发,结合所要开发的系统的特点,本系统使用Visual Basic 6.0 中文企业版作为开发工具,后台数据库采用ACCESS 2000,数据访问方法使用ADO(Active 数据对象Active Data Objects)通过ODBC的方法同数据库接口。
四、系统的技术可行性
Visual Basic 6.0 是Microsoft公司为开发WINDOWS应用程序而推出的强有力的程序开发环境和工具，是具有良好的图形用户界面的程序设计语言,是目前世界上使用最广泛的程序开发工具。Visual Basic 6.0 应用程序的开发以对象为基础，并运用事件驱动机制实现对WINDOWS操作系统的事件响应。Visual Basic 6.0提供了大量的控件，可用于设计界面和实现各种功能，用户可以通过拖放操作完成界面设计，不仅大大减轻了工作量，简化了界面设计过程，而且有效地提高了应用程序的运行效率和可靠性。它是众多WINDOWS软件开发工具中开发效率最高的工具之一，是一种开发WINDOWS应用程序的理想工具。同时，Visual Basic 6.0是一种可视化的编程语言，利用这种可视化技术进行编程，能合编程工作变得轻松快捷、摆脱了面向过程语言的许多细节，而将主要精力集中在解决实际问题和设计友好的界面上。因此，Visual Basic 6.0 在国内外各个领域的应用非常广泛，许多计算机专业和非专业的人员常利用这来编制开发应用程序和软件。
选用ACCESS作为后台数据库管理同时ACCESS与同类产品相比有其独特的优点：
● 提供数据库中最常用的功能，使用便捷。
● 系统资源占用低，并不需要数据库服务器的支持。
● 与Office办公组件紧密集成，交换数据非常方便。
● 快速、小巧、灵活，经常被小、中型信息管理系统用做后台数据库
同时，为了巩固上个学期刚学的Visual Basic相关知识点，也熟悉ACCESS的使用，所以我选择其作为编程语言，选用ACCESS作为后台数据库管理。
五、开发人员
本系统的开发人员: 张煌
六、主要模块
商品管理, 它包含商品管理、库存管理；
我的办公室，它包含文档管理和日常备份；
系统设置， 它包含权限设置、系统初始化、系统的备份与还原；
登入管理， 它包含登入系统、修改密码、退出系统；
客户管理, 它包含客户资料、信息管理；
统计分析， 它包含客户分析、销售分析；
辅助工具, 它包含邮件管理、通信录、记事本、计算器；

第二章 正文
一、功能分析
1、 系统结构分析
开发这个系统的目的就是帮助企业提高工作效率以及确保客户信息的准确性实时性，实现企业客户管理的系统化、规范化、和自动化。根据这个系统所要实现的目的，总结出这个系统最终实现的主要功能如下：
1. 登入管理包含登入系统、修改密码、退出系统、并且在密码进行加密。
2. 客户管理包含客户信息资料的浏览、增加、修改、删除和打印这四项功能。提供最直观的操作方式，可添加、查询客户的详细信息，以及跟进客户的详细资料，客户状态、客户级别、跟进入的时间、行业和类别等自动排序，一目了然。
3. 商品管理包含注册商品、商品信息和库存信息，其中商品管理给客户以感观上的认识，认识该产品，从面能引导客户去购买或定单。库存信息给管理者提供了很好的反映商品需求的变化，实时警报库存的变化、保证商品供应的正常。
4. 统计分析包含客户分析、销售分析，采用表格和图像两种方式反映客户和商品销售的变化。客户分析让企业更好地了解市场中需要的人群，集中在那一个层次或说是阶段，同样销售分析也要能清楚地给企业以视觉上的感受性认识，认识到这个阶段的产品销售比，从而给更好做出相应的决策，从而为企业带来生机和发展。
5. 我的办公室包括文档管理和日常备份。主要实现公司在一段时间内的计划与报告。文档管理就是对所有的文档日程管理，做到实时提醒用户,方便的进行对多文档的综合管理。日程备忘：在日益忙碌的工作中人性化提醒工作、生活安排。
6. 辅助工具包含邮件管理、通信录、记事本、计算器。邮件管理就是使用E-mail方便快捷地与客户进行沟通；通信录方便办公人员实时了解客户的信息,方便好用的个人通讯录，可集中管理联系人资料；记事本方便办公人员临时记录重要事件、用户资料等等；计算器方便办公人员进行重要数据的计算。
7. 系统设置包含权限设置、系统初始化、系统的备份与还原。权限设置设置了不同用户的不同权限，当用户进入系统时所拥有的权限不同。详细的多级用户权限管理，大大的减轻了系统管理员的负担。系统的备份与还原保证了系统的稳定，能使系统长时间工作而不至于损坏造成数据丢失给企业带来经济损失。
2、系统功能模块图
根据上面所介绍的主要功能,对这个系统进行分析,得到以下所示图1的系统功能模块图

图1
二、数据库设计分析
数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。设计数据库系统时首先
要充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：
●数据库需求分析。
●数据库结构设计。

1、数据库需求分析
用户的需求具体体现在各种信息的提供、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，为后面的具体设计打下基础。
仔细分析调查有关客户管理信息需求的基础上，将得到如图2所示的系统总的流程图。

2、数据库结构设计
针对客户管理系统的需求，通过对客户管理的过程和系统的总体流程分析，设计数据库如下所述：
本系统将使用ACCESS 2000作为数据库管理系统（DataBase Management System，DBMS）。在ACCESS中，新建一个数据库（gdb.mdb）
2.1基本表汇总

表名
类型
说明
guest
基本表
存放系统用户的信息
guestinif
基本表
存放客户资料的信息
inf
基本表
存放商品的信息
sale
基本表
存放销售商品的信息
2.2各基本表的设计
① guest表(系统用户信息表)的设计
在数据库中创建guest表，该表中包括以下字段:用户名（设为主关键字）、密码、姓名、单位、职务、权限、性别、工作地址、邮政编码、单位电话、手机号码、E-mail、个人主页。其字段结构如表3-1所示（表中空缺处表示无要求）
guest表
字段名
数据类型
说 明
用户名
文本
系统用户登陆时的用户名，字段大小20
密码
文本
字段大小6
姓名
文本
字段大小10
单位
文本
字段大小30
职务
文本
字段大小15
权限
数字
字段大小 整型
性别
文本
字段大小2 （男/女）
工作地址
文本
字段大小40
邮政编码
文本
字段大小6
单位电话
文本
字段大小50
手机号码
文本
字段大小50
E-mail
文本
字段大小30
个人主页
文本
字段大小30
表3-1
② guestinif 表（客户资料表）的设计
在数据库中创建guestinif表，该表中包括以下字段：用户名（设为主关键字）、姓名、单位、职务、性别、工作地址、邮政编码、单位电话、手机、E-mail、个人主页。其字段结构如表3-2所示 （表中空缺处表示无要求）
字段名
数据类型
说 明
用户名
文本
字段大小50
姓名
文本
字段大小50
单位
文本
字段大小50
职务
文本
字段大小50
性别
文本
字段大小2 （男/女）
工作地址
文本
字段大小50
邮政编码
文本
字段大小6
单位电话
文本
字段大小50
手机号码
文本
字段大小50
E-mail
文本
字段大小50
个人主页
文本
字段大小50

③ inf表（商品资料表）的设计
在数据库中创建inf表，该表中包括以下字段：车名（设为主关键字）、型号、产地、价格、简介、图片、库存。其字段结构如表3-3所示（表中空缺处表示无要求）：
字段名
数据类型
说 明
车名
文本
字段大小50
型号
文本
字段大小50
价格
文本
字段大小50
简介
文本
字段大小255
图片
文本
字段大小10
库存
文本
字段大小50
表3-3
④ sale表(商品销售表)的设计
在数据库中创建sale表，该表包括以下字段：月份（设为主关键字）、宝马、奔驰、别克(所有的商品名都是可以变的，不是固定，这就是一个系统能够适应不同的企业的管理)。其现在字段结构如表3-4所示
字段名
数据类型
说 明
月份
文本
字段大小50
宝马
文本
字段大小50
奔驰
文本
字段大小50
别克
文本
字段大小50
3、建立公共模块
运行Visual Basic后，选择“文件” —>“新建工程”菜单，然后从工程模板中选择“标准EXE”项，单击“确定”按钮。Visual Basic就会自动生成一个窗体，这个窗体的属性采用的都是默认设置。在这个实例中，先删除这个窗体，然后选择“文件” —>“保存工程”菜单，在出现的“文件另存为”对话框输入这个工程项目的名称工程1，并且选择保存这个工程的目录，单击“保存”按钮，保存工程。
为了提高代码的效率方便维护，在Visual Basic中可以用公共模块来存放工程中经常使用的函数、过程和全局变量等。在这个系统中，每个功能模块都要使用数据库，因此可以使用一个公用数据操作函数，来执行一系列的SQL语句。
在项目资源管理器中为这个工程添加一个模块，保存为Module1.bas
公共模块的代码为：
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public dataname As String '确定数据库名
Public m As String '保存登入修改密码时的当前用户名
Public userlevel As String '用于保存用户在登入时所对应的权限
Public newname As String '用于当注册商品时，按next时记下此时的商品名
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\gdb.mdb;Persist Security Info=False"
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
Public Sub endata(key As Integer)
If keysac = 13 Then
SendKeys "(TAB)"
End If
End Sub

Set mrc1 = exesql(sql)
Set mrc1 = Nothing
If Trim(tn) = "guest" Then
sqltxt2 = "INSERT INTO guest(用户名,密码,权限) VALUES('1234','1234','0')"
Set mrc2 = exesql(sqltxt2)
Set mrc2 = Nothing
End If
End Sub

第三章 系统的实现
在编写代码之前应该先引用“Microsoft ActiveX Data Object 2.5 Library”。具体的方法是：打开菜单中的“工程︱引用”菜单，如图11所示，找到这个选项并在其前面的方格内打勾，如图3-1所示。

图3-1
其中一部分需要用到Datagrid控件。这个控件需要自行将其添加到控件栏内。方法是：单击“工程︱部件”菜单，在如图3-2所示的窗体中找到“Microsoft Data Control 6.0”选项并在前面的方框内打勾。

图3-2

一、客户管理系统窗体汇总
窗体名称
窗体类型
简要说明
addguest
模式窗体
添加新用户
addsale
模式窗体
销售登记
newguest
模式窗体
注册新客户
editguset
模式窗体
修改客户资料
Kucun
模式窗体
库存情况
Zcsp
模式窗体
注册新商品
editinf
模式窗体
修改商品信息
nextinf
模式窗体
进一步添加新产品的基本信息
Chaken
模式窗体
查看文档
Init
模式窗体
系统初始界面
Load
模式窗体
系统登入界面
Main
模式窗体
系统主界面
Mima
模式窗体
修改密码界面
quanxian
模式窗体
权限设置界面
Beifen
模式窗体
系统备份界面
resetsystem
模式窗体
系统还原界面
tongxunlu
模式窗体
通讯录
frmAbout
模式窗体
关于本软件
二、各窗体的实现
1、客户管理系统初始界面（Init）窗体的实现
初始界面将出现的窗体如图3-3所示

图3-3

制作步骤如下：
1） 任意右击右边工程1已有的窗体，在列出的下拉菜单选择添加窗体，默认名为form1，将之命名为init
2） 在init窗体中放置1个timer控件，并设置其中的Interval属性为700（就是两次调用的时间相隔为700毫秒）
程序代码：
　　Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
load.Show
init.Visible = False
Timer1.Enabled = False
End Sub
2、客户管理系统登入界面（Load）窗体的实现
系统的登入界面将出现的窗体如图3-4所示

图3-4
制作步骤如下：
1） 任意右击右边工程1已有的窗体，在列出的下拉菜单选择添加窗体，默认名为form1，将之命名为load
2） 向窗体添中2个label控件、2个text控件和3个按钮控件（而后面的效果是添加一张图片，是用photoshop做完的）
程序代码：

Public n As Integer '保存登入的次数
Private Sub Command1_Click()
m = username.Text
Dim mima As String
Dim a As String
For i = 1 To Len(Trim$(pwd.Text))
a = Mid$(Trim$(pwd.Text), i, 1)
a = Chr(Asc(a) + 6)
mima = mima & a
Next i
Private Sub Command2_Click()
If Trim(username.Text) = "" Then
MsgBox "用户名不能为空！"
Else
m = username.Text '用于记录当前用户名，放置于模块当中，让修改密码窗体调用
mima.Show '调用修改密码窗体mima.frm
End If
End Sub

Private Sub Command3_Click()
newguest.Show
End Sub

Private Sub Form_Load()
n = 0
dataname = "gdb"
End Sub
3、注册新用户（newguest）窗体的实现
用户新注册出现的界面如图3-5所示的窗体。

图3-5
制作步骤如下：
1） 任意右击右边工程1已有的窗体，在列出的下拉菜单选择添加窗体，默认名为form1，将之命名为newguest
2） 向窗体添中21个label控件、11个text控件、2个按钮控件和1个comboBox 控件（而后面的效果是添加一张图片，是用photoshop做完的）
　　　程序代码：
　　Private Sub Form_Load()
Dim mblchange As Boolean
With sexitem
.AddItem "男"
.AddItem "女"
End With
uname.Text = ""
password.Text = ""
yourname.Text = ""
danwei.Text = ""
zhiwu.Text = ""
address.Text = ""
youbian.Text = ""
telphone.Text = ""
shouji.Text = ""
mail.Text = ""
web.Text = ""
End Sub

4、用户修改密码（Mima）窗体的实现
用户修改密码的界面如图3-6所示

图3-6
　　制作步骤如下：
1） 任意右击右边工程1已有的窗体，在列出的下拉菜单选择添加窗体，默认名为form1，将之命名为mima
2） 向窗体添中3个label控件、3个text控件2个按钮控件（而后面的效果是添加一张图片，是用photoshop做完的）
程序代码：
Private Sub Command1_Click()
Dim mima As String
Dim a As String
For i = 1 To Len(Trim$(oldpwd.Text))
a = Mid$(Trim$(oldpwd.Text), i, 1)
a = Chr(Asc(a) + 6)
mima = mima & a
Next i
Dim mima2 As String
Dim a2 As String
For i2 = 1 To Len(Trim$(newpwd.Text))
a2 = Mid$(Trim$(newpwd.Text), i2, 1)
a2 = Chr(Asc(a2) + 6)
mima2 = mima2 & a2
Next i2

Dim xungai As ADODB.Recordset
txtsql = "SELECT * FROM guest WHERE 用户名='" & m & "'" & "AND 密码='" & Trim$(mima) + "'" '检索是否该客户的用户名和密码是否一致！
Set xungai = exesql(txtsql)
Unload Me
End Sub

5、客户管理系统主界面（Main）窗体的实现
用户以管理员的身份进入系统的主界面如图3-7 所示

图3-7
制作步骤如下：
1) 任意右击右边工程1已有的窗体，在列出的下拉菜单选择添加窗体，默认名为form1，将之命名为main
2) 向窗体添加一系列菜单如图所示

3) 首先向工具栏添加一些需要的控件、设计器和可引用的对象，如图所示

4）然后如图那一张效果图所需要的控件，并设置其中的各属性
程序代码：
　　Public first, second, third As Boolean
Private Sub Calendar1_Click()
Dim file As String, str As String, str1 As String
file = App.Path & "\文档\" & Calendar1.Year & Calendar1.Month & Calendar1.Day & ".txt"
On Error GoTo err
Open file For Input As #1
Do While Not EOF(1)
Line Input #1, str
str1 = str1 & Chr(13) & Chr(10) & str
Loop
Close 1
riji.Text = str1
End
End Select
End Sub

6、添加（addguest）/修改（editguset）客户资料的实现
添加新客户/修改客户资料的界面出现如图3-8所示

制作步骤如下：
1） 由于两个窗体用的都是一样的控件，只是修改客户资料在load的初始化时候的代码有一部分不样，在于要调用指针所指的数据。
程序代码：
　1_addguest的代码：
　　Private Sub Form_Load()
Dim mblchange As Boolean
With sexitem
　　.AddItem "男"
　　.AddItem "女"
End With
uname.Text = ""
password.Text = ""
yourname.Text = ""
danwei.Text = ""
zhiwu.Text = ""
address.Text = ""
youbian.Text = ""
telphone.Text = ""
main.Adodc1.Recordset.Fields("用户名") = Trim(uname.Text)
main.Adodc1.Recordset.Fields("姓名") = Trim(yourname.Text)
main.Adodc1.Recordset.Fields("性别") = Trim(sexitem.Text)
main.Adodc1.Recordset.Fields("单位") = Trim(danwei.Text)
main.Adodc1.Recordset.Fields("职务") = Trim(zhiwu.Text)
main.Adodc1.Recordset.Fields("工作地址") = Trim(address.Text)
main.Adodc1.Recordset.Fields("邮政编码") = Trim(youbian.Text)
main.Adodc1.Recordset.Fields("单位电话") = Trim(telphone.Text)
main.Adodc1.Recordset.Fields("手机") = Trim(shouji.Text)
main.Adodc1.Recordset.Fields("email") = Trim(mail.Text)
main.Adodc1.Recordset.Fields("主页") = Trim(web.Text)
main.Adodc1.Recordset.Update
MsgBox "修改客户成功！", vbOKOnly + vbExclamation, "提示"
Unload Me
End If
End If
End If
End If
End Sub
图3-8
7、注册商品（Zcsp）/修改商品（editinf）窗体的实现
注册商品/修改商品窗体的界面如图3-9所示

制作步骤如下：
　　这两个窗体是一步到下一步来设计的
1） 由于已经提到了一定量的窗体设计所需的控件，所以再此就不太过于哆嗦
　　　　程序代码：
　　　　　　Private Sub Command1_Click()
newname = Trim$(shangpin.Text)
nextinf.Show
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Public n As Integer '用于判断数据库里的inf已有了几个记录
mrc2.AddNew
mrc2!车名 = Trim$(zcsp.shangpin.Text)
mrc2!型号 = Trim$(Text1.Text)
mrc2!产地 = Trim$(Text2.Text)
mrc2!价格 = Trim$(Text3.Text)
mrc2!库存 = Trim$(Text4.Text)
mrc2!图片 = Val(n + 1)
mrc2!简介 = Trim$(Text6.Text)
mrc2.Update
Private Sub Text6_KeyPress(KeyAscii As Integer)
Call endata(KeyAscii)
End Sub
图3-9
8、销售登记（addsale ）/库存情况（Kucun）窗体的实现
销售登记/库存情况窗体的界面如图3-10所示

图3-10
程序代码：
Private Sub Command1_Click()
Dim sqltxt As String, ceming As String, sqltxt1 As String
Dim mrc As ADODB.Recordset, mrc1 As ADODB.Recordset
main.Adodc2.Refresh
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
End If
Next i
Combo1.AddItem mrc!车名
mrc.MoveNext
Loop
Combo1.Text = Combo1.List(0)
Combo2.Text = Combo2.List(0)
Dim sqltxt1 As String
Dim mrc1 As ADODB.Recordset
sqltxt1 = "SELECT * FROM inf WHERE 车名='" & Combo1.Text & " ' AND 型号='" & Combo2.Text & "'"
Set mrc1 = exesql(sqltxt1)
shu.Caption = mrc1!库存
End Sub
9、权限设置（quanxian）界面窗体的实现
权限设置界面窗体如图3-11所示的窗体。

图3-11
程序代码：
Private Sub Combo1_Click()
Dim mrc As ADODB.Recordset
Dim txtsql As String
txtsql = "SELECT * FROM guest WHERE 用户名='" & Combo1.Text & "'"
Set mrc = exesql(txtsql)
If Not mrc.RecordCount = 0 Then
Combo2.Text = mrc!权限
Else
MsgBox "还没有设定此用户的权限！"
End If
End Sub

MsgBox "权限修改成功！"
Set mrc = Nothing
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim sqltxt As String
Dim mrc As ADODB.Recordset
sqltxt = "SELECT*FROM guest"
Set mrc = e