【正文】 39。) 39。根據輸入的用戶 ID進行查詢 Dim dv As DataView = _ _ (select 密碼 ,姓名 from 用戶清單 where 用戶編號 = 39。 Private Sub txbUserId_LostFocus(ByVal sender As Object, _ ByVal e As ) Handles 39。是回車鍵并調用【確定】按鈕的單擊事件響應函數 (Nothing, Nothing) End If End Sub Private Sub txbUserId_KeyPress(ByVal sender As Object, _ ByVal e As KeyPressEventArgs) Handles If = (13) Then 39。 Private Sub txbPwd_KeyPress(ByVal sender As Object, _ ByVal e As KeyPressEventArgs) Handles 39。登陸的用戶名 Public UserName As String = 39。用于返回登陸結果 Public bResult As Boolean = False 39。 控件類型 對象名 屬性 取值（說明） Form frmLogin Caption 登錄 Form frmLogin Position CenterScreen Form frmLogin FormBorderStyle Fixen3D Label lblUserID Text 用戶編號 Label lblName Text 用戶名 Label lblPwd Text 密碼 Label lblText Text 初始用戶為： 1密碼為 sys TextBox txbUserId Text TextBox txbName Text TextBox txbPwd PasswordChar * TextBox txbPwd Text Button btnSubmit Caption 確定 Button btnClear Caption 取消 表 代碼如下： 為 frmLogin類添加如下兩個公共變量。如果數據庫連接對象不為空則關閉數據庫連接 If SqlConn Is Nothing = False Then () End If End Sub Public Function RunSelectSQL(ByVal sSQLString _ 17 As ) As DataView () Dim SqlDS As DataSet = New DataSet Dim SqlDA As SqlDataAdapter = _ New SqlDataAdapter(sSQLString, ) (SqlDS) Return (0).DefaultView End Function Public Function RunDelOrInsSQL(ByVal sSQLString _ As ) () Dim SqlComm As SqlCommand = _ New SqlCommand(sSQLString, ) () End Function End Class （三）實現系統(tǒng)登錄功能 在用戶輸入“用戶號”和“密碼”后對用戶的輸入進行驗證，并記錄登錄用戶的姓名和用戶名，供系統(tǒng)使用。建立數據庫連接對象 SqlConn = New SqlConnection() 39。 _ + server=localhost。 _ + Integrated Security=SSPI。實現接口 IDisposable Implements IDisposable 39。 。 （二）創(chuàng)建數據訪問模塊 16 因為各個窗體均需要對數據庫進行訪問，可以把數據庫的一些操作通過一個類實現，這樣可以使對數據庫的訪問更加簡單。商品資料維護窗體已經創(chuàng)建并返回 Exit Sub End If 39。 Private Sub MenuItemGoodsInfo_Click(ByVal sender As , _ ByVal e As ) Handles 39。存在名為 name的子窗體，是子窗體獲得焦點并返回 True (i).Focus() Return True End If Next 39。獲得 frmMain窗體的子窗體的數量 Dim i As Integer = 39。 GetInstanceState,此函數的主要作用是實現單機主窗體的某菜單項，如 [進貨單 ]只是出現一個進貨單子窗體。顯示登陸對話框 15 Dim loginFrm As frmLogin = New frmLogin () 39。 frmMain 對應的代碼文件中添加私有變量以及程序入口函數 Main. Public UserId As String 39。建庫腳本如下： CREATE PROCEDURE sf_進貨單 記賬人 char(10) = NULL AS Begin transaction INSERT INTO 庫存庫（貨號，倉庫，庫存數量，庫存金額，庫存單價） SELECT DISTINCT ， ， 0， 0， 0 FROM 進貨單明細 AS J left join 庫存庫 as k on ( = and =號 ) Where is null UPDATA 庫存庫 SET 庫存單價 =case when 庫存數量 =0 or (庫存數量 +數量 ALL)=0 then 進價 Else (庫存金額 +稅價合計 ALL)/（庫存數量 +數量 ALL） end, 庫存數量 =庫存數量 +數量 ALL， 庫存金額 =case when 庫存數量 =0 or（庫存數量 +數量 ALL） =0 then 進價 +（庫存數量 +數量 ALL） Else (庫存金額 +稅價合計 ALL) end, 最新進價 =進價 FROM （ SELECT 倉庫，貨號，‘數量 ALL’ =sum（進貨數量），‘進價’ =sum（稅價合計） / sum（進貨數量），‘稅價合計 ALL’ =sum（稅價合計） FROM 進貨單明細 GROUP BY 倉庫，貨號） AS LSJ WHERE 庫存庫 .倉庫 = AND 庫存庫 .貨號 = INSERT INTO 應付款（編號，進貨單號，貨號，進貨商號，數量，進貨單價，金額，進貨日期，狀態(tài)） SELECT ‘付’ +， ， ， ，進貨數量，進價， ，進貨日期，‘應付’ FROM 進貨單明細 as as b Where = INSERT INTO 進貨單歷史 SELECT * FROM 進貨單 INSERT INTO 進貨單明細歷史 SELECT * FROM 進貨單明細 Delete from 進貨單明細 Delete from 進貨單 Commit 14 Go CREATE PROCEDURE sf_銷售單 記賬人 char(10) = NULL AS Begin transaction UPDATA 庫存庫 SET 庫存數量 =庫存數量 數量 ALL，庫存金額 =庫存單價 * (庫存數量 數量 ALL) FROM（ SELECT 倉庫，貨號，‘數量 ALL’ =sum（銷售數量） FROM 進貨 單明細 GROUP BY 倉庫，貨號） AS LSJ WHERE 庫存庫 .倉庫 = AND 庫存庫 .貨號 = INSERT INTO 應付款（編號，銷售單號，貨號，客戶編號，數量，銷售價，金額，銷售日期，狀態(tài)） SELECT ‘收’ +， ， ， ，銷售數量，銷售價， 合計，進貨日期，‘應收’ FROM 銷售單明細 as as b Where = INSERT INTO 銷售單歷史 SELECT * FROM 銷售單 INSERT INTO 銷售單明細歷史 SELECT * FROM 銷售單明細 Delete from 銷售單明細 Delete from 銷售單 Commit Go 四 .窗體設計 （一）創(chuàng)建系統(tǒng)主窗體 ，并將其對應的文件更名為 ,為其添加一個主菜單（ MainMenu）控件。用途分別如下表所示。 （一）數據庫結構設計 本系統(tǒng)的數據比較復雜，存儲數據的表也比較多，如何讓各個表有機地結合起來充分發(fā)揮各自的作用，是結構復雜數據庫的難點。 所謂數據庫（ Database） 就是指按一定組織方式存儲在一起的，相互有關的若干個數據的結合，數據庫管理系統(tǒng)（ Database Management System） 就是一種操縱和管理數據 庫的大型軟件，簡稱 DBMS,他們建立在操作系統(tǒng)的基礎上，對數據庫進行統(tǒng)一的管理和控制，其功能包括數據庫定義，數據庫管理，數據庫建立和維護，于操作系統(tǒng)通信等。數據的結構將影響整個管理機制的應用，而且一但建立以后要修改常會出現麻煩。 具體的流程如圖所示。 庫存管理：在該模塊中可以 對庫存情況進行一定條件下的查詢。 進貨管理：在該模塊中可以對進貨單的記錄進行一定條件下的查詢。 第二步，打開系統(tǒng)的主界面，根據相應的操作，分別跳入不同的步驟，共有五種不同的選擇。 二 系統(tǒng)流程分析 進銷存系統(tǒng)的流程如下所示。 三 可行性分析 （一）系統(tǒng)功能分析 由于篇幅和時間有限，本設計詳細介紹如下圖所示功能的開發(fā)過程，并簡化其中各功能所包含的屬性，其他功能完全可以參照這些功能的開發(fā)方法實現。圖 為進銷存管理系統(tǒng)關鍵實體的 ER 圖。因此這 3張表和其他表間的關系是 1： N的關系。 5 圖 進銷存管理系統(tǒng)的基本功能模塊 （二）進銷存管理系統(tǒng)數據庫分析 根據以上需求分析，一個基本的進銷存管理系統(tǒng)數據庫中大致包括 60 多張數據表，分別存放相應子功能的數據信息，其中商品清單、供貨商清單和客戶清單是起關鍵作用的表，用于存放基礎的數據信息。 第二章 系統(tǒng)分析 一 初步調查 （一）進銷存管理的任務 1. 進銷存管理工作的主要任務有： 2. 企業(yè)的采購管理 3. 企業(yè)的銷售管理（批發(fā)、零售、連鎖） 4. 企業(yè)各部門的商品配送管理 5. 企業(yè)庫存商品的管理 6. 企業(yè)應收款，應付款的管理 7. 企業(yè)經營狀況分析與決策 （二）進銷存管理系統(tǒng)的作用 1. 提高管理效率，降低人工成本 2. 降低采購成本 3. 及時調整營銷策略，防止價格流失 4. 防范陳呆死帳，降低應收帳款 5. 減少倉儲面積，提高房產綜合利用 6. 降低儲備資金占用 7. 加快資金周轉，實現經濟效益 8. 強化財務監(jiān)控制，實現經 濟效益 9. 商業(yè)數據智能分析 二 詳細調查 （一）進銷存管理系統(tǒng)需求分析 根據以上對進銷存管理內容和進銷存管理系統(tǒng)的分析，一個標準的進銷存管理系統(tǒng)應該包括如圖 所示的幾大功能。 圖 主界面預覽 4 四 系統(tǒng)特點 進銷存管理系統(tǒng)的制作就是為了將進銷存管理變得簡單