客户管理信息系统论文

苏播大学毕设说书课题企业客管理信息系统班姓学

级：常州电大开放02春计算机名：陈正伟号：027020115指导教师：职

称：二OO四年十二月1

录····················十四、毕业计小结十五考文献

2

企业客户管理信系一应用背景但中间就当仅仅如果有一个可将能够为修改信息信息3

二：系统设计1

实总结出这个系统最终●●●

包括修改企业信息查、模块设计A：添加个人信息：包括个人的姓名、性别、年龄、生日4

BC：查A：添加企业信息：包括公司名称、所在国家、主要经营BC：查DA：发送电子邮件：发送电子邮件给客户。B企业客户管理系统个人信息管理

企业信息管理

工具

系统添加个人

修改个人

查询个人

添加企业

修改企业

查询企业

删除企业

发送电子

数据管理

添加用户

修改密码信息

信息

信息

信息

信息

信息

信息

邮件5

三：数据库设计本课题选用Access2000作为后台数据库。1、数据库需求分析

等。2、数据库的实现Access2000,Client.mdb,保ID

6

dealdominsymbiosisaddressfaxremark

IDbrithdaycompanyaddress

期/时间7

faxnumberemail

四、建立公共模块Visual后“标项按VisualBasic这在本并且选择要保存这个工程的目录，单击“保存”按钮，保执行一系的。是MDI量:PublicAsString'用户8

PublicAsInteger'是否连接成PublicichangeFlagAs'修PublicAsString'传SQL字PublicFunctiongetRS(ByValAsString)AsAsADODB.ConnectionrsAsstrConnectioncon='创=NewADODB.Recordset'getRS_Error&App.Path&"\"strConnectionstrConnection&"Client.mdb"=Split(sql)con.OpenstrConnection打rs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimisticgetRS=rs=9

getRS_Exit:=Nothingcon=Nothing"查询错误："&Err.Description=getRS_ExitEndFunctionSQL语句的函数：PublicTransactSQL(ByValAsString)AsADODB.ConnectionstrConnectioncon='TransactSQL_ErrorstrConnection&App.Path&"\"

="Provider=Microsoft.jet.oledb.4.0;DatastrConnectionstrConnection&"Client.mdb"=Split(sql)con.OpenstrConnection打10

'执=TransactSQL_Exit:con=NothingTransactSQL_Error:"查询错误："&Err.Description=TransactSQL_ExitEndPublicAsInteger)IfKey=13判"{TAB}"'为EndIfEndAsNewfrmLoginEnd11

五、建立主窗体1、添加主窗体加MDI窗加MDIMDI2：添加菜单3、添加代码主窗体中的代码不多基本上都是实现单击某个菜单选项即相应窗体的语句，这些语句将分别在各个窗体中介绍。选择“系统管理”→“退出系统”菜单，关闭系统，代码如下：12

Menu_Exit_Click()'出系统UnloadExitSub选择“文件”→“保存frmMain.frm”菜单。六、登录窗体的建立1、添加窗体2、添加控件为这个窗体添加个标签（来标识窗体中13

的信息个文本（输入用户名称和用户密码；2个按钮（用来确定或者取消操作。3、添加代码输入用户名称和密码后单“确定按钮入系统，代码如下：PrivateSubcmdOK_Click()sqlrsAsIfTrim(UserName.Text="")Then"有输入用户称请新输！",vbOKOnly+"警"UserName.SetFocusElse'查sql="select*&UserName.Text&"'"=Ififlag=1If=True"没有这个用户，请重新输入！vbOKOnly+"警"UserName.SetFocus14

ElseIfTrim(rs.Fields(1))=Trim(PassWord.Text)ThenMe.Hide='保frmMain.ShowElse"！",vbOKOnly+"警"PassWord.Text=""EndIfEndIfElseEndIfEndIfpwdCount'判

=+115

IfpwdCount=EndIfEnd七、建立添加用户窗1、添加窗体2、添加控件3个标签、个文和个命令按钮。3、添加代码16

PrivateSubcmdOK_Click()sqlrsAsIfTrim(UserName.Text)=""Then"请输入用户名!",vbOKOnly+vbExclamation,"警告"UserName.SetFocusElsesql*where&UserName&"'"=Ifrs.EOF'判"这个用户已经存在！请重新输入用户名称vbOKOnly+vbExclamation,"警"UserName.SetFocusUserName.Text=""PassWord.Text=""confirmPWD.Text=""ElseIfTrim(PassWord.Text)<>Trim(confirmPWD.Text)17

"两次输入的密码不一致，请重新输入密码vbOKOnly+vbExclamation,"警"PassWord.Text=""confirmPWD.Text=""Trim(PassWord.Text)""'判"密码不能为空！",vbOKOnly+vbExclamation,"警"PassWord.Text=""=""Else

sql=into(UserID,UserPWD)&UserNamesql&&PassWord&"')"Call"添加成功",vbOKOnlyvbExclamation,"添加结果"'重UserName.Text=""PassWord.Text=""18

confirmPWD.Text=""UserName.SetFocusEndIfEndIfEndIfEnd八、建立修改密码1、添加窗体2、添加控件了3；个按钮，用来确定和取消操作。19

3、添加代码2PrivateSubcmdOK_Click()sqlrsAsIfTrim(OldPWD.Text)=""Then判断是否输入旧密码"请vbOKOnly+vbExclamation,"警告"ElseIf=""'判"请输入新密码！",vbOKOnly+vbExclamation,"警"ElseIfTrim(NewPWD.Text)<>Trim(ConfirmPWD.Text)'判"两！vbOKOnlyvbExclamation,"警告"20

NewPWD.Text=""=""Elsesql="updatesetUserPWD'"&&sql&strUserName&"'"Call"密vbOKOnlyvbExclamation,"果"EndIfEndIfEnd九、建立个人信息窗1、加窗体21

2、添加控件和3：添加代码Private'sqlrsAsNewADODB.RecordsetAssql*orderbyID"=If=Truenum=1Elsenum=rs(0)+EndIf="C"&+7)Me.textClientID=End22

Private载入时获得公司信DimsqlAsStringDimrsNew=*byID"=Ifrs.EOF=ThenWithWhileNotrs.EOFrs(1)rs.MoveNextWendWithExitIfSubPrivateSubComName_LostFocus()sql23

rsAsNewADODB.Recordsetsql=*fromComName='"&&"'"=If==rs(4)=Me.textCityrs(3)Me.textSymbiosis==Me.textComTel=rs(7)Me.textComFax=rs(8)Me.textRemark=rs(9)ElseMe.textDomain.SetFocusEndIfEndPrivateSubcmdOK_Click()24

sqlrsAsNewADODB.RecordsetbinputFlag=FalseCallIf=TrueIfichangeFlag=1ThenCallCalladdPersonCallcreateNumCallinitElsesql=*whereComName='"&&"'"=If=TrueCallEndIfsql="updatesetClientName='"&&"',Gender='sql&MGender.Text&&Me.textAgesql&",Company='"&sql=sql&&&"',Address='"&25

sql&"',Code='"&&"',Tel='"&sql&"',MobileTel='"&Me.textMobileTel&"',FaxNumber='"sql&Me.textPerFax&"',Email='"&&"'"If<>""sql&&Me.textBirthday&EndIfsql&"where&Me.textClientID&"'"Call'修改个人信"已",vbOKOnly+vbExclamation,"提示"sql*ClientID='"&&"'"CallfrmPerResult.showTopicCallEndIEndIfEnd数addPerson()代PrivateaddPerson()sql26

rsAsNewADODB.Recordsetsql*fromwhereClientName='"&sqlsql&"'&&"'sql&&"'"=If="已经",vbOKOnlyvbExclamation,"提"Elsers.AddNewrs.Fields(0)=rs.Fields(1)=Me.textClientIDrs.Fields(2)=Me.textNamers.Fields(3)=rs.Fields(4)=Me.textAgers.Fields(5)=Me.textBirthdayrs.Fields(6)=rs.Fields(7)=Me.textPositionrs.Fields(8)=Me.textAddressrs.Fields(9)=27

Me.textMobileTelMe.textEmailrs.Update"已经添加记录",vbOKOnlyvbExclamation,"提"EndIfEnd数添加如下PrivateaddCompany()

sqlrsAsNewADODB.Recordsetsql"select*from&&"'"=If=Elsers.AddNewrs.Fields(0)=28

rs.Fields(1)=rs.Fields(2)=rs.Fields(3)=Me.textCityrs.Fields(4)=Me.textDomainrs.Fields(5)=Me.textSymbiosisrs.Fields(6)=rs.Fields(7)=Me.textComTelrs.Fields(8)=rs.Fields(9)=Me.textRemarkrs.UpdateEndIfEnd十、查询个人信息窗的建立1、添加窗体个通体的下29

2、添加控件、、个文本框23、添加代码系统可根据公司名称和客户名称进行查找，也可不输入条件而查找所有记录，代码如下：PrivateSubcmdOK_Click()sqlStrin'语句IfMe.checkClientName.Value=vbCheckedAndMe.checkComName.Value=sql="select*fromwhereClientName='"&Me.textClientNamesql&"'andCompany='"&&"'"Me.checkClientName.Value=vbCheckedThensql="select*fromwhereClientName='"&Me.textClientName&"'"Me.checkComName.Value=sql="select*from30

where&

&"'"Elsesql*Personal"EndIfCallfrmPerResult.showTopic显CallEnd十一、建立弹出式菜1、添加窗体添加一个普通体，所有属性使用默认值，命名为frmPopmenu.2、添加菜单3、添加代码2个弹出式菜单的菜单项添加如下代码：31

PrivateDeclare"shell32.dll"Alias"ShellExecuteA"As_lpOperationAsString,lpFileAsString,As_lpDirectoryAsnShowCmdAsLong)AsPrivateSubForm_Load()EndPrivateSub添ichangeFlag=frmAddPer.ZOrderEndPrivateSub'ichangeFlag=If>1Then=*fromID="atrix(frmPerResult.MSFlexGrid1.Row,0))32

frmAddPer.Caption="修改客户信息"frmAddPer.cmdOK.Caption="修frmAddPer.ZOrderElse

""目息"vbOKOnlyvbExclamation,"警告"If息",vbOKCancel)=vbOKichangeFlag=frmAddPer.ZOrderEndIfEndIfEndPrivateSub'修IffrmComResult.MSFlexGrid1.Rows>=*fromwhereID="strPublicSQL=strPublicSQL&Trim(frmComResult.MSFlexGrid1.TextMatrix(0))frmCompany.ShowElse33

EndIfEndPrivateSubPopmenu_CheckClient_Click()frmCheckPerson.ZOrder0EndPrivateSubPopmenu_CheckCompany_Click()frmCheckCompany.Show0End

查询PrivateSubPopmenu_DelCompany_Click()sqlrsAsNewADODB.Recordsetsql="select*fromTrim(frmComResult.MSFlexGrid1.TextMatrix(frmComResult.MSFlexGrid1.Row,1))&"'"=If=