企业客户管理信息系统-毕业论文.doc

企业客户管理信息系统 作者： 导师： 摘要 客户管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前段应用程序的开发两个方面。.对于前者要求建立起数据一致性和完整性，数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。企业客户管理系统的对象是企业、企业化管理的事业单位。客户管理系统为企事业单位提供保存信息、修改信息，信息咨询等服务。.该系统灵活使用表格对各种信息分门别类，组成企业客户管理系统，便于查询、阅读、修改、交流和重复使用。关键字：数据库；窗体；控件；The information system ofbusiness enterprise thcustomer manages SummaryCustomer the management system is a typical information management system, its development includes primarily the backstage database establishes with support and front a development for applying procedure two aspects。Customer the management system is a typical information management system, its development includes primarily the backstage database establishes with support and front a development for applying procedure two aspects.establishes to rise to the former request data consistency with complete, that data safety like。Business enterprise the customer manages the object of the system is a business unit that business enterprise, business enterprise turn the management.。The customer manages system as the business unit offering keeps the information and modify the information, the information consults etc serves。The vivid usage in that system form classifies to every kind of information, constituting the business enterprise the customer manage the system, easy to search, read, modify, the exchanges uses with the repetition.Key word: Database; Window; Control piece;目录1 引言2 Visual Basic 开发环境3 Access 2000 简介4 系统设计 41 功能分析42 模块设计5 数据库设计5 1 数据库的需求分析 52 数据库的实现6 建立公共模块7 窗体的实现71 建立主窗体 72 建立登录窗体73 建立添加用户窗体74 建立修改密码窗体75 建立个人信息窗体76 建立客户信息列表窗体77 建立查询个人信息窗体78 建立公司信息列表窗体79 建立修改公司信息窗体710 建立查询公司信息窗体711 建立导出数据窗体712 建立弹出式菜单8 系统的编译与发布9 结束语致谢参考文献1 引言企业的客户管理是公司管理的一个重要内容。随着市场竞争日趋激烈，如果能够拥有更多的客户，将是企业长久生存的重要因素。维护企业客户信息的工作，就是保存企业客户的基本信息，并要能够保持一个动态的信息，确保信息的一致性。当企业的客户数量达到一个级别后，仅仅靠人力来维护庞大的客户信息是不可能的，如果有一个可以自动化、系统化的维护企业客户信息的管理系统，将能够为企业提供非常大的帮助。本系统基本上能够满足现代企业客户管理信息的需求，为不同企业提供通用的需要维护的客户信息。2 Visusl Basic 运行环境Visual Basic 示Microsoft 公司推出的Windows应用程序开发工具。是基于Basic的可视化的程序设计语言。在Visual Basic中一方面继承了Basic所具有的程序设计语言简单易学的特点，另一方面，在其编程系统中采用了面向对象、事件驱动的编程机制，提供了一种所见即所得的可视化的程序设计方法。Visual Basic提供了应用程序集成开发环境，用户可以设计界面，编写代码，调试程序，甚至把应用程序编译成可执行文件在Windows中运行。作为一种程序语言，Visual Basic具有丰富的数据类型和结构化的程序结构。Visual Basic还支持Microsoft Access,Btrieve,dBASE,Microsoft FoxPro和Paradox等多种数据库的访问，并且支持动态数据交换，动态链接库和对象的链接与嵌入技术。基于以上特点本系统用Visual Basic作为数据库开发平台。3 Access 2000简介数据库技术是计算机软件科学应用分支，其技术核心是数据库管理系统（DBMS）.DBMS中的管理包括创建数据、查询、更新数据以及库结构的维护。数据一般都是把数据分成一条一条的记录，每个记录占有相同的长度。Access使用符合标准的SQL作为它的数据库语言，从而提供了强大的数据处理能力和通用性。表示Access数据库的基础，是信息的载体。其他对象如查询、窗体荷包也是将表中的信息以各种形式表现出来。Access 2000在Access的基础上有新增了几项功能：具有Internet Explorer 风格的界面。可以方便的通过E-mail发送数据访问页或将它作为HTML页发布到Web上。利用Excel整理数据。与SQL数据链接，Access 2000 支持数据访问标准OLE这就允许Access直接接到MicrosoftSQLServer上。 4 系统设计 4.1 功能分析 开发本系统的目的就是帮助企业提高工作效率以及确保客户信息的准确性和实时性，实现企业客户信息管理的系统化、规范化和自动化。根据系统所要实现的目的和任务，总结出本系统最终实现的主要功能如下： 系统管理部分： 包括添加系统用户和修改密码。 个人信息管理部分： 包括添加个人信息、修改个人信息、查询个人信息。 企业信息管理部分： 包括添加企业信息、修改企业信息、查询企业信息和删除企业信息。 工具部分： 包括数据导出，发送电子邮件等。42 模块设计1 系统模块： 系统启动时有一个管理员用户，使用这个拥护登录后，可以添加其他用户，而且每一个用户都可以更改自己的密码。2 个人信息管理 添加个人信息： 包括个人的姓名、性别、年龄、生日、所属公司、职务、所在国家城市、通信地址、电话、传真、电子邮件等。修改个人信息： 修改所有的个人信息。查询个人信息： 按照公司查询个人信息。3 企业信息管理 添加企业信息： 包括公司名称、所在国家、主要经营领域、与本公司合作领域、地址、电话、传真等信息。 修改企业信息： 修改企业的各种信息。 查询企业信息： 根据经营领域查询企业信息。 删除企业信息： 删除不作为客户的企业信息。 4 工具 发送电子邮件：发送电子邮件给客户。 数据管理： 导出客户信息。5 数据库设计 51 数据库需求分析 针对企业客户信息管理系统的需求，通过对客户信息处理过程的内容和数据流程分析。为本系统设计如下的数据项和数据结构： 个人基本信息： 包括姓名、性别、所属公司、电话、地址、E-mail等。 公司基本信息： 包括公司名称、地址、电话、传真等。 用户基本信息： 包括用户名称和密码。 52 数据库的实现启动Access 2000创建一个名为Client.mdb，并保存文件.客户管理信息系统的数据库中的各个表格的设计如图所示.这里每个表格都代表数据库中的一个独立的表.图1所示为用户信息表 图1 UserInfo 表图2 所示为公司基本信息表. 图2 Company 表图3 所示为个人信息表. 图3 Personal 表6 建立公共模块为了提高代码的效率方便维护，可以用公共模块来存放工程中经常使用的函数、过程和全局变量等。在这个系统中，我使用一个公用的数据操作函数，执行一系列的SQL语句。在项目资源管理其中为工程添加公共模块，保存为Mclient.bas.在这个公共模块中添加如下代码： 首先定义几个变量：Option ExplicitPublic strUserName As String 用户名称Public iflag As Integer 是否连接成功标志Public ichangeFlag As Integer 修改标志Public strPublicSQL As String 传递SQL字符串添加一个转换回车键的函数：Public Sub TabToEnter(Key As Integer) If Key = 13 Then 判断是否为回车键 SendKeys TAB 转换为Tab键 End IfEnd Sub添加系统启动时，第一个出现的窗体的函数：Sub main() Dim fLogin As New frmLogin fLogin.Show 显示窗体End Sub7 窗体的实现 71 建立主窗体7.1 .1 添加主窗体单击工具栏中的添加MDI窗体或者选择“工程”“添加MDI窗体”菜单，选择MDI窗体，单击“打开”按钮，为这个工程添加一个多文档窗体作为主窗体。 添加窗体后，主窗体的设置如图4所示。 图 4 窗体属性设置 7.1.2 添加菜单 在添加好的菜单中，单击鼠标右键，从弹出的快捷菜单中选择“菜单编辑器”菜单，在弹出的菜单编辑器对话框中添加需要的菜单，并且使用方向键为菜单分级，系统的菜单结构如图5 图 5 系统菜单 最后设计好的窗体如图6所示图6 设计好的主窗体 7.1.3 添加代码 选择“系统管理”“退出系统”菜单，关闭系统，代码如下：Private Sub Menu_Exit_Click() 退出系统 Unload Me Exit SubEnd Sub 7. 2 登录窗体建立 7.2.1 添加窗体 为工程添加一个窗体,在工具栏中选择”添加窗体”命令. 设置窗体的属性如图7所示 图7 登录窗体的属性 722 添加控件为这个用户添加3个标签，用来标识窗体的信息；2个文本框，用来输入用户名称和用户密码；2个按钮，用来确定或者去操作。这些控件的属性设置如图8所示 控件属性属性值 TextBox NameUserNameTextBoxPassWordChar*CommandButtonNamecmdOKCommandButtonNamecmdCancelLabelCaption客户管理信息系统LabelCaption用户名称LabelCaption用户密码 图8 登录窗体中的控件属性设置设计好的窗体如图9所示 图9 设计好的登录窗体7.2.3 添加代码 主要的事件响应代码:(1) 输入用户名称和密码后，单击：确定：按钮，进入系统，代码如下：Private Sub cmdOK_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text = ) Then MsgBox 没有输入用户名称，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Else 查询用户 sql = select * from UserInfo where UserID= & UserName.Text & Set rs = getRS(sql) If iflag = 1 Then If rs.EOF = True Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Else If Trim(rs.Fields(1) = Trim(PassWord.Text) Then rs.Close Me.Hide strUserName = Trim(UserName.Text) 保存用户名称 frmMain.Show Unload Me Else MsgBox 密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 PassWord.SetFocus PassWord.Text = End If End If（2）单击“取消”按钮，即取消登录，代码如下：Private Sub cmdCancel_Click() Unload Me Exit SubEnd Sub73 建立添加用户窗体 731 为窗体添加控件 添加3个标签、3个文本框和2个命令按钮。控件的属性设置如图10所示控件属性属性值TextBoxNameUserNameTextBoxNamePassWordMaxlength8PassWordChar*TextBoxNameconfirPWDPassWordChar*Maxlength8CommandButtonNamecmdOKCaption确定CommandbuttonNamecmdCancelCaption取消 图10 添加用户窗体中控件的属性设置设计好的窗体如图11所示 图11 添加用户窗体 732 添加代码主要事件响应代码： （1） 输入新的用户名和密码后，单极“确定”按钮就会添加用户，代码如下： Private Sub cmdOK_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text) = Then 判断用户名称是否为空 MsgBox 请输入用户名称!, vbOKOnly + vbExclamation, 警告 Exit Sub UserName.SetFocus Else sql = select * from UserInfo where UserID= & UserName & Set rs = getRS(sql) If rs.EOF = False Then 判断是否已经存在用户 MsgBox 这个用户已经存在！请重新输入用户名称！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = PassWord.Text = confirmPWD.Text = Exit Sub Else If Trim(PassWord.Text) Trim(confirmPWD.Text) Then 判断两次密码是否相同 MsgBox 两次输入的密码不一致，请重新输入密码！, vbOKOnly + vbExclamation, 警告 PassWord.Text = confirmPWD.Text = PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = Then 判断密码是否为空 MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 PassWord.Text = confirmPWD = PassWord.SetFocus Else 添加用户 sql = insert into UserInfo (UserID,UserPWD) values( & UserName sql = sql & , & PassWord & ) Call TransactSQL(sql) MsgBox 添加成功！, vbOKOnly + vbExclamation, 添加结果 重新设置初始化为空 UserName.Text = PassWord.Text = confirmPWD.Text = UserName.SetFocus End If End If End IfEnd Sub （2）“取消”按钮的Click事件：Private Sub cmdCancel_Click() Unload MeEnd Sub74 建立修改密码窗体 741 为窗体添加控件窗体中添加了3个标签，3个文本框，2个按钮。这些控件的属性设置如下。控件属性属性值TextBoxNameUserNameTextBoxNamePassWordMaxlength8PassWordChar*TextBoxNameConfirmPWDMaxlength8PassWordChar*CommandButtonNamecmdOKCaption确定CommandButtonNameCmdCancelCaption取消LabelCaption新用户名称LabelCaption用户密码LabelCaption确认密码图12 修改密码窗体中控件属性设置设计好的窗体如图13所示 图13 设计好的窗体 742 添加代码 （1）输入旧密码和2次输入新密码后，单极“确定”按钮，系统就会更改密码，实现这个功能的代码如下： Private Sub cmdOK_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(OldPWD.Text) = Then 判断是否输入旧密码 MsgBox 请输入旧密码！, vbOKOnly + vbExclamation, 警告 OldPWD.SetFocus Exit Sub Else If Trim(NewPWD.Text) = Then 判断是否输入新密码 MsgBox 请输入新密码！, vbOKOnly + vbExclamation, 警告 NewPWD.SetFocus Exit Sub ElseIf Trim(NewPWD.Text) Trim(ConfirmPWD.Text) Then 判断两次密码是否相同 MsgBox 两次密码不同！, vbOKOnly + vbExclamation, 警告 NewPWD.Text = ConfirmPWD.Text = NewPWD.SetFocus Else 修改密码 sql = update UserInfo set UserPWD = & NewPWD & where UserID= sql = sql & strUserName & Call TransactSQL(sql) MsgBox 密码已经修改！, vbOKOnly + vbExclamation, 修改结果 Unload Me End If End IfEnd Sub（2）“取消”按钮的Click事件：Private Sub cmdCancel_Click() Unload MeEnd Sub75 建立个人信息窗体751 工程 添加窗体 添加控件 这个窗体的控件以标签、文本矿、下拉列表和命令按钮为主。 设计好的窗体如图14所示 图14 个人信息窗体 753 添加代码 当公司名称变化时，其他信息随之变化，实现代码如下：Private Sub comComName_LostFocus() 获得公司信息 Dim sql As String Dim rs As New ADODB.Recordset sql = select * from Company where ComName= & MComName.Text & Set rs = getRS(sql) If rs.EOF = False Then Me.textDomain = rs(4) Me.textCountry = rs(2) Me.textCity = rs(3) Me.textSymbiosis = rs(5) Me.textComAddress = rs(6) Me.textComTel = rs(7) Me.textComFax = rs(8) Me.textRemark = rs(9) Else Me.textDomain.SetFocus Exit Sub End If rs.CloseEnd Sub76 建立客户信息列表窗体762 添加控件 在这个窗体中使用了MSFlexGrid 控件，使用这个控件需要重新添加。选择“工程”“部件”菜单，在部件窗体重选择Microsfot FlexGrid Control 6.0(SP3)项，即可添加。 MSFlexGrid控件的属性如图 15图 15 控件属性设置设计好的窗体如图16： 图16设计好的信息列表窗体763 添加代码主要事件响应代码：（1）当窗体调用的时候，是直接调用，需要显示所有的记录。Private Sub Form_Load() Dim sql As String If ichangeFlag = 2 Then sql = select * from Personal order by ID Call showTopic Call showData(sql) End IfEnd Sub（2）单极“查找”按钮，可以查找符合输入条件的客户姓名的记录。Private Sub comOK_Click() 查找客户信息 Dim sql As String sql = select * from Personal where ClientName= & Me.textName & order by ID Call showTopic Call showData(sql) frmPerResult.Show frmPerResult.ZOrder 0End Sub（3）在列表中单击鼠标右键，出现一个添加、修改、查询客户信息的弹出式菜单。Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 0 And Button = 2 Then PopupMenu frmPopmenu.Popmenu End IfEnd Sub77 查询个人信息窗体的建立 771 添加窗体 添加控件： 在窗体中添加2个复选框、1个下拉列表、1个文本框和2个命令按钮。 设计好的窗体如图17所示 图17 查询个人信息窗体 772 添加代码 （1） 窗体的初始化事件：Private Sub Form_Load() 初始化 Dim sql As String Dim rs As New ADODB.Recordset sql = select * from Company order by ID Set rs = getRS(sql) If rs.EOF = False Then With MComName While Not rs.EOF .AddItem rs(1) rs.MoveNext Wend .ListIndex = 0 End With End If Me.checkComName.Value = vbCheckedEnd Sub（2） 系统可以根据公司名称和客户名称进行查找，也可以不输入条件查找所有的记录，实现此功能代码如下：Private Sub cmdOK_Click() Dim sql As String 设置SQL语句 If Me.checkClientName.Value = vbChecked And Me.checkComName.Value = vbChecked Then sql = select * from Personal where ClientName= & Me.textClientName sql = sql & and Company= & MComName.Text & ElseIf Me.checkClientName.Value = vbChecked Then sql = select * from Personal where ClientName= & Me.textClientName & ElseIf Me.checkComName.Value = vbChecked Then sql = select * from Personal where Company= & MComName.Text & Else sql = select * from Personal End If Call frmPerResult.showTopic 显示查询结果 Call frmPerResult.showData(sql) Unload MeEnd Sub 78 建立公司信息列表窗体781 添加窗体 添加控件后的窗体如图18图18 企业信息列表窗体782 添加代码 （1）载入窗体时，显示所有企业信息列表 ，实现代码。Private Sub Form_Load() Dim sql As String If ichangeFlag = 2 Then sql = select * from Company order by ID Call frmComResult.showComTopic Call frmComResult.showComData(sql) End IfEnd Sub（2）单击“查找”按钮，将返回符合“公司名称”的记录，实现代码。 Private Sub cmdOK_Click() Dim sql As String If Me.textComName = Then sql = select * from Company order by ID Else sql = select * from Company where ComName= & Me.textComName & order by ID End If Call frmComResult.showComTopic Call frmComResult.showComData(sql) frmComResult.Show frmComResult.ZOrder 0End Sub79 建立修改公司信息窗体791 添加窗体 添加标签、文本框和命令按钮主要控件。窗体如图19图19 修改企业信息窗体 792 添加代码修改信息后，单极“修改”按钮，系统会显示修改后的记录，实现代码。Private Sub cmdOK_Click() Dim sql As String sql = update Company set ComName= & Me.textComName & ,Country= & Me.textCountry sql = sql & ,City= & Me.textCity & ,DealDomain= & Me.textDomain & , sql = sql & Symbiosis= & Me.textSymbiosis & ,Address= & Me.textComAddress sql = sql & ,Tel= & Me.textComTel & ,Fax= & Me.textComFax sql = sql & ,Remark= & Me.textRemark & where ID= & iNum Call TransactSQL(sql) 修改记录 MsgBox 已经更改信息！, vbOKOnly + vbExclamation, 提示 sql = select * from Company where ID= & iNum Call frmComResult.showComTopic 显示修改结果 Call frmComResult.showComData(sql) frmComResult.Show frmComResult.ZOrder 0 Unload MeEnd Sub710 建立查询公司信息窗体 7101 添加窗体 在窗体中添加2个复选框、2个文本框、2个命令按钮。 设计好的窗体如图20图 20 查询企业信息 7102 添加代码 单击“查找”按钮，系统根据选择的条件以及输入的内容开始查找记录。选择“经营领域”复选框时，系统可以根据输入的内容进行模糊查询。实现代码如下：Private Sub cmdOK_Click() Dim sql As String If Me.checkComName.Value = vbChecked And Me.checkDomain.Value = vbChecked Then sql = select * from Company where ComName= & Me.textComName & and sql = sql & DealDomain= & Me.textDomain & ElseIf Me.checkComName.Value = vbChecked Then sql = select * from Company where ComName= & Me.textComName & ElseIf Me.checkDomain.Value = vbChecked Then sql = select * from Company where DealDomain like % & Me.textDomain & % Else sql = select * from Company order by ID End If Call frmComResult.showComTopic 显示查询结果 Call frmComResult.showComData(sql) frmComResult.Show frmComResult.ZOrder 0 Unload MeEnd Sub711 建立导出数据窗体7111 本窗体中使用了CommondDialog控件。数据表格是导出到Excel，需要添加引用，选择“工程” “引用”菜单，在引用窗体中选择Microsoft Excel 9.0 Object Library项。设计好的窗体如图21.图 21 导出记录窗体7112 添加代码 单极“保存为”文本框右边的按钮，会提示用户选择保存路径，代码如下：Private Sub cmdPath_Click() CommonDialog1.CancelError = TrueOn Error GoTo ErrHandler CommonDialog1.Flags = cdlOFNHideReadOnly CommonDialog1.Filter = All Files (*.*)|*.*|Excel Files & _ (*.xls)|*.xls CommonDialog1.FilterIndex = 2 CommonDialog1.ShowSave Me.textFilePath = CommonDialo