【正文】 LblModify_Click() = True = (0) 39。 Private Sub LblDelete_Click() Dim TempBusinessmanID As String 39。彈出刪除確認對話框 If MsgBox(是否刪除“ + (1) + ” ?, vbYesNo, 確認 ) = vbYes Then (TempBusinessmanID) MsgBox 刪除成功 End If Refresh_Businessman End Sub 首先從 Adodc1 的記錄集中取出 供應商編號，然后彈出刪除確認框，如果選擇確定，則調(diào)用MyBusinessman 對象的 Delete 方法進行刪除，函數(shù)調(diào)用參數(shù)為儲存供應商 ID 的TempBusinessmanID。 ⑤ 刷新窗口的函數(shù) 刷新函數(shù)在以上幾個函數(shù)操作時將被調(diào)用，其作用是刷新用于顯示的 DataGrid 信息，刷新方法是通過刷新 Adodc 控件來實現(xiàn)的。 ⑥ 響應返回按鈕單擊事件 單擊返回按鈕將退出窗體 23 Private Sub LblBack_Click() Unload Me End Sub 供應商信息編輯窗體設計 供應商編輯窗體界面設計 新建一個窗體并命名為 FrmBusinessmanEdit，在這個窗體上設計供應商信息編輯界面，本窗體的設計界面如下圖所示： 供應商信息編輯窗體代碼設計 ① 定義窗體級變量： Modify 變量將保存供應商管理界面?zhèn)鬟f過來的信息，如果是修改操作則 Modify 為 True，如果是添加操作則為 False， OriBusinessmanID 用于保存待修改的供應商編號 信息。 Private Sub LblOK_Click() 39。判斷操作是添加還是修改 If Modify = False Then 39。判斷銷售員 ID 是否已經(jīng)存在 If .In_DB() = True Then MsgBox 客戶代號重復，請重新設置 = 0 = Len(TxtBusinessmanID) Exit Sub Else .Insert 39。判斷為修改操作 .Update (OriBusinessmanID) MsgBox 修改成功 End If End With Unload Me End Sub 首先通過判斷窗體級變量 Modify 的取值來得到操作是修改還是添加，如果是添加操作則首先判斷待添加的供應商編號是否已經(jīng)存在于數(shù)據(jù)庫，判斷使用 in_DB 方法，如果供應商編號已經(jīng)存在則必須重新設置，如果不存在則調(diào)用 Insert 方法完成添加操作，如果判斷為修改操作則不用調(diào)用 in_DB 方法，直接調(diào)用 Update 方法即可完成修改操作。 Private Function Check() As Boolean If Trim(TxtBusinessmanID) = Then MsgBox 請輸入客戶代號 Check = False Exit Function End If If Trim(TxtBusinessmanName) = Then MsgBox 請輸入客戶名稱 Check = False Exit Function End If Check = True End Function 25 ④ 相應取消按鈕單擊事件 Private Sub LblCancel_Click() Unload Me End Sub ：購貨商管理相關界面設計 購貨商管理窗體可完成對購貨商信息的管理工作，包括瀏覽所有的購貨信息，通過添加，修改，刪除等功能鍵實現(xiàn)對購貨商信息的 管理工作，以便客戶管理部門的管理員能夠具有一個管理購貨商信息的平臺。 送貨地信息編輯窗體則具體完成對購貨商各個送貨地點信息的添加和修改工作，如果是添加狀態(tài)，在該窗體上可以添加一個新的送貨地資料，同時當進入窗體為修改狀態(tài)時，可以方便地在窗體中修改送貨地資料中地各項信息，接下來將介紹這 3 個窗體地創(chuàng)建過程。在這個窗體上設計購貨商管理界面，本窗體地設計界面如下： 該窗體上的主要控件及其屬性設置如表所示： 對象 屬性 設置 Form Name FrmBusinessman Caption ERP客戶管理系統(tǒng) StartupPosition 2屏幕中央 BorderStyle 3Fixed Dialog Label Name Label1 Caption 購貨商信息 Adodc Name Adodc1 Visible False Label Name Lb1Add Caption 添加 Label Name Lb1Modify 26 Caption 修改 Label Name Lb1Delete Caption 刪除 Label Name Lb1Back Caption 返回 DataGrid Name DataGrid1 此外，在 DataGrid1 上單擊右鍵，然后選擇編輯屬性，可以為 DataGrid 添加與數(shù)據(jù)庫中列名對應的列頭信息。 ：購貨商信息編輯窗體設計 購貨商信息編輯窗體界面設計 新建一個窗體并命名為 FrmCustomerEdit，在這個窗體上設計購貨商信息編輯界面，本窗體的設計界面如下： 該窗體設計過程和事件代碼和供應商信息編輯窗體設計類似，這里不再介紹。 商業(yè)交往 管理相關界面設計 商業(yè)交往管理窗體可進行對商業(yè)交往信息的管理工作，包括瀏覽所有的商業(yè)交往信息，通過添加，修改，刪除等功能鍵實現(xiàn)對商業(yè)交往信息的管理工作，以便客戶管理部門的管理員能夠具有一個管理商業(yè)交往信息的平臺。 接下來將介紹這二個窗體的創(chuàng)建過程。 28 商業(yè) 交往管理窗體的代碼設計 該窗體和前面的供應商管理和購貨商管理窗體相比，多一個 DTPicker 控件，所以在代碼設計時在窗體加載設計如下代碼，自動設置時間下拉選擇單的時間為當前時間。 商業(yè)交往信息編輯窗體設計 1：新建一個窗體并命名為 FrmBusiEdit，在這個窗體上設計貨號清單信息編輯界面，本窗體的設計界面如圖所示： 商業(yè)交往信息編輯窗體代碼設計 該窗體代碼設計和前面供貨商信息編輯窗體代碼設計基本類似，不同的有下列事件代碼： 1： 響應客戶類型下拉框的單擊事件： Private Sub CmbClientType_Click() If = 供應商 Then = select BusinessmanID as 客戶 ID,BusinessmanName as 客戶名稱 ,Country as 國家 ,Province as 省份 ,City as 城市 ,Address as 地址 ,Linkman as 聯(lián)系人 ,Telephone as 電話 ,Fax as 傳真 from Businessman Else = select CustomerID as 客戶 ID,CustomerName as 客戶名稱 ,Country as 國家 ,Province as 省份 ,City as 城市 ,Address as 地址 ,Linkman as 聯(lián)系人 ,Telephone as 電話 ,Fax as 傳真 from Customer End If Set = Adodc1 = = = End Sub 從代碼中可見， Adodc1 的連接字符串信息將根據(jù)系統(tǒng)常量 Server、 User 和 Password 來填充，這些信息同樣也來自設置 ini 文件時獲取的參數(shù)， Adodc 的 RecordSource 為 SQL 語句，如果選擇的是供應商則用于獲得 Businessman 表中的記錄，如果選擇的是購貨商則用于獲得Customer 表中的記錄，然后將 DataGrid1 的 DataSource 設置為 Adodc1，這樣在 DataGrid1中就可以顯示 Buyer 表中的信息了。 29 Private Sub DataGrid1_Click() If 0 Then = (0) = (1) = (6) = True = True End If End Sub 代碼實現(xiàn)的功能是將客戶信息添加到窗口指定的顯示控件中。在數(shù)據(jù)環(huán)境器上添加一個名為 Client的連接。 數(shù)據(jù)報表設計 在工程資源管理器窗口單擊右鍵添加一個 Data Report。報表窗體的布局如圖所示： 30 購貨商查詢報表設計和商業(yè)交往查詢報表設計和上面類似，這里就不再介紹。由于在編寫代碼的過程中不可避免的會出現(xiàn)錯誤，因此，在軟件投入使用前，必須糾正其中的大部分錯誤，否則，這些錯誤遲早會在運行的過程中暴露出來，造成很惡劣的后果。 2． 讀者對象：軟件設計人員，開發(fā)人員，測試人員，管理人員。 單元測試的目的就是保證軟件的每個單元能夠保證正確的運行。 2． 子系統(tǒng)測試 子系統(tǒng)測試是把經(jīng)過的單元測試的模塊放在 一起形成一個子系統(tǒng)來測試。 3． 組裝測試 組裝測試是把經(jīng)過測試的子系統(tǒng)裝配成一個完整的系統(tǒng)，使整個系統(tǒng)可以運轉(zhuǎn)起來。 測試條件 測試可在 Windows 9x/NT/2020 平臺下進行，軟件環(huán)境為 ； 測試準則 在整個測試過程中應遵循以下準則： 1． 公正、嚴密、審慎的工作態(tài)度 2． 協(xié)作精神 3． 積極調(diào)試，力圖使軟件更完善 31 第六章 運行與維護 系統(tǒng)運行與維護期是軟件持續(xù)不斷地滿足用戶需要的過程，系統(tǒng)交付后，用戶使用該系統(tǒng)會有一個熟悉過程，在使用過程中也會發(fā)現(xiàn)一些軟件的錯誤或提出新的要求，開發(fā)人員應排除軟件錯誤，并在保證系統(tǒng)可靠運行的條件下，改進軟件滿足用戶的要求。 系統(tǒng)運行一段時間后，系統(tǒng)可能出現(xiàn)某些意想不到的故障，或用戶提出一些改進與完善的意見，開發(fā)人員必須排除故障，并在條件允許的情況下（不影響全系統(tǒng)穩(wěn)定運行），根據(jù)用戶提出的改進和完善意見，做必要 的改進。 制定運行和 維護的方法 任何軟件都不是十全十美的，總會有缺陷和錯誤。 1． 軟件文檔的保管與補充 軟件文檔的保存對以后的軟件修正維護至關重要，失去軟件文檔將無法對軟件進行改進、修正和維護。 2． 保留開發(fā)環(huán)境 如果軟件需要修改或補充，就必須保留開發(fā)環(huán)境，在開發(fā)環(huán)境中進行軟 件的補充和修改。當修改的補充的次數(shù)到達一定的數(shù)量時，就應該考慮對軟件的版本號進行升級，以表示軟件在使用運行中不斷完善的成果。它是軟件在交付使用后，為了改正錯誤或滿足新的需求而修改軟件的過程，可以提高系統(tǒng)的可維護性和延長系統(tǒng)壽命 。這樣做可以大大提高系統(tǒng)的可用性、可維護性和可靠性，系統(tǒng)的壽命也隨之延長； 4． 注意寫好運行和維護記錄，編制系 統(tǒng)修改完善說明書。其開發(fā)過 程 雖然辛苦，但換回的收獲頗豐。 1. 系統(tǒng)設計：即系統(tǒng)總體設計，它是建立在詳細地定義用戶需求的基礎之上； 2. 系 統(tǒng) 實現(xiàn)：按照總體設計，為每個功能模塊編寫代碼； 3. 系 統(tǒng) 運行和維護。 系統(tǒng)設計 系統(tǒng)實現(xiàn) 系統(tǒng)運行和維護 33 圖 91 應用軟件開發(fā)流程圖 應該說，總體設計占據(jù)了整個畢業(yè)設 計的大部分時間。 在畢業(yè)設計之前， 本人 對數(shù)據(jù)庫前臺開發(fā)工具 —— 知之甚少。 通過這次設計，我深深體會到通過做 某一具體的課題項目來掌握一項開發(fā)工 具 的重要性和有效性。管理信息系統(tǒng)（ MIS）的實現(xiàn)是對這一目標實現(xiàn)的最有效最強大的支持。其安全性、穩(wěn)定性、準確性固然要好，同時還要具備一些強 大 的性能，如實時處理事務能力、參與網(wǎng)絡管理的能力等。值得慶幸的是，我對這一領域并不是一無所知，相反還積累了一定的經(jīng)驗。 。 要想企業(yè)建設走在時代的前列，建設 Browse/Server 的企業(yè)新型管理信息系統(tǒng)是必然趨勢。 采用該模式的好處： 1)客戶端只需安裝一個標準的 Web 瀏覽器，其它的應用程序都存儲在 Web 服務器上，需要時才下載； 2)因客戶端無需專用軟件，當 對網(wǎng)絡 應用進 行升級 時，只 需更新 服務器 軟件， 易于管 理和維 護； 3)B/S模式由于采用標準的 TCP/IP 技術、 HTTP 協(xié)議，它與現(xiàn)有網(wǎng)絡很好結(jié)合， 開放性好，信息共享度高； 4)開發(fā)效率高，周期短； 5)擴展性好，可直接接入Inter。 從課題選擇、方案論證到具體設計和調(diào)試，無不凝聚著老師的心血和