【導(dǎo)讀】濟(jì)運(yùn)營(yíng)模式轉(zhuǎn)向以服務(wù)為主的經(jīng)濟(jì)運(yùn)營(yíng)模式。改革開(kāi)放這么多年,中國(guó)的輕工業(yè)和農(nóng)。業(yè)都有了長(zhǎng)足的進(jìn)步,相比之下,中國(guó)的第三產(chǎn)業(yè)的發(fā)展就顯得有些緩慢了。體和老百姓的批評(píng)。Server2020為后臺(tái)數(shù)據(jù)庫(kù)開(kāi)發(fā)的專用于家電商場(chǎng)的售后服務(wù)管理系統(tǒng)。

　　

【正文】 31： 圖 31 用戶登陸流程圖 啟動(dòng) 系統(tǒng) 輸入用戶名 輸入密碼 進(jìn)入系統(tǒng) 登陸次數(shù) +1 登陸次數(shù) 3 退出系統(tǒng) 用戶名為空 密碼不正確 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 23 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 在初次 登陸 該系統(tǒng)時(shí)，系統(tǒng)將彈出主界面，用戶可以在系統(tǒng)管理子菜單下的用戶管理中添加或刪除用戶。 登陸 界面如圖 32： 圖 32 系 統(tǒng)管理模塊的設(shè)計(jì)實(shí)現(xiàn) 系統(tǒng)管理模塊主要是對(duì)系統(tǒng)的相關(guān)參數(shù)進(jìn)行設(shè)置，它是整個(gè)系統(tǒng)運(yùn)的前提保證。該模塊包括三個(gè)部分：修改密碼，用戶管理，退出系統(tǒng)。 修改密碼模塊 修改系統(tǒng)用戶的密碼，在 Frame 控件中放置 4 個(gè) Lebal,3 個(gè) TextBox 和一個(gè)ComboBox,再在總窗體中放置兩個(gè) CommandButton。 界面如圖 33： 圖 33 用戶管理模塊 該模塊是對(duì)該系統(tǒng)的用戶進(jìn)行管理，包括用戶注冊(cè)與用戶刪除。 1. 用戶注冊(cè)功能 用戶注冊(cè)就是添加使用該系統(tǒng)的新用戶。 用戶 注冊(cè) 界面如圖 34： 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 24 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 圖 34 2. 用戶刪除功能 刪除已注冊(cè)用戶 用戶刪除 界面如圖 35： 圖 35 退出系統(tǒng)模塊 單擊時(shí)使用 MsgBox 彈出詢問(wèn)對(duì)話框，其實(shí)現(xiàn)代碼為： Private Sub tcxt_Click() Dim a As Integer a = MsgBox(確定退出嗎 ?, vbQuestion + vbOKCancel, 確認(rèn) ) If a = 1 Then End End If End Sub 客戶資料管理模塊的設(shè)計(jì)實(shí)現(xiàn) 客戶資料管理模塊主要是對(duì)顧客的購(gòu)物信 息以及聯(lián)系信息進(jìn)行管理，方便維修時(shí)查看及聯(lián)系。主要包括三個(gè)部分：新增，修改，刪除。 新增模塊 新增功能主要為新增顧客資料。點(diǎn)擊新增按鈕后，界面上會(huì)彈出新增窗口，在新增窗口中管理員可以根據(jù)情況編輯用戶信息 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 25 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 其界面如圖 36： 圖 36 添加功能使用 ADO 控件連接數(shù)據(jù)庫(kù)，這項(xiàng)功能在系統(tǒng)中運(yùn)用頻繁，后續(xù)許多添加功能的編寫方法都與該方法近似，就不再贅述。 修改模塊 修改功能主要用于修改客戶詳細(xì)資料。 其界面如圖 37： 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 26 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 圖 37 刪除模塊 即刪除客戶資料 ，本系統(tǒng)提供數(shù)據(jù)庫(kù)備份功能，在刪除客戶資料前可對(duì)數(shù)據(jù)庫(kù)進(jìn)行備份。該功能在主界面上可直接進(jìn)行操作。 維修管理模塊的設(shè)計(jì)實(shí)現(xiàn) 維修管理是對(duì)用戶提出的維修申請(qǐng)進(jìn)行登記和處理，包括兩個(gè)部分：保修期查詢和維修記錄編輯。 3． 6． 1 保修期查詢 提供保修期查詢是為了方便核對(duì)該客戶是否滿足保修條件。查詢結(jié)果顯示的是保修截止日期。 界面如圖 38： 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 27 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 圖 38 3． 6． 2 維修記錄編輯 登記維修申請(qǐng)和處理情況。 界面如圖 39： 圖 39 3． 7 客戶詳細(xì)資料報(bào)表模塊的實(shí)現(xiàn) 該模塊使用 了 VB 自帶的報(bào)表設(shè)計(jì)器進(jìn)行設(shè)計(jì)，添加了一個(gè) DataEnvironment 和一個(gè) DataReport,在 DataEnvironment 中建立了一個(gè) Connection，再在 Connection下面創(chuàng)建一個(gè)命令，在該命令的屬性對(duì)話框里選擇“通用”屬性頁(yè)，選擇“ SQL 語(yǔ)句”單選項(xiàng)，輸入如下語(yǔ)句： 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 28 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ SELECT KHZL.* FROM KHZL WHERE (ID 號(hào) = ?) （注： ID 號(hào)為參數(shù)） 再在參數(shù)屬性頁(yè)中將 Param1 的數(shù)據(jù)類型改為 adVarChar，主數(shù)據(jù)類型設(shè)置為String(VT_BSTR)即可。 輸出界面如圖 310： 圖 310 業(yè)務(wù)統(tǒng)計(jì)模塊的設(shè)計(jì)實(shí)現(xiàn) 對(duì)商場(chǎng)的各項(xiàng)業(yè)務(wù)進(jìn)行統(tǒng)計(jì)，包括：電器銷售統(tǒng)計(jì)，電器安裝統(tǒng)計(jì)，用戶維修統(tǒng)計(jì)，用戶投訴統(tǒng)計(jì)，用戶贈(zèng)品統(tǒng)計(jì)。由于各功能的實(shí)現(xiàn)均相似，在此只舉一例進(jìn)行說(shuō)明。 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 29 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 例：電器銷售統(tǒng)計(jì)的實(shí)現(xiàn) 統(tǒng)計(jì)商場(chǎng)內(nèi)電器產(chǎn)品的銷售情況，并可將其導(dǎo)出到 Excel 中。使用了 Adodc 和DataGrid 控件， Adodc 連接了存儲(chǔ)過(guò)程 pr_xstj。 其界面如圖 311： 圖 311 數(shù)據(jù)管理模塊的設(shè)計(jì)實(shí)現(xiàn) 對(duì)本系統(tǒng)的數(shù)據(jù)庫(kù)進(jìn)行相關(guān)操作，包括：數(shù)據(jù)備 份與恢復(fù)，壓縮數(shù)據(jù)庫(kù) 實(shí)現(xiàn)過(guò)程： 1) 創(chuàng)建一個(gè)新窗體； 2) 在窗體上添加一個(gè) Label控件和兩個(gè) OptionButton 控件，設(shè)置 OptionButton 控件的 Caption 屬性分別為“數(shù)據(jù)備份”和“數(shù)據(jù)恢復(fù)”。 3) 在窗體上添加兩個(gè) Frame 控件 ,分別命名為“備份卡列表”和“請(qǐng)選擇數(shù)據(jù)庫(kù) 文件”。 4) 在備份卡列表 Frame 中添加一個(gè) ImageList 和一個(gè) ListView 控件，使用默認(rèn) 名稱。 5) 右擊 ImageList1，選擇屬性項(xiàng)，打開(kāi)屬性頁(yè)對(duì)話框，在此設(shè)置備份卡所需的 圖片 。在“通用”選項(xiàng)卡中選擇“ 32*32”單選按鈕；切換到“圖象” 選項(xiàng) 卡，單擊“插入圖片”按鈕，選擇要添加的圖片，單擊“打開(kāi)”即可。 6) 右擊 ListView1 控件，選擇屬性，打開(kāi)屬性頁(yè)對(duì)話框。在“圖象列表”中的 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 30 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ “普通”下拉列表中選擇 ImageList1，確定即可。 7) 在“請(qǐng)選擇數(shù)據(jù)庫(kù)文件”的 Frame 中添加一個(gè) DriveListBox，一個(gè) DirListBox 和一個(gè) FileListBox。 8) 在總窗體總添加兩個(gè) CommandButton，分別為“數(shù)據(jù)備份或恢復(fù)”和“退出” ； 添加一個(gè) Label， Caption 為空，該控件主要用于顯示備份的數(shù)據(jù)庫(kù)文件所在的路徑。 9) 代碼見(jiàn)附錄。 界面如圖 312： 圖 312 工具模塊的設(shè)計(jì)實(shí)現(xiàn) 該模塊直接調(diào)用了 Windows 自帶的兩個(gè)工具：計(jì)算器與記事本。其實(shí)現(xiàn)代碼為： Private Sub jsq_Click() Shell , vbNormalFocus ‘打開(kāi)計(jì)算器 安徽工業(yè)大學(xué) 畢業(yè)設(shè)計(jì)（家電商場(chǎng)售后服務(wù)管理系統(tǒng)） 共 48 頁(yè) 第 31 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ End Sub Private Sub jsb_Click() Shell , vbNormalFocus ‘打開(kāi)記事本 End Sub 幫助模塊的設(shè)計(jì)實(shí)現(xiàn) 包括：軟件介紹和關(guān)于作者 3． 11． 1 軟件介紹 對(duì)軟件進(jìn)行相關(guān)介紹。 3． 11． 2 關(guān)于作者 提供聯(lián)系方式，方便咨詢。