Equipment Manufactring Technology NO.1 1,2007 可以有多个联系活动,系统可以根据提醒日期提醒业务员及时 安排联系活动。事件提醒子模块包括生日提醒、联系活动提 醒、销售记录提醒和记事提醒等,可以促进企业营销活动按时 完成,提高客户服务质量,更好地加强企业和客户之间的联系。 系统E—R图如图3所示。 根据上述E—R模型,将其转化为如下关系模型: 客户(客户名称,关键字,国籍,省份,城市,通讯地址,邮 编,电话,传真,QQ号码,MSN号码,电子信息,主页,年收入, 员工人数,法定代表人,税号,开户行,银行账号,行业,客户类 型,客户等级,来源,客户状态,备注,业务员)。 联系人(姓名,称呼,主联系人,部门,职务,办公电话,传 真,手机,小灵通,电子邮件,主页,QQ号码,MSN号码,生日, 爱好,宅电,住址,邮编,备注,业务员)。 销售产品(销售日期,销售单号,产品名称,产品型号,产品 规格,销售价,成本价,数量,单位,折扣,交易金额,开票,销售 状态,备注,业务员,提醒日期)。 在客户基本信息中,年收入和员工人数字段的设置是区别 客户等级的关键,一般情况下可以通过这两条信息来为公司是 否发展该客户决策方向作一个初步的定位。行业字段的设置有 助于公司分析市场需求的动态发展,某一时期公司收到更多某 行业的订单,则公司应考虑加大在该行业的宣传力度,打开市 场。客户类型字段的设置是便于公司区分客户是购买使用产品 者、竞争对手、合作伙伴或是供应商等。客户来源字段便于系统 管理员做出统计,为决策者未来开拓市场打下基础。客户状态 字段可以随时动态更改,一时期活跃的客户,可能随即沉寂甚 至流失,至于需不需要公司投入人力挽留该客户,则调查后视 流失原因而定。 在联系人基本信息中,主联系人只设置两种情况“是, 否”,一个客户可对应多个联系人,主联系人具有决定性作用。 在业务往来中,难免有应酬场合,了解联系人的业余爱好可以 作为谈资使对方有亲切感,而生日和业余爱好也往往在必要的 时候成为成功赢得客户的机会来源。 系统数据库包括客户资料表、联系人表、销售信息表、联系 活动表和相关文档表等。销售信息表对相关客户销售信息进行 登记,要求每条销售信息都有一条记录相对应,一个相关客户 可以有多条销售记录,一种产品也可以有多个客户。联系活动 表包括活动类型、活动日期、活动方式、活动主题、活动描述、提 醒日期以及业务员等字段,活动方式字段是指联系的方式,例 如会面、电话、打球等。提醒日期即指定系统提醒业务员活动的 日期,以防遗忘,可以采用“提前多少天提醒”的方式来实现。 3系统实现 3.1系统界面 主界面包括菜单栏、工具栏、状态栏、信息提醒、行业树选 择、客户数据表显示、联系人数据表显示、联系活动数据表显 示、销售记录数据表显示、相关文档数据表显示等。主界面实现 了系统的全部功能,并用分界面逐一实现TiE录管理、系统设 置、用户管理、添加修改公司、添加修改联系人、添加修改联系 活动、添加修改销售记录、添加修改相关文档、管理员添加修 改、客户信息检索、统计分析、导出打印和数据备份恢复等功 能。每个模块由系统主界面的TabControl结合DataGrid触发。 同时,加入状态栏控件,可以实时反映系统中的时间变化和日 期等信息。主模块初始化代码如下: Dim MySplashWnd As New conver,,定义新的对象为登陆窗口 createdirectory0 ,,初始化目录以及数据库 MySplashWnd.ShowDialog0//打开登录窗口 Call treenodejiazai0 ,,加载客户来源目录树 Call loaddata(”select from客户资料”),,打开客户资料表 加载到DATAGRID1 Call loadkh ̄cx0 Callb口仃(s(”selcet from联系人where客户ID=”’+CStr (DataGrid1.hem(DataGrid1.CurrentCel1.RowNumber,0))+…”) Call lxhdxs(”selcet from联系活动where客户ID=.t.+ CStr0)ataGrid1.Item(DamGfid1.CurrentCel1.RowNumber,0))+””’) Call璐jlxs(”sdect from销售记录where客户ID=…+ CStr(DataGrid1.hem(DataGrid1.CurrentCel1.RowNumber,0))+””’) Call xgwdxs(”sdect from相关文档where客户ID= + CStr(DataGrid1.hem(DataGrid1.CttrrentCel1.RowNumber,0))+…”) Call ̄rgl0 Call Button41_Click(Nothing,Nothing)//状态表显示 StatusBar1.Panels(2).Text=”系统工作正常.” StatusBar1.Panels(4).Text=”路径:”+System.10.Directory. GetCurrentDirectory+”\datakMyclient.mdb.” 3.2数据库访问 数据库动态操作代码如下: Public Sub updateData(ByVal sql As String) Dim connString As New System.Data.OleDb.OleDbConnection connString.ConnectionString ”Pmvider=-Microsof1.Jet.OLEDB. 4.0;”&一 ”Data Source=”+IO.Directory.GetCurrentDircetory+”'datakMy- client.mdb” connString.Open0 Dim SAs String sql Dim objOlecmd As OleDb.OleDbCommand=New OleDb.OleDb- Command(s,connString) Try objOlecmd.ExecuteNonQuery0 Catch exc As OleDb.OleDbException Console.Write(exc.Message) EndTry connString.Close0 EndSub 3.3数据备份与恢复 数据备份的代码如下: ,,首先判断备份的文件是否存在 ⅡIO.File.Exists(TextBox1.1lex【1=False Then System.IO.File.Copy Oo.Directory.GetCurrentDirectory+ 维普资讯 http://www.cqvip.com
《装备制造技术}2007年第1 1期 ’’\daIa、Myclient.mdb”,TextBox1.Text,True) WHERE设置项=’销售记录”’) StatusBar1.Panels(0).Text=”备份完成” newData(”UPDATE[设置内容]SET内容=”’+check4+”’ StatusBar1.Panels(1).Text=”备份到:”+Microsoft.Visual— WHERE设置项=’记事提醒…) Basic.Right(TextBox1.Text,Len(TextBox1.Text)一InStrRev newData(”UPDATE[设置内容]SET内容=…+NumericUp— (TextBox1.Text,”、”)) Down1.Text+”’WHERE设置项=’生13提醒day”’) Else newData(”UPDATE[设置内容]SET内容=”’+NumeircUp— ,/如果备份的文件已经存在,确认是否覆盖 Down2.Text+”’WHERE设置项=’联系活动day…) Dim fgstr As String=MessageBox.Show(”文件已存在,确定 newData(”UPDATE[设置内容]SET内容:”’+NumeircUp— 要覆盖吗?”,”询问”,MessageBoxButtons.YesNo,MessageBoxI— Down3.Tetx+”’WHERE设置项=’销售记录day”。) con.Exclamation) newData(”UPDATE[设置内容]SET内容=”’+NumericUp— If 廿=vbYes Then Down4.Tetx+…WHERE设置项=’记事提醒day”’) System.IO.File.Copy(to.Directory.GetCurrentDirectory +”klata ̄Myclient.mdb”,TextBox1.Text.True) 4结论 StatusBar1.Panels(O).Text=”备份完成” StatusBar1.Panesl(1).Text=”备份到文件:”+Mi— 为了实现客户信息的规范化、科学化和系统化管理,采用 crosoft.VisualBasic.Rihgt(TextBox1.Tetx,Len(TextBox1.Text)一In— Visual Basic.net[ 怍为前台应用开发工具,用ACCESS作为后 StrRev(TextBox1.Text,”、¨)) 台数据库,开发了客户信息管理系统。该系统实现了客户、联系 Else 人、产品销售及联系活动等信息的高效管理,为辅助决策提供 StatusBar1.Panesl(0).Text=”备份” 了客户信息查询、统计分析、客户评价和客户关怀等技术支持。 StatusBar1.Panesl(1).Text=”备份未成功.” 提高了企业的管理水平和决策质量,增强了企业的市场竞争 End If 力。实际应用表明系统运行平稳,安全,可维护性好。 End If 参考文献: 3.4信息定制 【1】李海,龚学纲,李文亮.深入研究Visual Basic.NET[M】.北京:电子 信息定制代码如下,该模块调用了存储过程update(): 工业出版社2003. newData(”UPDATE[设置内容】SET内容=…+checkl+… 【2】罗斌.VB.NET精彩编程实例集锦【M】.北京:中国水利水电出版 WHERE设置项=’生13提醒”’) 社,2006. newDam(”UPDATE【设置内容】SET内容=…+check2+”’ 【3】康祥顺,蔡宏,张小丽.VB.NET案例开发集锦 】.北京:电子工 WHERE设置项=’联系活动”’) 业出版社。2005. newData(”UPDATE【设置内容】SET内容=”’+cheek3+”。 Customer Information Management System CHENLuan ,CHENChi。 (1.College ofAutomation Engineering,University ofElectronic Science and Technology ofChina,Chengdu 610054,China;2.Shanghai Fire Research Institute fO PSM,Shanghai 200030,China) Abstract:Customers are the life of enterprises.It is an importnat safeguard of sustianable development for the enterprises to enhance CUS— tomers’F ̄I-qice quality.To improve customer information resources management and enhance enterprises’COl'e competiitveness,a customer information management system is developed by using VB.NET.The system consists of system management module,customer management module,decision support module and supporting tools etc.It can manage customer ifnormation in a standardized,scientific and systematic way.Practice showsthatthe systemis convenientand hasgoodperformance. Key words:Customer ifnormation management;VB.NET;Database 95
因篇幅问题不能全部显示,请点此查看更多更全内容