【文章內容簡介】
行排列,以使其更有條理性,創(chuàng)建了一個名為pr_khzl的存儲過程:CREATE PROCEDURE pr_khzlAS beginselect * from KHZL order by ID號end GO統(tǒng)計時使用了其他的存儲過程,在此就不再舉例說明。第三章 功能設計的實現(xiàn)系統(tǒng)的設計和準備工作已經非常充分了。在此基礎上,將進行系統(tǒng)各功能的實現(xiàn)。本系統(tǒng)的部分源代碼放在附錄中。 創(chuàng)建工程用戶需要創(chuàng)建工程存儲的目錄。運行Visual Basic`,并選擇新建“標準EXE”工程。新建工程后,在Visual Basic窗口中有一個缺省的窗體Form1,在此基礎上設計系統(tǒng)的主界面。選擇“工程”菜單中的“工程1屬性”命令,在“工程屬性”對話框中,將工程名設置為“家電商場售后服務管理系統(tǒng)”。單擊“保存”按鈕,將工程存儲為“。 添加模塊在本系統(tǒng)的設計中,添加了一個Module1模塊。模塊中定義了n函數(shù)。該函數(shù)的作用是實現(xiàn)與數(shù)據(jù)庫的連接。它是其他模塊能夠順利運行的基礎。代碼如下:Public Sub main() Provider=。Persist Security Info=False。User ID=sa。Data Source=sqlserver 39。連接數(shù)據(jù)庫End SubFunction n() As Set n = New DSN=sqlserver。UID=sa。End Function用戶登陸模塊的作用是判斷使用本系統(tǒng)的用戶是否是合法用戶。運行本系統(tǒng)時,首先顯示啟動窗體,然后進入用戶登陸界面。登陸界面要求輸入用戶名和用戶密碼,如果用戶三次輸入密碼不正確,將退出本系統(tǒng)。用戶登陸的流程圖如圖31: 啟動系統(tǒng)輸入用戶名輸入密碼進入系統(tǒng)登陸次數(shù)+1登陸次數(shù)3退出系統(tǒng)用戶名為空密碼不正確圖31用戶登陸流程圖在初次登陸該系統(tǒng)時,系統(tǒng)將彈出主界面,用戶可以在系統(tǒng)管理子菜單下的用戶管理中添加或刪除用戶。登陸界面如圖32:圖32 系統(tǒng)管理模塊的設計實現(xiàn)系統(tǒng)管理模塊主要是對系統(tǒng)的相關參數(shù)進行設置,它是整個系統(tǒng)運行的前提保證。該模塊包括三個部分:修改密碼,用戶管理,退出系統(tǒng)。 修改密碼模塊修改系統(tǒng)用戶的密碼,在Frame控件中放置4個Lebal,3個TextBox和一個ComboBox,再在總窗體中放置兩個CommandButton。界面如圖33:圖33 用戶管理模塊該模塊是對該系統(tǒng)的用戶進行管理,包括用戶注冊與用戶刪除。1. 用戶注冊功能用戶注冊就是添加使用該系統(tǒng)的新用戶。用戶注冊界面如圖34:圖342. 用戶刪除功能刪除已注冊用戶用戶刪除界面如圖35:圖35 退出系統(tǒng)模塊單擊時使用MsgBox彈出詢問對話框,其實現(xiàn)代碼為:Private Sub tcxt_Click()Dim a As Integera = MsgBox(確定退出嗎?, vbQuestion + vbOKCancel, 確認)If a = 1 ThenEndEnd IfEnd Sub 客戶資料管理模塊的設計實現(xiàn)客戶資料管理模塊主要是對顧客的購物信息以及聯(lián)系信息進行管理,方便維修時查看及聯(lián)系。主要包括三個部分:新增,修改,刪除。 新增模塊新增功能主要為新增顧客資料。點擊新增按鈕后,界面上會彈出新增窗口,在新增窗口中管理員可以根據(jù)情況編輯用戶信息其界面如圖36:圖36添加功能使用ADO控件連接數(shù)據(jù)庫,這項功能在系統(tǒng)中運用頻繁,后續(xù)許多添加功能的編寫方法都與該方法近似,就不再贅述。修改功能主要用于修改客戶詳細資料。其界面如圖37:圖37 刪除模塊即刪除客戶資料,本系統(tǒng)提供數(shù)據(jù)庫備份功能,在刪除客戶資料前可對數(shù)據(jù)庫進行備份。該功能在主界面上可直接進行操作。 維修管理模塊的設計實現(xiàn)維修管理是對用戶提出的維修申請進行登記和處理,包括兩個部分:保修期查詢和維修記錄編輯。3.6.1保修期查詢提供保修期查詢是為了方便核對該客戶是否滿足保修條件。查詢結果顯示的是保修截止日期。界面如圖38:圖383.6.2維修記錄編輯登記維修申請和處理情況。界面如圖39:圖393.7 客戶詳細資料報表模塊的實現(xiàn)該模塊使用了VB自帶的報表設計器進行設計,添加了一個DataEnvironment和一個DataReport,在DataEnvironment中建立了一個Connection,再在Connection下面創(chuàng)建一個命令,在該命令的屬性對話框里選擇“通用”屬性頁,選擇“SQL語句”單選項,輸入如下語句:SELECT KHZL.* FROM