【導(dǎo)讀】段應(yīng)用程序的開發(fā)兩個方面。.對于前者要求建立起數(shù)據(jù)一致性和完整性，數(shù)據(jù)安全性好的。而對于后者則要求應(yīng)用程序功能完備，易使用等特點。企業(yè)客戶管理系統(tǒng)的對象是企業(yè)、企業(yè)化管理的事業(yè)單位。提供保存信息、修改信息，信息咨詢等服務(wù)。隨著市場競爭日趨激烈，如果能夠擁有更。多的客戶，將是企業(yè)長久生存的重要因素。息，確保信息的一致性。當(dāng)企業(yè)的客戶數(shù)量達(dá)到一個級別后，僅僅靠人力來維護(hù)龐大的客戶。本系統(tǒng)基本上能夠滿足現(xiàn)代企業(yè)客戶管理信息的需求，為不同企。業(yè)提供通用的需要維護(hù)的客戶信息。VisualBasic示Microsoft公司推出的Windows應(yīng)用程序開發(fā)工具。在VisualBasic中一方面繼承了Basic所具有的程序設(shè)計語言簡單。作為一種程序語言，VisualBasic具有豐富的數(shù)據(jù)類型和結(jié)構(gòu)化的程序結(jié)構(gòu)。還支持MicrosoftAccess,Btrieve,dBASE,MicrosoftFoxPro和Paradox等多種數(shù)據(jù)庫的訪問，并且支持動態(tài)數(shù)據(jù)交換，動態(tài)鏈接庫和對象的鏈接與嵌入技術(shù)。都是把數(shù)據(jù)分成一條一條的記錄，每個記錄占有相同的長度。

　　

【正文】 7． 9． 2 添加代碼 修改信息后，單極“修改”按鈕，系統(tǒng)會顯示修改后的記錄，實現(xiàn)代碼。 Private Sub cmdOK_Click() Dim sql As String sql = update Company set ComName=39。 amp。 amp。 39。,Country=39。 amp。 sql = sql amp。 39。,City=39。 amp。 amp。 39。,DealDomain=39。 amp。 amp。 39。, sql = sql amp。 Symbiosis=39。 amp。 amp。 39。,Address=39。 amp。 sql = sql amp。 39。,Tel=39。 amp。 amp。 39。,Fax=39。 amp。 sql = sql amp。 39。,Remark=39。 amp。 amp。 39。 where ID= amp。 iNum Call TransactSQL(sql) 39。修改記錄 MsgBox 已經(jīng)更改信息！ , vbOKOnly + vbExclamation, 提示 sql = select * from Company where ID= amp。 iNum Call 39。顯示修改結(jié)果 Call (sql) 0 Unload Me End Sub 7． 10 建立查詢公司信息窗體 7． 10． 1 添加窗體 在窗體中添加 2 個復(fù)選框、 2 個文本框、 2 個命令按鈕。 設(shè)計好的窗體如圖 20 圖 20 查詢企業(yè)信息 7． 10． 2 添加代碼 單擊“查找”按鈕，系統(tǒng)根據(jù)選擇的條件以及輸入的內(nèi)容開始查找記錄。選擇“經(jīng)營領(lǐng)域”復(fù)選框 時，系統(tǒng)可以根據(jù)輸入的內(nèi)容進(jìn)行模糊查詢。實現(xiàn)代碼如下： Private Sub cmdOK_Click() Dim sql As String If = vbChecked And = vbChecked Then sql = select * from Company where ComName=39。 amp。 amp。 39。 and sql = sql amp。 DealDomain=39。 amp。 amp。 39。 ElseIf = vbChecked Then sql = select * from Company where ComName=39。 amp。 amp。 39。 ElseIf = vbChecked Then sql = select * from Company where DealDomain like 39。% amp。 amp。 %39。 Else sql = select * from Company order by ID End If Call 39。顯示查詢結(jié)果 Call (sql) 0 Unload Me End Sub 7． 11 建立導(dǎo)出數(shù)據(jù)窗體 7． 11． 1 本窗體中使用了 CommondDialog 控件。數(shù)據(jù)表格是導(dǎo)出到 Excel，需要添加引用，選擇“工程” “引用”菜單，在引用窗體中選擇 Microsoft Excel Object Library項。設(shè)計好的窗體如圖 21. 圖 21 導(dǎo)出記錄窗體 7． 11． 2 添加代碼 單極“保存為”文本框右邊的按鈕，會提示用戶選擇保存路徑，代碼如下： Private Sub cmdPath_Click() = True On Error GoTo ErrHandler = cdlOFNHideReadOnly = All Files (*.*)|*.*|Excel Files amp。 _ (*.xls)|*.xls = 2 = strFilepath = 39。設(shè)置保存路徑 Exit Sub ErrHandler: Exit Sub End Sub 7． 12 建立彈出式菜單 7． 12． 1 選擇“工程 ” ? “添加窗體 ”命令，將窗體命名為 屬性選擇默認(rèn)。 7． 12． 2 使用菜單編輯器，為窗體編輯彈出式菜單。包括 popmenu 和 popmenu2 兩項，其中 popmenu 包括添加、修改、查詢客戶信息和發(fā)送電子郵件。 Popmenu2 包括修改、查詢、刪除企業(yè)信息。 7． 12． 3 添加代碼 Popmenu 中發(fā)送電子郵件實現(xiàn)代碼如下： Private Sub Popmenu_SendMail_Click() 39。發(fā)送電子郵件 Dim strAim As String Dim perjump As Integer Dim Address As String strAim = Trim((, 13)) If strAim Then Address = mailto: amp。 strAim 39。獲得電子郵件地址 perjump = ShellExecute(0amp。, vbNullString, Address, vbNullString, vbNullString, _ vbNormalFocus) Else MsgBox 沒有 Email 地址 , vbOKOnly + vbExclamation, 提示 End If End Sub ８ 系統(tǒng)的編譯和發(fā)布 在編寫代碼工程中，需要單獨調(diào)試每個窗體，系統(tǒng)實現(xiàn)后就是發(fā)布，首先是生成一個可以執(zhí)行的文件，把工程屬性標(biāo) 簽頁中的啟動對象設(shè)置為 Sub Main,然后選擇文件下的生成此 命令。使用 Visual 種的 Package amp。 Deployment Tools 制作安裝程序?qū)⑾到y(tǒng)進(jìn)行打包。 ９ 結(jié)束語 經(jīng)過一段時間的設(shè)計和開發(fā)，企業(yè)客戶管理系統(tǒng)基本開發(fā)完畢，本系統(tǒng)能完成對企業(yè)客戶信息的存儲、查詢，也能很方便的進(jìn)行數(shù)據(jù)更改和刪除等操作。但由于時間倉促和本人設(shè)計水平方面的原因，該系統(tǒng)還有很多不盡人意的地方，如用和界面不夠美觀，幫助系統(tǒng)不夠完善，出錯處理不夠等多方面 問題，這些都有待于進(jìn)一步改善。 致謝 雖然對 VB 編程有了一定的基礎(chǔ)，但實際操作起來，總會出現(xiàn)這樣那樣的問題，幸虧有老師和同學(xué)的幫助，才能順利完成。特別是靳民強(qiáng)老師在系統(tǒng)的整體規(guī)劃上給我提出了很多有意義的建議，讓我在系統(tǒng)的設(shè)計中融入自己的思想?？娤肌钯煌瑢W(xué)在程序的調(diào)試中給了我很多幫助，在此表示感謝。 參考文獻(xiàn) [1]中文 Access 2021 實用教程 作者： 合力工作室 清華大學(xué)出版社 1999 年 [2]中文 Visual Basic 編程基礎(chǔ) 作者： 宋偉 關(guān)建國 清華大學(xué)出版社 1999 年 [3]Visual 數(shù)據(jù)庫編程技術(shù) 作者： 董傳銀 北京希望點出版社 2021 年 [4]Access 2021 數(shù)據(jù)庫實用指南 作者： 廖疆星 黃一鳴 冶金工業(yè)出版社 2021 年 [5]軟件系統(tǒng)開發(fā)技術(shù) 作者：潘錦平、姚天昉 西安電子科技大學(xué)出版社 2021年 [6]數(shù)據(jù)庫系統(tǒng)概論 作者：薩師煊、王珊 高等教育出版社 2021年 [7]Visual Basic應(yīng)用技巧 作者：張毅 機(jī)械工業(yè)出版社 1999年