【正文】 碼如下： Private Sub cmdOK_Click() Dim dBeginDate As String Dim dEndDate As String Dim sQSql As String ‘查詢(xún)條件 sQSql = select ,dm_gf.dm,dm_w, from inh inner join dm_ywy on = inner join dm_gf on = inner join dm_ck on = inner join dm_wz on = where = 39。這里介紹按照業(yè)務(wù)員方式查詢(xún)。 39。 amp。 txtsql = txtsql amp。 txtCKDM amp。 Set mrc = ExecuteSQL(txtsql, msgtext) ‘更新庫(kù)存表中相關(guān)信息 txtsql = select * from kucun where ckdm = 39。 Trim((intCount, 1)) amp。 的入庫(kù)單記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = ‘保存需要?jiǎng)h除的記錄 txtCKDM = Trim((intCount, 5)) txtWZDM = Trim((intCount, 6)) txtSL = Trim((intCount, 7)) txtZKE = Trim((intCount, 10)) ‘刪除入庫(kù)單 txtsql = delete from inh where inh_no =39。程序同時(shí)更新入庫(kù)單和庫(kù)存信息，代碼如下： Private Sub cmdDelete_Click() Dim txtsql As String Dim intCount As Integer Dim mrc As Dim msgtext As String ‘判斷入庫(kù)單列表是否為空 If 1 Then If MsgBox(真的要?jiǎng)h除編號(hào)為 amp。在實(shí)現(xiàn)這個(gè)模塊功能的過(guò)程中需要特別注意我個(gè)數(shù)據(jù)表的數(shù)據(jù)的關(guān)聯(lián)：如修改入庫(kù)單信息時(shí)，首先需要?jiǎng)h除入庫(kù)記錄，恢復(fù)庫(kù)存信息到原始狀態(tài)，然后添加新的入庫(kù)記錄，并更新庫(kù)存信息。程序中選擇“進(jìn)貨信息管理 |訂貨單錄入修改”菜單，將出現(xiàn)如下圖所示“進(jìn)貨訂單設(shè)置信息列表”窗體： 在如下圖所示的窗體中添加和修改訂貨單信息。 ? 進(jìn)貨信息查詢(xún)。 3． 3 進(jìn)貨信息管理模塊的創(chuàng)建 進(jìn)貨信息管理模塊主要實(shí)現(xiàn)如下功能： ? 訂貨單管理。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。 End Select End If Next i Loop End With End Sub 在窗體顯示時(shí)，可以控制窗全中各個(gè)控件按照要求的位置顯示。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2021 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .Row = 1 End With End Sub 函數(shù) ShowData 把各條記錄加到表格中，并顯示出來(lái)，代碼 如下： Private Sub ShowData() Dim j As Integer Dim i As Integer Dim msgtext As String Set mrc = ExecuteSQL(txtsql, msgtext) With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To If Not IsNull(Trim((i 1))) Then Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。設(shè)置各列的對(duì)齊方式 For i = 0 To 10 .ColAlignment(i) = 0 Next i 39。顯示 Grid 表頭 Private Sub ShowTitle() Dim i As Integer With msgList ‘設(shè)置列數(shù)目 .Cols = 11 .TextMatrix(0, 1) = 產(chǎn)品編號(hào) .TextMatrix(0, 2) = 產(chǎn)品名稱(chēng) .TextMatrix(0, 3) = 單位 .TextMatrix(0, 4) = 類(lèi)別 .TextMatrix(0, 5) = 入庫(kù)價(jià)格 .TextMatrix(0, 6) = 分銷(xiāo)價(jià)格 .TextMatrix(0, 7) = 零售價(jià)格 .TextMatrix(0, 8) = 生產(chǎn)廠家 .TextMatrix(0, 9) = 設(shè)置日期 .TextMatrix(0, 10) = 備注信息 39。參數(shù) 0 時(shí)，顯示的窗體為無(wú)模式形式，窗體切換時(shí)不需要進(jìn)行其他操作；參數(shù) 為 1 時(shí)，顯示的窗體為有模式，窗體切換時(shí)必須進(jìn)行相關(guān)操作。 3． 2 基本信息設(shè)置模塊的創(chuàng)建 基本信息設(shè)置模塊主要實(shí)現(xiàn)如下功能： ? 添加和修改產(chǎn)品信息 ? 添加和修改產(chǎn)品類(lèi)別信息 ? 添加和修改客戶(hù)信息 ? 添加和修改供應(yīng)商信息 ? 添加和修改業(yè)務(wù)員信息 ? 添加和修改業(yè)務(wù)員類(lèi)別信息 ? 添加和修改倉(cāng)庫(kù)信息 3． 2． 1 產(chǎn)品 設(shè)置窗體的創(chuàng)建 窗體布局如下圖所示： 這個(gè)窗體用來(lái)顯示產(chǎn)品設(shè)置信息，并且可以對(duì)各條記錄進(jìn)行操作。如果登錄者是授權(quán)用戶(hù)，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。用戶(hù)名全局變量 這些全局變量用來(lái)記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1為添加，賦值 2 為修改。生產(chǎn)計(jì)劃列表全局變量 Public gintPLANGmode As Integer 39。配料單列表全局變量 Public gintPLmode As Integer 39。應(yīng)收全局變量 Public gintOFFERmode As Integer 39。銷(xiāo)售單全局變量 Public gintZCmode As Integer 39。入庫(kù)單全局變量 Public gintXSDHmode As Integer 39。產(chǎn)品類(lèi)別設(shè)置全局變量 Public gintDHmode As Integer 39。業(yè)務(wù)員設(shè)置全局變量 Public gintCKSmode As Integer 39?？蛻?hù)設(shè)置全局變量 Public gintYWYLBSmode As Integer 39。產(chǎn)品設(shè)置全局變量 Public gintGFSmode As Integer 39。一旦按下回車(chē)鍵，將返回 Tab鍵，下一個(gè)控件自動(dòng)獲得輸入焦點(diǎn)。 在錄入有關(guān)信息時(shí)，需要回車(chē)來(lái)時(shí)入下一個(gè)文本框，這樣對(duì)軟件用戶(hù)非常方便。這里需要特別注意的是，在為數(shù)據(jù)庫(kù)創(chuàng)建文件 DSN 時(shí)，名稱(chēng)應(yīng)該和 Connect String中的參數(shù)一致。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢(xún)錯(cuò)誤 : amp。get RecordCount ‘ 返回記錄集對(duì)象 Set ExecuteSQL = rst MsgString = 查詢(xún)到 amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè)Module，保存為 由于系統(tǒng)中各個(gè)功能模塊 都將使用數(shù)據(jù)庫(kù)中的各種數(shù)據(jù)，因此需要一個(gè)公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語(yǔ)句。 3． 1． 3 創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù)、過(guò)程和全局變量等。選中狀態(tài)欄控件，單擊鼠標(biāo)右鍵，選中 Property 菜單，然后設(shè)置屬性。 在主窗體中加入狀態(tài)欄控件，可以實(shí)時(shí)反映系統(tǒng)中的各個(gè)狀態(tài)的變化?，F(xiàn)在將通過(guò)系統(tǒng)中各個(gè)功能模塊的實(shí)踐，使用 Visual Basic 來(lái)編寫(xiě)數(shù)據(jù)庫(kù)系統(tǒng)的客戶(hù)端程序。 根據(jù)詳細(xì)設(shè)計(jì)的介紹，下面就介紹一下本系統(tǒng)的主要窗體的詳細(xì)設(shè)計(jì)。 理論研究和大量實(shí)踐都表明采用自頂向下逐步求精的策略和單入口單出口的控制結(jié)構(gòu)設(shè)計(jì)程序是完全可行的，而且有一系列重大優(yōu)點(diǎn)，因此，結(jié)構(gòu)程序設(shè)計(jì)技術(shù)是實(shí)現(xiàn)上述目標(biāo)的基本保證，是進(jìn)行詳細(xì)設(shè)計(jì)的邏輯基礎(chǔ)。除了應(yīng)該保證程序的可靠性之外。結(jié)構(gòu)程序設(shè)計(jì)技術(shù)是實(shí)現(xiàn)舊目標(biāo)的關(guān)鍵技術(shù)，因此是詳細(xì)設(shè)計(jì)的邏輯基礎(chǔ)。實(shí)際上對(duì)長(zhǎng)期使用的軟件而言，人讀程序的時(shí)間可能比寫(xiě)程序的時(shí)間還要長(zhǎng)的多，更主要的是看它是否容易閱讀和理解?？紤]程序代碼的質(zhì)量時(shí)必須注意，程序的“讀者”有兩個(gè)，那就是計(jì)算機(jī)和人。除了應(yīng)該保證程序的可靠 性之外，將來(lái)編寫(xiě)的程序可讀性好，容易理解，容易測(cè)試和容易修改，維護(hù)是詳細(xì)設(shè)計(jì)階段最重要的目標(biāo)。 表 1： Dm_wzlb 產(chǎn)品類(lèi)別表 列名 數(shù)據(jù)類(lèi)型 可否為空 說(shuō)明 lbcode char Not Null 產(chǎn)品父類(lèi) 編號(hào) lb char Null 產(chǎn)品父類(lèi)名稱(chēng) bz char Null 備注信息 表 2： Dm_wz 產(chǎn)品信息表 列名 數(shù)據(jù)類(lèi)型 可否為空 說(shuō)明 dm char Not Null 產(chǎn)品編號(hào) mc char Null 產(chǎn)品名稱(chēng) jldw char Null 計(jì)量單位 lbdm char Null 產(chǎn)品類(lèi)別編號(hào) rkj numeric Null 入庫(kù)價(jià)格 fxj numeric Null 分銷(xiāo)價(jià)格 lsj numeric Null 零售價(jià)格 cj char Null 生產(chǎn)廠家 yxrq datetime Null 更新日期 bz char Null 備注信息 表 3： Dm_kh 客戶(hù)信息表 列名 數(shù)據(jù)類(lèi)型 可否為空 說(shuō)明 dm char Not Null 會(huì)員編號(hào) mc char Null 會(huì)員名稱(chēng) addr char Null 地址 yzbm char Null 郵政編碼 tel char Null 聯(lián)系電話(huà) itladd char Null 公司主頁(yè) ywman char Null 聯(lián) 系人 char Null 聯(lián)系人電子郵 件地址 sui_no char Null 稅號(hào) bank_no char Nul