基于VB的客户信息管理系统

兵 工 自动 化 2005年第 24卷第 1期 圈络售息技m Network Information Technique o．I．Automation 2005，Vo1．24，No．1 文章编号：1006—1576(2005)O卜0047—02 基于 VB的客户信息管理系统 向平 (武汉大学 动力与机械学院，湖北 武汉 430072) 摘要：基于VB的假肢厂客户信息管理系统用VB和 Access数据库、ADO控件和 Excel实现。先在数据库中建 立新老客户基本信息表，再建立联系各类客户的 “档案号”字段对应表。通过 VB编写代码，添加 ADO控件及其属 性设置实现数据库访问。信息查询用SQLSELECT实现，存档、修改、更新、查找用数据及单复选按钮等控件实现。 关键词：信息管理系统；VB；ADO控件；Access数据库；SQL 中图分类号：TP317．1：F406．9 文献标识码：A M anagement System for Clients Information B ased on VB XIANG Ping (College of Power&Mechanical Engineering，Wuhan University，Wuhan 430072，China) Abstract：VB and Access database，ADO Control an d Excel was applied in man agement system of client inform ation for artificial limb factory．The basis inform ation lists of new an d old clients were founded in database，an d the corresponding lists of filing number field for various clients were set up．The database access is realized through programmed by VB，added ADO control，and setup their attribute．The query of information is completed with SQL SELECT,and the keeping archives， modifying，refreshing and looking up is established with data single and secondary election buttons． Keywords：Information management system；VB；ADO Control；Access database；SQL l 前言 为满足湖北假肢厂客户信息管理，采用 VB和 Access数据库、ADO控件和 Excel 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 了基于 VB 的客户信息管理系统。 2 系统需求分析及其设计 2．1数据库设计 本系统涉及的信息量不大，采用 Access2000 数据库【l】。首先在数据库中建立新老客户 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 表。 新表用于保存客户的最新来访的信息，有 11个字 段，分别是档案号、姓名、来访时间、客户类别、 假肢类别、地市、县、住址、电话、货号和价格， 其中将档案号设为该表主键。老表中保留部分新表 字段，每次老客户来访，都将在该表中新增一条记 录，该表中没有主键。根据伤残和购买不同产品又 分为上肢、下肢、矫形器、矫形鞋和器械 (如轮椅) 等客户，每类客户分别在数据库中建立对应表，也 以档案号字段作为主键。显然，任一客户来访时需 要更新三个表的记录，这三个表通过档案号彼此联 系。档案号是数据库中和客户一一对应的 ID。数据 库中还增加了一个用户表，用于存储软件用户的使 用密码。同时整个数据库文件 ( ．mdb)也在 Access 中设置了文件密码，以保证数据库的封闭性。 2．2系统功能设计 (1)程序界面的开发 采用 VB为开发工具，使用文本框、组合框、 数据控件、单选按钮、复选按钮等控件。界面效果 采用 VB图像框 (image)控件，通过设置其 picture 属性，调整图片大小并添加文本框实现。如图 1。 图 1 系统 界面 (2)VB与数据库的连接 首 先 使 用 ADO (ActiveX Data Object) Connection对象的 Provider属性指定 OLE DB执行 服务器命令，然后设置 Connection的 Connection String属性以提供数据源地址【2】。接下来通过 ADO 的 Recordset对象操作数据 。程序中可通过编写代 码执行上述步骤实现对数据库的访问，也可以通过 添加 ADO控件并设置其属性来访问。 (3)查询与统计功能的实现 查询功能用 SQL语言中的 SELECT语句来实 现。SQL是 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 的关系数据库语言，具有固定的语 法形式。使用中灵活的利用其代表零个或者多个任 意字符的通配符 “％”，Order By子句以及 WHERE 子句实现所需的查询功能。获得查询结果后，利用 ADODB．Recordset的 RecordCount属性可获得记录 收稿 日期：2004—07—02；修回日期：2004—08—05 作者简介：向平 (1980-)，男，湖北人，武汉大学在读硕士生，从事数控技术及机 电一体化研究。 · 47· 维普资讯 http://www.cqvip.com 兵工 ●动化 2005年第24卷第 1期 ■叠■■技m O．I．Automation — Netwo — rkInformationTechnique 2005 ， Vo1．24，No．1 数，利用 VB的循环语句和计算语句可对收入进行 统计，还可将所有的记录数据输出到 Excel中。 (4)打印功能的实现 本系统要打印多种卡片式的 报表 企业所得税申报表下载财务会计报表下载斯维尔报表下载外贸周报表下载关联申报表下载 ，采用在 VB 中编写程序将数据输出到 Excel，然后借助 Excel 来完成报表的打印的方法【3】。 2．3软件实现 程序 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 如图 2，除上肢客户以外的其它客户 也有和上肢客户一样的子 目录。 图 2 程序流程图 (1)数据库连接访问代码 ① 当 选 用 ADO 控 件 时 ， 设 置 控 件 的 ConnectionSting 属 性 为 ”c：＼data~hubei．mdb”，设 置 RecordSource属性为”select*from 新客户记录表”， 则程序中增加记录的代码为： Adodc 1．Recordset．AddNew Adodc1．Recordset C档案号”)=“text1．text” Adodc1．Recordset．Update 需要注意的是还必须至少选择一个Edit文本框 与 Adodcl绑定才能保证上述过程能顺利的访问数 据库，尽管并不需要该文本框。 ② 当不选用 ADO控件时，代码如下： Dim ca As ADODB．Connection Set cn=New ADODB．Connection Dim rs As New ADODB．Recordset Set rs=New ADODB．Recordset cn．Open”Provider=Microsoft．Jet．OLEDB．4．0；Data Source=c：＼data~ubei．mdb；password=xiang” rs．Open”新客户记录表”，cn， adOpenStatic，adLockOptimistic rs．AddNew rs(“档案号”)=”text1．text” rs．Update (2)复合查询的代码 SOLString=”SELECT From【新客户记录表】WHERE地 市=”’& Combo3．Text& ⋯AND县=⋯& Combo4．Text& ⋯ and类别= &Combo1．Text&”’and Left(接待时间，4)= & Text4．Text&”’And档案号 LIKE’A％’ORDER BY 档案号 Desc”(该语句在一行里 ) ·48· Adodc 1．RecordSource=SQLString 以上代码实现如图 3所示的复合查询。上述语 句是在新客户记录表中查找某市某县类别为某一类 的上肢客户，且来访时间是在某一年，结果按档案 号降序排列 。字段 “接 待时间 ”的一个实例是 2004—5—7 _ T19：44：18，左边四位是年份。程序中可根 据 用 户在 界 面 中的选 择 来 组 合查 询 条件 语 句 SQLString进行查询。 图 3 复合查询界面 (3)通过 Excel打印 Dim xlAPP AS Exce1．Application Dim xlBook As Exce1．Workbook Dim xlSheet AS Exce1．Worksheet Set xlApp=CreateObject(”exce1．appficafion”) ’启动excel xlApp．Visible=False ’后 台打 印 xlBook．Sheets(1)．Copy after：=xlBook．Sheets(1) Set xlSheet=xlBook．ActiveSheet W 打开打印输 出模板文件 Set xlBook=xlApp．Workbooks．Open (App．Path&”~ndbUIAOXX．xls”，，1) xlSheet．Cells(2，6)=Adodc2．Recordset(”接待 日期”) xlSheet．PrintOut xlBook．Close(False) xlApp．Quit Set xlSheet= Nothing 需要注意的是使用 Excel时需添加引用。在 Visual Basic项目中进入 Progect／References然后选 中Microsoft Excel 9．0 Object Library按 OK退出即 可。使用 ADO控件时也要添加相应的库 Microsoft ActiveX Data Object Libray 2．0。 3 结束语 选用 VB和 Access数据库，利用 ADO控件和 Excel实现了预期的功能要求。 参考文献： 【1】潇湘工作室．Access 2002中文版从入门到精通【M】．北 京：人民邮电出版社，2002． 【2】Jeffrey P．McManus．Visual Basic 6数据库访问技术【M】． 北京：机械工业出版社，2001．382—390． 【3】何畏，虞水俊．VB数据库编程中数据输出到Excel的两 种实现方法【J】．电脑开发与应用，2001，15(9)：13—17． 维普资讯 http://www.cqvip.com