【正文】 話框，選擇 Microsoft Activex ,在工程中加入對 ADO 的支持 . 將新建工程時自去生成類的 Classl 的名稱重新設(shè)置為 Clspublic,然后按默認文 件名 保存工程 . 19 創(chuàng)建基本界面組件 新建 Activex DLL 工程 與新建工程 BuysellstorageDB 類似 ,在 Merchandise 工程中選擇菜單 [文件 ]添加工程 ]命令 ,打開 “添加工程 ”對話框后 ,選擇 ActiveX DLL,創(chuàng)建 ActiveX DLL 應(yīng)用程序 . 設(shè)置工程屬性 在 “工程資源管理器 ”中選中剛才新建的工程（默認 “工程 1”），選擇菜單 [工程 ][工程 1 屬性 ]命令，打開 “工程屬性對話框，對工程的一些關(guān)鍵屬性做如下設(shè)置： ● 工程類型： Activex DLL。 ● 工程名稱： BuysellstorangeUI 按默認設(shè)置將工程保存在與 Merchandise 同級 BuysellstorangeUI 文件夾中即可 . 加入對業(yè)務(wù)邏輯組件中的引用 在 ” 工程資源管理器 ”中選中 BuysellstorangeUI 工程 ,選擇菜單 [工程 ][引用 ]命令對話框 ,選擇 BuysellstorageaDB,在工程中加入對業(yè)務(wù)邏輯組件的支持。 超市公司業(yè)務(wù)處理組件用來處理進銷存管理系統(tǒng)中和業(yè)務(wù)邏輯，既負責(zé)與界面進行數(shù)據(jù)傳遞（不管是用戶端界面還是基本界面組件中的界面），同時也要將界端的請求應(yīng)用業(yè)務(wù)邏輯之后對數(shù)據(jù)庫進行操作。 ● 供貨商信息管理，對應(yīng) clsProvider 類和 clsProviders 類。 ● 出貨信息管理，對應(yīng) clsSell 類和 clsSells 類。 ● 管理員信息管理，對應(yīng) clsAdmin 類和 clsAdminso 類。 系統(tǒng)功能實現(xiàn) 系統(tǒng)主界面的設(shè)計 1） 設(shè)計主窗體控件布局 打開 frmMain 的編輯界面，看到向?qū)б呀?jīng)為我們生成了基本框架。然后按表 51 所示的設(shè)置為主窗體添加控件（己有控件只需設(shè)置屬性即可）。 2） 設(shè)計選項卡 sstabView 給 sstabView 控件添加 5個選項卡，選項卡標(biāo)題分別設(shè)置為 “商品庫存 ”、 “進貨記錄 ”、“出貨記錄 ”、 “報損記錄 ”和 “供應(yīng)商 ”，分別對應(yīng)上述 5 個 ListView。 4） 主界面編輯狀態(tài)預(yù)覽 以上操作完成后，主界面 frmMain 設(shè)置如圖 51 所示。因有基本界面組件的支持，使得這個初始化代碼不足 10 行，參見如下代碼： 39。 InitMerchListview lvMerch 39。 ListAllMerchs lvMerch TypeToTreeview tvTreeView 39。 2）菜單響應(yīng)函數(shù) 下面加菜單響應(yīng)函數(shù)，用來發(fā)出各種操作命令。下面的例程就列出了部分菜單響應(yīng)函數(shù)。 商品類型操作 Private Sub mnuMType_Click() 39。添加 Private Sub mnuMTypeAdd_Click() tvTreeView End Sub 39。修改 Private Sub mnuMTypeModify_Click() tvTreeView End Sub 商品操作 Private Sub mnuMerch_Click() 39。比如在左側(cè)商品類型樹中先遣的是 “飲料類 ”，那么右側(cè)的商品列表只會顯示出 “飲料類 ”商品，同時受影響的還有時宜貨、出貨和報損信息，它休養(yǎng)所 顯示的也都只是屬于 “飲料類 “商品的相關(guān)記錄。 表 52 clsSell類的屬性設(shè)置 屬性名稱 數(shù)據(jù)類型 說明 ID Long 出貨編號 MerchandiseID Long 商品 ID MerchName String 商品名稱 RegDate Date 登記日期 Count Long 售出數(shù)量 SellPrice Single 售出單價 Operatorld Single 操作員 ID Remark Single VARCHAR TypeName Single 商品類型名稱 RegTimes Long 登記次數(shù) TotalPrice Single 售出總價 24 屬性添加完畢并應(yīng)用后，可以看到在 clsSell 類中已經(jīng)自動添加了類的成員變量和相應(yīng)的屬性，基本不用做任何修改就可以應(yīng)用。 下面重點介紹 FindStorage 方法的設(shè)計與實現(xiàn)。 ● 參數(shù)設(shè)計：參見表 53 ● 返回值： clsSells 類型，一個 clsSell 的集合。 表 53 Findstorage 方法參數(shù)設(shè)計 參數(shù)名 參數(shù)類型 功能 是否 可選及默認值 說明 IsDesc Boolean 表示是否采用降序 可選 ,默認值 =True 無 nCount Integer 最多顯示多少條記錄 可選 ,默認值 =10 無 按照這樣的思想我們可以編寫出類似的代碼 . clsSells 類 Findstorage 方法的實現(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。構(gòu)造 SQL 語句 strSQL = Select * from Sell, Merchandise, MerchandiseType WHERE strSQL = strSQL amp。 AND S_ID_N= amp。 AND M_TypeId_N= amp。 AND S_ID_N0 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)用戶的維護，包括增加、修改和刪除等。圖 62 是編輯完畢之后的用戶管理對話框視圖。以下就是這對話框的代碼?，F(xiàn)將開發(fā)過程中遇到的情況說明如下。 字符串查詢 使用 SQL 語言進行字符串查詢時，字符串一定要使用 單引號 “?”括起來，否則查詢表出錯。打個比方，比如說有一個瓶子，瓶子里邊除了空氣其他什么都沒有，這是沒有值；另外一個瓶子，里邊是真空的，這叫空值，反映到程序上，也就是 P_Intro_S=””與 P_Intro_S NULL 是不同的兩回事。 布爾值的查詢與操作 對布爾值及數(shù)字的查詢，直接使用 True、 False 或數(shù)值即可，不必加單引號 “?“，例： Strsql=”select * from [admin] where a_isdefault_b=false” Strsql=”select 8 from [buy] where b_count_n=3” order by 子句的使用 對查詢的值使用 order by 子句進行排序時，所排序的列必須在查詢當(dāng)中列出。假如數(shù)據(jù)庫中有 user 及 admin 兩張表， user 為父表， admin 為子表，通過 ID 關(guān)系，都包含有一個名為 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ā)時包含 3 個工程，其中 2 個是 ActiveX DLL， 1 個是標(biāo)準(zhǔn) EXE。在 BuySellStorageUI 中引用 BuySellStorageDB，在 EXE 工程中引用 buySellStorageDB 和 BuySellStoraeUI，這樣可以同時調(diào)試 3 個 28 工程的代碼。 數(shù)據(jù)類型不匹配 數(shù)據(jù)類型的判斷錯誤，比如一個功能模塊，接受傳入的數(shù)據(jù)為 ID，要求其值必須是正數(shù)。又如查詢數(shù)據(jù)表時，使用了 WHERE 子句，但是數(shù)據(jù)類型不匹配，數(shù)據(jù)庫中字段類型為數(shù)字的值，卻使用了字符串去查詢，就會出現(xiàn)錯誤。比如在數(shù)據(jù)庫中，用戶名稱字符數(shù)量上限是 20 個字符，而在程序中沒有對此進行判別，如果一個添加新商品時名字有 21 個字符，那么在使用 SQL 語言插入數(shù)據(jù)記錄 的時候，就會出錯。又如在 select case 中， case 的條件是字符串，但是沒有加引號，就變成了 Case 一個空變量。