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