【導(dǎo)讀】隨著我國(guó)經(jīng)濟(jì)的發(fā)展，人們對(duì)生活的要求越來越高?，F(xiàn)在的有些超市的規(guī)模有限，導(dǎo)致一些制約中國(guó)超市企業(yè)發(fā)展的瓶頸問題長(zhǎng)期得不到解決。一是配送中心發(fā)展滯后。完善高效的配送中心是超市發(fā)展不可或缺的支撐條件。能適應(yīng)業(yè)務(wù)發(fā)展的需要。由于企業(yè)缺乏必要的規(guī)模是經(jīng)營(yíng)實(shí)力，加上缺乏現(xiàn)代管理意識(shí)，計(jì)算機(jī)管理信息系統(tǒng)尚未建立，物流作業(yè)自動(dòng)化程度低，造成配送技術(shù)落后，效率低下。連鎖超市是一種先進(jìn)的現(xiàn)代化經(jīng)營(yíng)方式，必須引入先進(jìn)的管理方式、管理手段和管。已經(jīng)滲透到了各個(gè)領(lǐng)域。理員更加科學(xué)的對(duì)超市進(jìn)貨、出貨、庫(kù)存以及報(bào)損進(jìn)行快速的管理。能及時(shí)的處理中間。主要是為超市的管理者在管理過程中提。超市管理層了解超市貨物的動(dòng)態(tài)，制定合理的進(jìn)出貨管理方案。本次設(shè)計(jì)主要采用了結(jié)構(gòu)化生命周期的開發(fā)方法。結(jié)，發(fā)現(xiàn)問題及時(shí)地反饋和糾正。貨管理功能完成進(jìn)貨信息登記、修改和刪除等。作，本系統(tǒng)也考慮了這兩個(gè)方面。

　　

【正文】 設(shè)計(jì)與實(shí)現(xiàn)。 ● 功能：統(tǒng)計(jì)各種商品的出貨登記次數(shù)和累計(jì)出貨總收入，最后按累計(jì)出貨總收入來排序，結(jié)果以 clsSells 類型返回，最多返回前 ncount 條記錄。 ● 參數(shù)設(shè)計(jì)：參見表 53 ● 返回值： clsSells 類型，一個(gè) clsSell 的集合。 ● 設(shè)計(jì)思路；根據(jù)傳入?yún)?shù)組織 SQL 語(yǔ)句并執(zhí)行，此語(yǔ)句中以商品來分組，計(jì)算出貨登記次數(shù)和累計(jì)出貨總收入 將查到的結(jié)果以累計(jì)出貨貨總收入排序 將前 nCount 條記錄加入集合 返回類本身。 表 53 Findstorage 方法參數(shù)設(shè)計(jì) 參數(shù)名 參數(shù)類型 功能 是否 可選及默認(rèn)值 說明 IsDesc Boolean 表示是否采用降序 可選 ,默認(rèn)值 =True 無 nCount Integer 最多顯示多少條記錄 可選 ,默認(rèn)值 =10 無 按照這樣的思想我們可以編寫出類似的代碼 . clsSells 類 Findstorage 方法的實(shí)現(xiàn) Public Function Find(Optional lgnID As Long = 1, Optional lngTypeId As Long = 0) As clsSells Dim rs As Recordset Dim index As Long Dim obj As clsSell 39。按輸入的參數(shù)查詢，并返回一個(gè)集合類 Dim strSQL As String 39。構(gòu)造 SQL 語(yǔ)句 strSQL = Select * from Sell, Merchandise, MerchandiseType WHERE strSQL = strSQL amp。 M_TypeId_N = MT_ID_N AND S_MerchandiseId_N=M_ID_N If lgnID 1 Then strSQL = strSQL amp。 AND S_ID_N= amp。 lgnID End If If lngTypeId 0 Then strSQL = strSQL amp。 AND M_TypeId_N= amp。 lngTypeId End If strSQL = strSQL amp。 AND S_ID_N0 39。清空當(dāng)前集合 Set rs = (strSQL) 39。往集合中添加查詢結(jié)果 For index = 1 To Set obj = New clsSell With obj .ID = rs(S_ID_N).Value .MerchandiseID = rs(S_MerchandiseID_N).Value 25 .RegDate = rs(S_RegDate_D).Value .Count = rs(S_Count_N).Value .SellPrice = rs(S_SellPrice_N).Value .OperatorId = rs(S_OperatorId_S).Value .Remark = Trim(rs(S_Remark_R).Value) .MerchName = GetValueByID(Merchandise, M_ID_N, .MerchandiseID, M_Name_S) End With obj Set obj = Nothing Next index Set rs = Nothing Set Find = Me End Function 用戶管理模塊主要完成系統(tǒng)用戶的維護(hù)，包括增加、修改和刪除等。 用戶管理對(duì)話框界面設(shè)計(jì) 用戶管理模塊用來管理系統(tǒng)中的管理員。圖 62 是編輯完畢之后的用戶管理對(duì)話框視圖。 圖 53 為用戶管理界面： 圖 53 用戶管理界面 用戶管理對(duì)話框代碼設(shè)計(jì) 整個(gè)用戶管理對(duì)話框代碼僅寥寥幾行，但功能絲毫不弱，這無疑利益于我們開發(fā)的 26 兩個(gè)組件。以下就是這對(duì)話框的代碼。 Option Explicit Dim opAdmin As New clsOpAdmin Private Sub CancelButton_Click() Unload Me End Sub Private Sub cmdAdd_Click() lvAdmin End Sub Private Sub cmdDel_Click() lvAdmin End Sub Private Sub cmdModify_Click() lvAdmin End Sub Private Sub Form_Load() lvAdmin End Sub 27 第 6 章系統(tǒng)測(cè)試與維護(hù) 因?yàn)楸救嗽诔醮伍_發(fā)如 此 大的系統(tǒng)，在開發(fā)過程中遇到了很多意想不到的情況，通過翻閱相關(guān)書籍，最終將問得以解決?，F(xiàn)將開發(fā)過程中遇到的情況說明如下。 數(shù)據(jù)庫(kù)值查詢 數(shù)據(jù)庫(kù)中的值查詢，一般包括字符串、空值、日期時(shí)間、布爾值數(shù)字的查詢。 字符串查詢 使用 SQL 語(yǔ)言進(jìn)行字符串查詢時(shí)，字符串一定要使用 單引號(hào) “?”括起來，否則查詢表出錯(cuò)。例： 誤： strsql=”select * from [admin] where a_name_s=admin” 正： strsql=”select 8 from [admin] where a_name_s=?admin?” 數(shù)據(jù)庫(kù)空值處理 數(shù)據(jù)庫(kù)中的空值是一個(gè)很抽象的概念，空值是 NULL，它和沒有值不同。打個(gè)比方，比如說有一個(gè)瓶子，瓶子里邊除了空氣其他什么都沒有，這是沒有值；另外一個(gè)瓶子，里邊是真空的，這叫空值，反映到程序上，也就是 P_Intro_S=””與 P_Intro_S NULL 是不同的兩回事。在讀取數(shù)據(jù)庫(kù)時(shí)如果返回值是 NULL，當(dāng)把它賦值給一個(gè) string 型的變量時(shí)就會(huì)出錯(cuò) ,需要另外判斷它是否為空 ,這就是為什么在前面數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)盡量指定字段為非空并指定默認(rèn)值的原因了。 布爾值的查詢與操作 對(duì)布爾值及數(shù)字的查詢，直接使用 True、 False 或數(shù)值即可，不必加單引號(hào) “?“，例： Strsql=”select * from [admin] where a_isdefault_b=false” Strsql=”select 8 from [buy] where b_count_n=3” order by 子句的使用 對(duì)查詢的值使用 order by 子句進(jìn)行排序時(shí)，所排序的列必須在查詢當(dāng)中列出。例： 誤： strsql=”select M_ID_N from [Merchandise] order by M_storage_n” 正： strsql=”select m_id_n,Mstorage_n from [merchandise] order by m_storage_N” 多表聯(lián)查時(shí)的問題 對(duì)數(shù)據(jù)庫(kù)中多張關(guān)系表進(jìn)行查詢時(shí)，若有字段重名，則一定要指定具體的字段名稱 。假如數(shù)據(jù)庫(kù)中有 user 及 admin 兩張表， user 為父表， admin 為子表，通過 ID 關(guān)系，都包含有一個(gè)名為 status 的字段，現(xiàn)在要列出所有 admin 的 NAMEEY STATUS,則： 誤： strsql=”select name,status from [user],[admin] where id=id” 正： Strsql=”select name,[admin].status from [user],[admin] where [user].id=[admin].id” 本系統(tǒng)開發(fā)時(shí)包含 3 個(gè)工程，其中 2 個(gè)是 ActiveX DLL， 1 個(gè)是標(biāo)準(zhǔn) EXE。這樣在管理工程文件時(shí)更應(yīng)該分別存放，即 3 個(gè)工程的文件分 3 個(gè)目錄存儲(chǔ)，組文件在以上 3 個(gè)目錄外面，與它們并列。在 BuySellStorageUI 中引用 BuySellStorageDB，在 EXE 工程中引用 buySellStorageDB 和 BuySellStoraeUI，這樣可以同時(shí)調(diào)試 3 個(gè) 28 工程的代碼。 系統(tǒng)維護(hù) 程序中的錯(cuò)誤，多出現(xiàn)在對(duì)數(shù)據(jù)類型的判斷、數(shù)據(jù)與數(shù)據(jù)庫(kù)限制相沖突、系統(tǒng)資源的建立與釋放等方面。 數(shù)據(jù)類型不匹配 數(shù)據(jù)類型的判斷錯(cuò)誤，比如一個(gè)功能模塊，接受傳入的數(shù)據(jù)為 ID，要求其值必須是正數(shù)。如果寫程序時(shí)，傳入的是小數(shù)，或者是非數(shù)字的字符串，那么程序?qū)?huì)出現(xiàn)錯(cuò)誤。又如查詢數(shù)據(jù)表時(shí)，使用了 WHERE 子句，但是數(shù)據(jù)類型不匹配，數(shù)據(jù)庫(kù)中字段類型為數(shù)字的值，卻使用了字符串去查詢，就會(huì)出現(xiàn)錯(cuò)誤。 數(shù)據(jù)與數(shù)據(jù)庫(kù)限制相沖突 數(shù)據(jù)與數(shù)據(jù)庫(kù)限制相沖突，可能是其值超過了數(shù)據(jù)庫(kù)的上限與下限。比如在數(shù)據(jù)庫(kù)中，用戶名稱字符數(shù)量上限是 20 個(gè)字符，而在程序中沒有對(duì)此進(jìn)行判別，如果一個(gè)添加新商品時(shí)名字有 21 個(gè)字符，那么在使用 SQL 語(yǔ)言插入數(shù)據(jù)記錄 的時(shí)候，就會(huì)出錯(cuò)。 變量聲明錯(cuò)誤 最后是一些常識(shí)性錯(cuò)誤，比如在 if…else…end if 過程中，認(rèn)為判斷只會(huì)執(zhí)行其中的一段代碼，于是在兩段中都使用 dim obj as clsmerch，事實(shí)上，編譯器在語(yǔ)法分析階段，是首先將一個(gè)函數(shù)內(nèi)聲明的全部變量都放符號(hào)表中，而不管這個(gè)變量的聲明是在這個(gè)函數(shù)的什么位置（但變量作用哉并沒有因此而受到影響）。又如在 select case 中， case 的條件是字符串，但是沒有加引號(hào)，就變成了 Case 一個(gè)空變量。對(duì)這些錯(cuò)誤的避免，就要求在編寫程序過程中要盡量細(xì)心。