【正文】 39。 amp。 Trim() amp。 39。 STRTEMP, CON If = 0 Then If = 普通用戶 ThenSTRTEMP = insert into suser (yhdm,yhxm,spassword,spower,xsrw) values (39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。, 39。 amp。 Trim() amp。 39。, 39。139。, + CStr(Trim()) + ) Else STRTEMP = insert into suser (yhdm,yhxm,spassword,spower,xsrw) values ( 39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。, 39。 amp。 Trim() amp。 39。, 39。239。, + CStr(Trim()) + ) End If STRTEMP, CON MsgBox 添加銷售人員成功, vbOKOnly, 提示 Else MsgBox 該銷售人員代碼已經(jīng)存在,請重新確認, vbOKOnly, 錯誤 End If Else MsgBox 銷售人員數(shù)據(jù)不能為空,請重新錄入, vbOKOnly, 錯誤 End If Else MsgBox 登錄密碼錯誤,請重新核實, vbOKOnly, 錯誤End IfEnd Sub（2） 刪除銷售人員模塊進入刪除銷售人員界面，可以將已有權(quán)限的使用者信息調(diào)出，如果要刪除，選中此條記錄，點擊“刪除”即可，代碼如下：Private Sub Command1_Click()If MsgBox(是否刪除該銷售人員?, vbOKCancel, 警告) = vbOK ThenSTRTEMP = DELETE FROM SUSER WHERE YHDM=39。 amp。 FJ amp。 39。 STRTEMP, CONSTRTEMP = select yhdm as 分機,yhxm as 姓名, Spassword as 密碼,Spower as 級別,XSRW AS 銷售任務(wù) from suser STRTEMP, CONSet = End IfEnd Sub（3） 修改銷售人員密碼模塊修改銷售人員密碼功能模塊是對“管理員”和“普通用戶”兩種權(quán)限共同開放的界面，只是用做密碼修改，將新密碼替代原密碼，密碼的更新為了系統(tǒng)的安全保密性。代碼實現(xiàn)：Private Sub Command1_Click()If Trim() = Trim() And ThenSTRTEMP = SELECT YHDM FROM SUSER WHERE YHDM=39。 amp。 SYHDM amp。 39。 AND SPASSWORD=39。 amp。 Trim() amp。 39。 STRTEMP, CONIf 0 Then STRTEMP = UPDATE SUSER SET SPASSWORD=39。 amp。 Trim() amp。 39。 WHERE YHDM=39。 amp。 SYHDM amp。 39。 STRTEMP, CONMsgBox 修改密碼成功,請選擇新密碼登錄, vbOKOnly, 提示 Else MsgBox 銷售人員舊密碼錯誤,無法修改密碼, vbOKOnly, 錯誤End IfElseMsgBox 新密碼與確認密碼不一致,請重新核實新, vbOKOnly, 修改密碼錯誤End IfEnd Sub4 客戶信息管理模塊代碼設(shè)計客戶信息管理模塊主要實現(xiàn)如下一些功能：添加客戶信息查詢客戶信息編輯客戶信息下面依此對這些功能模塊進行代碼設(shè)計，首先是添加客戶信息模塊代碼設(shè)計。（1） 添加客戶信息模塊添加客戶信息模塊主要是向數(shù)據(jù)庫添加一條新的客戶信息記錄，在此模塊中會調(diào)用三個基本表和一個應(yīng)用表—客戶信息表，將所有客戶信息記錄完成后，并加以“保存”，系統(tǒng)會自動分配客戶ID號，同時系統(tǒng)還會提示“是否添加新的銷售信息”，可以直接進入“添加銷售信息”模塊，具體操作代碼如下：Private Sub Command1_Click()If And And And And And And And Then Call CADDRESSSTRTEMP=INSERT INTO CUSTORMER (COMPAY,NAME,TELPHONE,mobile,,ADDRESS,ZIP,property,trade,scope,scalar,CITY,kfrq,yhdm) VALUES ( _ amp。 39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。, _ amp。 39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 STRCHK amp。 39。,39。 amp。 Date amp。 39。,39。 amp。 SYHDM amp。 39。) STRTEMP, CON CUSTORMER, CONSKHID = Trim((0).Value) = SKHID = TrueSCOMPANY = Trim()STEMP = 添加客戶信息成功,客戶ID為: + SKHIDMsgBox STEMP, vbOKOnly, 提示SCOMPANY = Trim()If MsgBox(是否添加銷售信息, vbOKCancel, 提示) = vbOK ThenUnload MeLoad Form4End IfElseMsgBox 客戶數(shù)據(jù)不完整,請核實, vbOKOnly, 錯誤End IfEnd Sub （2） 查詢客戶信息模塊通過客戶ID或者客戶的公司名稱來查詢客戶的信息，如果不輸入任何查條件，則系統(tǒng)會將所有的用戶顯示出來。主要代碼如下：Private Sub Command1_Click()Set RS1 = New = adOpenStatic = adUseClient = adLockBatchOptimisticstrQuery = select ID AS 客戶ID,COMPAY AS 公司名稱,NAME AS 聯(lián)系人,TELPHONE AS 電話,mobile AS 手機, AS 電子郵箱,ADDRESS AS 地址,ZIP AS 郵編, _ amp。 property AS 企業(yè)性質(zhì),trade AS 所屬行業(yè),scope AS 人員規(guī)模,scalar AS 分支數(shù)量,CITY AS 分布城市 from CUSTORMER where 1=1 If ThenSTRTEMP = strQuery amp。 and ID = + CStr(Trim())End IfIf ThenSTRTEMP = strQuery amp。 and COMPAY = 39。 amp。 Trim() amp。 39。End IfIf = 0 And = 0 ThenSTRTEMP = select ID AS 客戶ID,COMPAY AS 公司名稱,NAME AS 聯(lián)系人,TELPHONE AS 電話,mobile AS 手機, AS 電子郵箱,ADDRESS AS 地址,ZIP AS 郵編, _ amp。 property AS 企業(yè)性質(zhì),trade AS 所屬行業(yè),scope AS 人員規(guī)模,scalar AS 分支數(shù)量,CITY AS 分布城市 from CUSTORMER End If STRTEMP, CONIf = 0 ThenMsgBox 無任何信息記錄, vbOKOnly, 查詢信息End If = TrueSet = = TrueEnd Sub特殊情況下一個客戶可以產(chǎn)生多個銷售訂單，在查詢到的客戶信息上可以直接添加銷售信息，將會大大提高訂單錄入的效率。在查詢到的客戶信息上雙擊鼠標，可進入“添加銷售信息”模塊，代碼：Private Sub DataGrid1_DblClick()If 0 ThenIf MsgBox(是否對該客戶添加銷售信息?, vbOKCancel, 提示) = vbOK ThenSKHID = RS1!客戶IDSCOMPANY = RS1!公司名稱Unload MeLoad Form4End IfEnd IfEnd Sub（3） 編輯客戶信息模塊通過輸入客戶的ID或者客戶公司名稱來編輯客戶的信息，該客戶只能是該銷售人員開發(fā)的客戶，非本人開發(fā)的客戶是不能進行編輯。而且銷售人員只能修改該客戶的部分信息，而不能修改該客戶的ID和公司名稱。先查詢客戶信息，代碼：Private Sub Command1_Click()Set RS1 = New = adOpenStatic = adUseClient = adLockBatchOptimistic = = = = = = = = = = = = FalsestrQuery = select ID AS 客戶ID,COMPAY AS 公司名稱,NAME AS 聯(lián)系人,TELPHONE AS 電話,mobile AS 手機, AS 電子郵箱,ADDRESS AS 地址,ZIP AS 郵編, _ amp。 property AS 企業(yè)性質(zhì),trade AS 所屬行業(yè),scope AS 人員規(guī)模,scalar AS 分支數(shù)量,CITY AS 分布城市 from CUSTORMER where 1=1 and yhdm=39。 amp。 SYHDM amp。 39。If ThenSTRTEMP = strQuery amp。 and ID = + CStr(Trim())End IfIf ThenSTRTEMP = strQuery amp。 and COMPAY = 39。 amp。 Trim() amp。 39。End IfIf = 0 And = 0 ThenSTRTEMP = select ID AS 客戶ID,COMPAY AS 公司名稱,NAME AS 聯(lián)系人,TELPHONE AS 電話,mobile AS 手機, AS 電子郵箱,ADDRESS AS 地址,ZIP AS 郵編, _ amp。 property AS 企業(yè)性質(zhì),trade AS 所屬行業(yè),scope AS 人員規(guī)模,scalar AS 分支數(shù)量,CITY AS 分布城市 from CUSTORMER where yhdm=39。 amp。 SYHDM amp。 39。End If STRTEMP, CONIf = 0 ThenMsgBox 無任何信息記錄或該用戶并非你開發(fā)的用戶, vbOKOnly, 查詢信息End If = TrueSet = End Sub在已有客戶信息基礎(chǔ)上進行修改，并保存更改后信息，代碼實現(xiàn)：Private Sub Command2_Click()If MsgBox(是否更改用戶信息?, vbOKCancel, 警告) = vbOK Then STRTEMP = UPDATE CUSTORMER SET NAME=39。 amp。 Trim() amp。 39。,TELPHONE=39。 amp。 Trim() amp。 39。,mobile=39。 amp。 Trim() amp。 39。,=39。 amp。 Trim() amp。 39。 ,ADDRESS=39。 amp。 Trim() amp。 39。,ZIP=39。 amp。 Trim() amp。 39。, _ amp。 property=39。 amp。 Trim() amp。 39。 ,trade=39。 amp。 Trim() amp。 39。,scope=39。 amp。 Trim() amp。 39。,scalar=39。 amp。 Trim() amp。 39。,CITY=39。 amp。 Trim() amp。 39。 WHERE ID= + CStr(str1) STRTEMP, CONSTRTEMP = select ID AS 客戶ID,COMPAY AS 公司名稱,NAME AS 聯(lián)系人,TELPHONE AS 電話,mobile AS 手機, AS 電子郵箱,ADDRESS AS 地址,ZIP AS 郵編, _amp。 property AS 企業(yè)性質(zhì),trade AS 所屬行業(yè),scope AS 人員規(guī)模,scalar AS 分支數(shù)量,CITY AS 分布城市 from CUSTORMER WHERE ID= + CStr(str1) STRTEMP, CONSet = End IfEnd Sub5 銷售信息管理模塊代碼設(shè)計銷售信息管理模塊主要實現(xiàn)如下一些功能：添加銷售信息查詢銷售信息編輯銷售信息下面