【正文】 模塊設(shè)計(jì)當(dāng)系統(tǒng)運(yùn)行時(shí)，首先打開(kāi)登錄窗體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。 設(shè)計(jì)登錄窗體 登錄窗體的名稱為 FrmLogin,其界面布局如圖 所示。圖 登錄窗體的界面布局 設(shè)計(jì)主界面主窗體是工程的啟動(dòng)對(duì)象，可以在系統(tǒng)菜單中選擇“工程”/“屬性” ，打開(kāi)屬性窗口設(shè)置啟動(dòng)對(duì)象。打開(kāi)主窗體的設(shè)計(jì)窗口，選擇“工具”菜單項(xiàng)中的“菜單編輯器”，對(duì)菜單內(nèi)容進(jìn)行編輯，如圖 所示。在主窗體 FrmMain 中添加如下代碼：沈陽(yáng)理工大學(xué)應(yīng)用技術(shù)學(xué)院學(xué)士學(xué)位論文14Private Sub Form_Load() 1End Sub 當(dāng)主窗體啟動(dòng)時(shí)，首先打開(kāi)“登錄”對(duì)話框。如果不能通過(guò)身份驗(yàn)證，則不能進(jìn)入系統(tǒng)。本系統(tǒng)的主界面如圖 所示。 基本信息管理模塊設(shè)計(jì)基本信息管理模塊包括問(wèn)題類別管理、問(wèn)題級(jí)別設(shè)置和客戶信息管理。 設(shè)計(jì)問(wèn)題類別信息管理窗體 問(wèn)題類別信息管理窗體的名稱為 FrmTypes。窗體 FrmTypes 的布局如圖 所示。圖 菜單編輯器沈陽(yáng)理工大學(xué)應(yīng)用技術(shù)學(xué)院學(xué)士學(xué)位論文15圖 售后服務(wù)管理系統(tǒng)主界面下面即窗體 FrmType 中部分過(guò)程的代碼。（1）全局變量變量 OriId 用來(lái)標(biāo)記當(dāng)前選擇的記錄的編號(hào)，變量 OriTypeName 用在修改類別名稱時(shí)記錄原類別編號(hào)；變量 nFlag 保存當(dāng)前編輯的信息類型， 0 表示問(wèn)題類別信息，1 表示問(wèn)題級(jí)別信息，2 表示客戶信息。圖 窗體 FrmType 的布局（2）Form_Load 過(guò)程。當(dāng)裝入窗體 FrmType 時(shí)觸發(fā) Form_Load 事件，對(duì)應(yīng)的代碼如下：Private Sub Form_Load() 39。刷新 DataList1 中的數(shù)據(jù)沈陽(yáng)理工大學(xué)應(yīng)用技術(shù)學(xué)院學(xué)士學(xué)位論文16 DataRefreshEnd Sub在此過(guò)程中將顯示所有的設(shè)備類別名稱。Adodc1 控件為 DataList1 控件提供數(shù)據(jù)源，它根據(jù)變量 nFlag 設(shè)置 SELECT 語(yǔ)句，讀取指定類型的數(shù)據(jù)。（3）Cmd_Add_Click 過(guò)程。在文本框中輸入新的類別名稱，單擊“添加”按鈕時(shí)觸發(fā) Cmd_Add_Click 事件，其相應(yīng)代碼執(zhí)行過(guò)程為：判斷輸入文本框是否為空；判斷數(shù)據(jù)庫(kù)中是否已經(jīng)存在此名稱。插入新記錄；刷新列表。（4）DataList_Click 過(guò)程。選擇數(shù)據(jù)列表中的記錄，在文本框中同時(shí)顯示此類別名稱。（5）Cmd_Modi_Click 過(guò)程。選擇類別名稱，在文本框中對(duì)其修改后，單擊“修改”按鈕觸發(fā)Cmd_Modi_Click 事件。其相應(yīng)代碼執(zhí)行過(guò)程為：判斷是否選擇了記錄；判斷新的類別名稱是否和舊的類別名稱相同；判斷數(shù)據(jù)庫(kù)中是否已經(jīng)存在此新的類別名稱；更新數(shù)據(jù)庫(kù)記錄。刷新類別列表。 （6）Cmd_Del_click 過(guò)程。選擇要?jiǎng)h除的類別名稱，用戶單擊“刪除”按鈕觸發(fā) Cmd_Del_Click 事件，其相應(yīng)代碼執(zhí)行過(guò)程如下：判斷是否選擇了記錄；確定是否刪除記錄；刪除類別信息；刷新類別列表。 問(wèn)題級(jí)別信息管理窗體問(wèn)題級(jí)別信息管理窗體也是 FrmTypes，只是公共變量 nFlag 的值為 1。 設(shè)計(jì)客戶信息管理窗體客戶信息管理窗體也是 FrmTypes，只是公共變量 nFlag 的值為 2。 在主界面中增加設(shè)置代碼當(dāng)選擇“基本信息管理”/“問(wèn)題類別管理”菜單時(shí)觸發(fā) nm_Type_click 事件，代碼如下：Private Sub mn_Type_Click() If = 0 Then = 1 = 問(wèn)題類別設(shè)置沈陽(yáng)理工大學(xué)應(yīng)用技術(shù)學(xué)院學(xué)士學(xué)位論文17 1 39。問(wèn)題類別管理 Else MsgBox 沒(méi)有權(quán)限 Exit Sub End IfEnd SubCurUser 對(duì)象中保存了當(dāng)前用戶的信息。 表示當(dāng)前用戶的類型，=0 表示系統(tǒng)管理員用戶。只有系統(tǒng)管理員用戶才能進(jìn)入問(wèn)題類別管理窗體。 售后服務(wù)管理模塊設(shè)計(jì)售后服務(wù)管理模塊包括問(wèn)題管理和客戶服務(wù)調(diào)查管理。 設(shè)計(jì)客戶問(wèn)題編輯窗體問(wèn)題信息編輯窗體的名稱為 FrmProblemEdit,窗體布局如圖 所示。圖 窗體 FrmProblemEdit 的布局窗體中使用 ADO Data 控件分別為客戶名稱、嚴(yán)重級(jí)別和問(wèn)題類型等 DataCombo控件提供數(shù)據(jù)源。下面即窗體中部分過(guò)程的功能。（1）公共變量。窗體中定義了兩個(gè)公共變量。變量 Modify 用來(lái)標(biāo)記當(dāng)前的數(shù)據(jù)庫(kù)訪問(wèn)狀態(tài)。當(dāng) Modify=True 時(shí)，表示修改已有的數(shù)據(jù)；當(dāng) Modify=False 時(shí)，表示插入新的數(shù)據(jù)。變量 OriProId 用于記錄當(dāng)前編輯的問(wèn)題編號(hào)。沈陽(yáng)理工大學(xué)應(yīng)用技術(shù)學(xué)院學(xué)士學(xué)位論文18（2）LoadData 過(guò)程。LoakData 過(guò)程的功能是分別設(shè)置 SELECT 語(yǔ)句，讀取客戶名稱、嚴(yán)重級(jí)別和問(wèn)題類型信息，并將它們顯示在相應(yīng)的組合框中。（3）Cmd_Ok_Click 過(guò)程。用戶單擊“確定”按鈕時(shí)觸發(fā) Cmd_Ok_Click 事件，程序首先對(duì)用戶輸入的數(shù)據(jù)進(jìn)行分析，確保數(shù)據(jù)的有效性。然后，程序?qū)浫氲臄?shù)據(jù)賦值到 MyPro 對(duì)象中，并調(diào)用 Insert 或 Update 方法將數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中。 設(shè)計(jì)客戶問(wèn)題提交窗體客戶問(wèn)題提交窗體可以把未處理的問(wèn)題提交給相關(guān)的經(jīng)理用戶。窗體名稱為FrmProSubmit，窗體布局如圖 所示。圖 FrmProSubmit 的布局下面即是窗體 FrmProSubmit 中部分過(guò)程的一些功能。（1）公共變量。變量 OriProId 用來(lái)標(biāo)記正在編輯問(wèn)題的編號(hào)，變量 OriEmpId表示選擇售后經(jīng)理的編號(hào)。（2）Form_Load 過(guò)程。當(dāng)載入窗體時(shí)觸發(fā) Form_Load 事件。程序從表 Users 中獲取 UserType=1 的用戶，即審批經(jīng)理用戶，然后將員工姓名作為數(shù)據(jù)源賦值到DataCombo 控件中。（3）Cmd_Ok_Click 過(guò)程。用戶單擊“確定”按鈕時(shí)觸發(fā) Cmd_Ok_Click 事件，程序首先在表 srvDespatch 中添加一條記錄，保存當(dāng)前的任務(wù)分配信息，然后將當(dāng)前問(wèn)題記錄的狀態(tài)更新為“提交” 。 設(shè)計(jì)客戶問(wèn)題管理窗體客戶問(wèn)題管理窗體的名稱為 FrmProblemMan,窗體中使用 ADO Data 控件和DataGrid1 控件來(lái)顯示問(wèn)題信息。窗體 FrmProblemMan 的布局如圖 所示。沈陽(yáng)理工大學(xué)應(yīng)用技術(shù)學(xué)院學(xué)士學(xué)位論文19圖 窗體 FrmProblemMan 的布局下面即是窗體中部分過(guò)程的代碼及功能。（1）Refresh_Problem 過(guò)程。Refresh_Problem 過(guò)程的功能是更新 ADO Data 控件的記錄源，從而刷新 DataGrid1 表格中顯示的問(wèn)題數(shù)據(jù)。在處理日期數(shù)據(jù)時(shí)，應(yīng)該注意數(shù)據(jù)的存儲(chǔ)格式。因?yàn)槿掌诘母袷诫S著系統(tǒng)設(shè)置的變化而變化，可以是“20220205” ，也可以是“202225”或“2022/2/5”等。在很多地方需要使用日期數(shù)據(jù)與匹配條件進(jìn)行比較，選擇符合條件的記錄，例如查看2022 年 2 月 5 日中所有的新建問(wèn)題等。不同的存儲(chǔ)格式會(huì)給這種比較帶來(lái)麻煩，所以要使用 Format()函數(shù)對(duì)日期格式進(jìn)行規(guī)范化。在 SELECT 語(yǔ)句中，使用到 3 個(gè) BaseInfo 表，它們分別用于提供客戶信息、問(wèn)題類別信息和問(wèn)題級(jí)別信息。窗體中使用 DTPicker 控件選擇日期。（2）Form_Load 過(guò)程。當(dāng)裝入窗體時(shí)觸發(fā) Form_Load 事件，其對(duì)應(yīng)的代碼如下：Private Sub Form_Load() 全部, 0 新建, 1 提交, 2 分配, 3 解決, 4沈陽(yáng)理工大學(xué)應(yīng)用技術(shù)學(xué)院學(xué)士學(xué)位論文20 = 0 39。把創(chuàng)建日期組合框 ComboDate 賦值為當(dāng)前日期 = Now = 1 = False 39。顯示當(dāng)前日期創(chuàng)建的所有未處理問(wèn)題 Refresh_ProblemEnd Sub客戶投訴的問(wèn)題有 4 種狀態(tài)，即新建、提交、分配和解決。（3）Cmd_Add_Click 過(guò)程。當(dāng)單擊“添加”按鈕時(shí)觸發(fā) Cmd_Add_Click 事件。程序?qū)⒋蜷_(kāi) FrmProblemEdit 窗體編輯新的問(wèn)題記錄。新記錄的狀態(tài)為“新建” ，創(chuàng)建時(shí)間為當(dāng)前的系統(tǒng)時(shí)間，創(chuàng)建人為當(dāng)前用戶。（4）Cmd_Modi_Click 過(guò)程。單擊“修改”按鈕時(shí)觸發(fā) Cmd_Modi_Click 事件，程序從 Adodc1 控件中讀取當(dāng)前記錄的各字段值，并賦值到 FrmProblemEdit 窗體的各個(gè)控件中顯示。（5）Cmd_Del_Click 過(guò)程。當(dāng)單擊“刪除”按鈕時(shí)觸發(fā) Cmd_Del_Click 事件，程序?qū)?Adodc1 控件中讀取當(dāng)前記錄的編號(hào)，然后再以編號(hào)為參數(shù)調(diào)用 過(guò)程，刪除指定的記錄。（6）Cmd_Despatch_Click 過(guò)程。當(dāng)單擊“提交”按鈕時(shí)觸發(fā)Cmd_Despatch_Click 事件，程序?qū)⒋蜷_(kāi) FrmProSubmit 窗體選擇負(fù)責(zé)此問(wèn)題的經(jīng)理。（7）DataGrid1_RowColChang 過(guò)程。當(dāng)選擇表格中不同的記錄時(shí)觸發(fā)DataGrid1_RowColChange 事件，只有新建狀態(tài)的問(wèn)題才能夠被修改、刪除和提交，提交后的記錄則只能查看。 設(shè)計(jì)客戶服務(wù)調(diào)查編輯窗體客戶服務(wù)調(diào)查編輯窗體的名稱為 FrmI