【正文】 en 39。判斷該記錄是否存在 DBExist = Else DBExist = 0 End If 39。關(guān)閉數(shù)據(jù)庫 End Function txtlNUll 函數(shù) 判斷輸入到 TextBox 的內(nèi)容是否為空，參數(shù)為 TextBox 實例 .處理流程：如果TextBox 文本為空，返回值為 True,否則，返回值為 false，并設(shè)置該 TextBox 獲得焦點 . Public Function txtIsNull(txt As TextBox) As Boolean 超市管理系統(tǒng) 22 If Trim() = Then txtIsNull = True Else txtIsNull = False End If End Function IsOverStringLen 函數(shù) 判斷輸入內(nèi)容是否超過給定值，參數(shù)為需要處理的字符串和給定長度值 .處理流程：判斷字符長度不超過給定值時返回值為 True，否則，返回值為 false. Public Function IsOverStringLen(ByVal str As String, lenthText As Integer) As Boolean If Len(Trim(str)) lenthText Then IsOverStringLen = True Else IsOverStringLen = False End If End Function viewData 函數(shù) 在 Datagrid 中顯示數(shù)據(jù)，參數(shù)為 SQL 語句和將要顯示數(shù)據(jù)的 ：執(zhí)行 SQL 語句，當檢索到的記錄數(shù)不為 0 時，將相應(yīng)的數(shù)據(jù)集設(shè)置為 Datagrid 的數(shù)據(jù)源，并返回記錄數(shù)；否則給出提示信息“還沒有數(shù)據(jù)！”，返回 0. Public Function viewData(ByVal txtSQL As String, dataGridAll As DataGrid) As Integer Dim rstData As Dim result As String result = ExecuteSQL(txtSQL, rstData, False) 39。檢索需要的信息 If 0 Then 39。設(shè)置 Datagrid 的數(shù)據(jù)源 數(shù)據(jù)庫課程設(shè)計報 告 23 Set = rstData viewData = Else MsgBox 還沒有數(shù)據(jù)！ , vbOKOnly + vbExclamation, 警告 viewData = 0 End If End Function ISEqueILen 函數(shù) 判斷輸入到 TextBox 的內(nèi)容長度是否為給定值，參數(shù)為 TextBox 實例和給定長度值 .處理流程：如果 TextBox 文本內(nèi)容長度為給定值，返回什為 True；否則，返 回值為 false，并設(shè)置該 TextBox 獲得焦點 . Public Function ISEquelLen(ByVal txt As TextBox, intlen As Integer) As Boolean If Len() intlen Then ISEquelLen = False Else ISEquelLen = True End If End Function ComboData 函數(shù) 為 ComboBox 賦函數(shù)，參數(shù)為 SQL 語句和 ComboBox 實例 .處理流程：首先從數(shù)據(jù)庫中檢索記錄，當檢索記錄不為 0 時，將名稱字段添加到 ComboBox 的顯示列表中，同時將編號字段作為相應(yīng)名稱的索引值 .代碼如下： Public Function ComboData(ByVal txt As String, cmb As ComboBox) As Boolean Dim res As String Dim rstCmbo As Dim i As Integer res = ExecuteSQL(txt, rstCmbo, False) 超市管理系統(tǒng) 24 If 0 Then For i = 0 To 1 Trim(((0))) Next ComboData = True Exit Function Else ComboData = False End If End Function Next ComboBoxInfo = True Else ComboBoxInfo = False End If End Function 主控制平臺的設(shè)計與實現(xiàn) 總體布局 系統(tǒng)主控平臺采用簡單、直觀的布局，通過菜單實現(xiàn)對系統(tǒng)各個模塊的調(diào)用和對各個窗體的顯示 .設(shè)置狀態(tài)欄用來顯示當前日期、時間和當前用戶信息 .設(shè)置工具欄來實現(xiàn)系統(tǒng)的快捷方式進入常用管理部分進行快捷服務(wù) .設(shè)置屏幕滾動條提醒系統(tǒng)使用者微笑服務(wù)，增強超市的人文素質(zhì)，同時可以鼓勵員工努力工作，為他們創(chuàng)造動力 .[10] 主控制平臺的界面效果 主控制平臺的界面效果（如圖 61 所示） 。 數(shù)據(jù)庫課程設(shè)計報 告 25 圖 61 主控制平臺的界面效果 窗體和控件特殊屬性的設(shè)置 窗體和控件特 殊屬性的設(shè)置（見表 62） 。 表 62 窗體和控件特殊屬性 控件名稱 控件屬性 設(shè)置 frmMain StratUpPosition 0 Label1 BoderStyle 0 Label2 BoderStyle 0 Label3 BoderStyle 0 Label4 BoderStyle 0 設(shè)計 (1)添加菜單和狀態(tài)欄；根據(jù)總體設(shè)計中對各個模塊的設(shè)計，使用菜單編輯器和StatusBarUser 控件創(chuàng)建系統(tǒng)菜單和狀態(tài)欄 .菜單項目有： 1)系統(tǒng)管理→用戶管理 、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù) 、修 改密碼 . 2)進貨管理→進貨計劃、入庫管理 . 3)銷售管理→銷售票據(jù)及記錄、商品計價、商品銷售情況統(tǒng)計 . 4)庫存管理→庫存管理、查詢庫存商品 . 5)人員管理→員工管理、客戶管理 . 6)報表→入庫報表、進貨計劃報表、銷售明細記錄報表、庫存報表 . 超市管理系統(tǒng) 26 7)退出 . (2)窗體加載事件 . (3)初始化過程 initial. (4)權(quán)限設(shè)置函數(shù) purview： (5)單擊各個菜單或子菜單時顯示相應(yīng)的窗體 . 基本語法是： .各個菜單與窗體的對應(yīng)關(guān)系如表 63 所示 . (6)退出系統(tǒng) ，代碼見附件 . 表 63 各個菜單與窗體的對應(yīng)關(guān)系 菜 單 名 稱 事 件 顯示窗體語句 說 明 subMenuClient Click 顯示用戶管理 窗體 subMenuPassword Click 顯示修改密碼 窗體 jinhuojihua Click 顯示進貨計劃 窗體 rkjilu Click 顯示入庫記錄 窗體 xsmxjilu Click 顯示 打 印銷售票據(jù)并記錄 窗體 shpxinxi Click 顯示 商品計價窗體 shangpinxiaoshouqingkuang Click 顯示商品銷售情況統(tǒng)計窗體 Kcguanli Click 顯示庫存管理 窗體 chxkcshangpin Click 顯示庫存商品 查詢窗體 ygguanli Click 顯示員工管理 窗體 khguanli Click 顯示客戶管理 窗體 kcbaobiao Click 顯示庫存報表 窗體 xshmingxibaobiao Click 顯示銷售明細 報表窗體 jhjihuabaobiao Click 顯示進貨計劃 報表窗體 rkbaobiao Click 顯示入庫報表 窗體 數(shù)據(jù)庫課程設(shè)計報 告 27 (7)設(shè)計屏幕滾動字幕 [11] 本程序主要通過設(shè)置窗體的 Left 屬性來實現(xiàn)字幕滾動，利用前面介紹的窗體透明，這樣就能看到文字在屏幕上滾動 .選用 Timer 控件控制 Left 屬性改變的頻率 . 在窗體啟動時，設(shè)置 Timer 控件控制窗體向左移動，當移動出屏幕時，設(shè)置 Timer1控件不可用， Timer2 控件可用，程序代碼如下： Private Sub Timer1_Timer() = 50 If * (1) Then = False = = 0 = True = 50 End If End Sub Timer2 控件用于控制窗體在頂部從左向右移動，當移動出屏幕時，設(shè)置 Timer2控件不可用，設(shè)置 Timer1 控件可用，窗體開始在屏幕底部移動，程序代碼如下： Private Sub Timer2_Timer() = + 100 If Then = False = 700 = = True = 50 End If End Sub 超市管理系統(tǒng) 28 用戶登錄模塊 登錄模塊的 IPO 圖 輸入：用戶名和密碼 . (1)登錄窗體啟動 . (2)輸入用戶名和密碼 . (3)如果用戶名或密碼為空，處理終止，并進行錯誤信息提示 . (4)以輸入的用戶名為關(guān)鍵字，檢索用戶信息表（ tbUser）的用戶名和密碼字段 . (5)通過檢索結(jié)果判斷該用戶是否存在，如果用戶不存在，處理終止，并進行錯誤信息提示 . (6)如果用戶名存在，比較檢索到的密碼字段與輸入的密碼是否相等 .如果不相等則處理終止，并進行錯誤提示 . (7)如果輸入的密碼正確，將該用戶名和用戶類型分別保存在全局 變量 gUserId和 gUserKind 中 . (8)進入主控制平臺 . 登錄模塊的窗體設(shè)計 登錄模塊的窗體設(shè)計（如圖 62 所示） 。 圖 62 用戶登錄模塊的窗體效果 數(shù)據(jù)庫課程設(shè)計報 告 29 程序設(shè)計 (1)用戶身份驗證 處理流程（這里允許職員設(shè)置自己的用戶名，但考慮到使用者的習(xí)慣和系統(tǒng)安全，不強制使用職員的姓名作為用戶名，可以通過系統(tǒng)管理員進行個性化用戶名設(shè)置，因此這里不使用 ComboBox 控件）： 1)開始用戶身份驗證 . 2)檢驗用戶名是否為空 . 3)若為空則給出錯誤信息提示，設(shè)置 TextBox 獲得焦點，處 理終止 . 4)以輸入的用戶名為關(guān)鍵字，檢索用戶信息表的用戶名和密碼字段 . 5)如果不存在該用戶名，處理終止，并提示錯誤信息 . 6)比較輸入的密碼與從數(shù)據(jù)庫中檢索出的密碼字段是否相等，如果不等，設(shè)置密碼 TextBox 獲得焦點，處理終止，并提示錯誤信息 . 7） 進入主控制平臺并將用戶名和用戶類型賦給全局變量 gUserId 和 gUserKind. (2)“取消”按鈕：結(jié)束當前窗體（ End），退出此次登錄 . 系統(tǒng)管理模塊 系統(tǒng)管理模塊包括用戶管理和修改密碼兩個子模塊 .用戶管理模塊只有經(jīng)理可以使用，一般 用戶不能使用，修改密碼模塊面向任何用戶，提供修改登錄者密碼的功能 . 管理子模塊 (1)管理子模塊的 IPO 圖 . 輸入：用戶名、密碼和用戶類型 . 處理流程： 1)僅當用戶類型為經(jīng)理時可用 . 2)用戶信息管理窗體啟動 . 3)從用戶信息表 (tbUser)中讀取全部記錄并顯示在表格控件 dgUser 中 . 4)根據(jù)經(jīng)理的選擇（添加、修改和刪除）進行相應(yīng)處理，具體如步驟 5） ～ 7） . 5)添加操作： ● 輸入用戶名、密碼和用戶類型 . ● 如果用戶名已經(jīng)存在則進行錯誤信息提示，添加處理終止 . 超市管理系統(tǒng) 30 ● 如果用戶名不存在，根據(jù)數(shù)據(jù)庫中對應(yīng)字段的定義，檢驗輸入值是否合法，如果輸入有錯誤則進行錯誤信息提示，添加處理終止 . ● 如果輸入正確，執(zhí)行 SQL 語句，向用戶信息表 (tbUser)中插入一條記錄 . ● 提示用戶添加成功，刷新窗體表格中的數(shù)據(jù) . 6)修改操作： ● 通過以下兩種方式獲得用戶名、密碼和用戶類型；手動輸入或者在表格中單擊任意單元格，窗體的控件中自動顯示被點擊記錄的用戶名、密碼和用戶類型 . ● 從用戶信息表 (tbUser)中檢查是否有相應(yīng)的用戶名 . ● 如果用戶名不存在則進行錯誤信息提示，添加處理終止 . ● 如果用戶名存在，根據(jù)數(shù)據(jù)庫中對應(yīng)字段的定義，檢驗輸入