【正文】 ] （ [貨號 ] [char] (14) NOT NULL, [倉庫 ] [varchar] （ 20） NOT NULL， [庫存數(shù)量 ] [decimal] (28,6) NOT NULL， [庫存金額 ] [decimal] (28,6) NOT NULL， [庫存單價 ] [decimal] (28,6) NOT NULL， [最新進(jìn)價 ] [decimal] (28,6) NULL， 12 ） GO CREATE TABLE [dbo].[權(quán)限清單 ] （ [權(quán)限序號 ] [int] IDENTITY (1,1) NOT NULL， [用戶編號 ] [char] (6) NULL, [部門 ] [char] （ 20） NULL， [權(quán)限名稱 ] [char] (6) NOT NULL ） GO 創(chuàng)建外部關(guān)鍵字 ALTER TABLE [dbo].[進(jìn)貨單 ] ADD CONSTRAINT [進(jìn)貨單 _供貨商 _fk] FOREIGN KEY （ [供貨商號 ] ） REFERENCES [dbo].[供貨商清單 ]（ [供貨商號 ] ） GO ALTER TABLE [dbo].[進(jìn)貨單明細(xì) ] ADD CONSTRAINT [FK_進(jìn)貨單明細(xì) _進(jìn)貨單 ] FOREIGN KEY （ [進(jìn)貨單號 ] ） REFERENCES [dbo].[進(jìn)貨單 ]（ [編號 ] ）， CONSTRAINT [進(jìn)貨單明細(xì) _貨號 _fk] FOREIGN KEY （ [貨號 ] ） REFERENCES [dbo].[商品清單 ]（ [貨號 ] ） GO ALTER TABLE [dbo].[銷售單 ] ADD CONSTRAINT [銷售單 _客戶編號 _fk] FOREIGN KEY （ [客戶編號 ] ） REFERENCES [dbo].[客戶清單 ]（ [客戶編號 ] ） GO ALTER TABLE [dbo].[銷售單明細(xì) ] ADD CONSTRAINT [FK_銷售單明細(xì) _銷售單 ] FOREIGN KEY （ [銷售單號 ] 13 ） REFERENCES [dbo].[客戶清單 ]（ [編號 ] ）， CONSTRAINT [銷售單明細(xì) _貨號 _fk] FOREIGN KEY （ [貨號 ] ） REFERENCES [dbo].[商品清單 ]（ [貨號 ] ） GO （四）創(chuàng)建存儲過程 系統(tǒng)使用了兩個存儲過程，分別實現(xiàn)進(jìn)貨時增加庫存、產(chǎn)生應(yīng)付款和銷售時減少庫存、產(chǎn)生應(yīng)收款的功能。 圖 系統(tǒng)流程圖 8 三 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)只有用數(shù)據(jù)庫來管理才能有自動化管理的可能。 第一步，進(jìn)行登錄，如果成功則進(jìn)入第二步。其他涉及商品、供貨商 和客戶信息的表，都只記錄這些元素的編號，根據(jù)作為外鍵的“編號”字段來對應(yīng)。 4. 庫存管理：管理庫存信息，用于查詢企業(yè)商品的庫存。 database 。該系統(tǒng)使用 microsoft 公司的 Visual 作為前臺開發(fā)工具，微軟公司的 SQL Server 20xx 做后臺數(shù)據(jù)庫。 2. 進(jìn)貨管理：管理進(jìn)貨單信息，用于錄入企業(yè)的進(jìn)貨單，分為主從兩張表，主表“進(jìn)貨單”內(nèi)容包括編號、供貨商號、進(jìn)貨日期、業(yè)務(wù)員等，從表“進(jìn)貨單明細(xì)”內(nèi)容包括編號、進(jìn)貨單號、貨號、進(jìn)貨數(shù)量、進(jìn)價等。 第二章 系統(tǒng)分析 一 初步調(diào)查 （一）進(jìn)銷存管理的任務(wù) 1. 進(jìn)銷存管理工作的主要任務(wù)有： 2. 企業(yè)的采購管理 3. 企業(yè)的銷售管理（批發(fā)、零售、連鎖） 4. 企業(yè)各部門的商品配送管理 5. 企業(yè)庫存商品的管理 6. 企業(yè)應(yīng)收款，應(yīng)付款的管理 7. 企業(yè)經(jīng)營狀況分析與決策 （二）進(jìn)銷存管理系統(tǒng)的作用 1. 提高管理效率，降低人工成本 2. 降低采購成本 3. 及時調(diào)整營銷策略，防止價格流失 4. 防范陳呆死帳，降低應(yīng)收帳款 5. 減少倉儲面積，提高房產(chǎn)綜合利用 6. 降低儲備資金占用 7. 加快資金周轉(zhuǎn)，實現(xiàn)經(jīng)濟(jì)效益 8. 強(qiáng)化財務(wù)監(jiān)控制，實現(xiàn)經(jīng) 濟(jì)效益 9. 商業(yè)數(shù)據(jù)智能分析 二 詳細(xì)調(diào)查 （一）進(jìn)銷存管理系統(tǒng)需求分析 根據(jù)以上對進(jìn)銷存管理內(nèi)容和進(jìn)銷存管理系統(tǒng)的分析，一個標(biāo)準(zhǔn)的進(jìn)銷存管理系統(tǒng)應(yīng)該包括如圖 所示的幾大功能。 三 可行性分析 （一）系統(tǒng)功能分析 由于篇幅和時間有限，本設(shè)計詳細(xì)介紹如下圖所示功能的開發(fā)過程，并簡化其中各功能所包含的屬性，其他功能完全可以參照這些功能的開發(fā)方法實現(xiàn)。 庫存管理：在該模塊中可以 對庫存情況進(jìn)行一定條件下的查詢。 （一）數(shù)據(jù)庫結(jié)構(gòu)設(shè)計 本系統(tǒng)的數(shù)據(jù)比較復(fù)雜，存儲數(shù)據(jù)的表也比較多，如何讓各個表有機(jī)地結(jié)合起來充分發(fā)揮各自的作用，是結(jié)構(gòu)復(fù)雜數(shù)據(jù)庫的難點。顯示登陸對話框 15 Dim loginFrm As frmLogin = New frmLogin () 39。 Private Sub MenuItemGoodsInfo_Click(ByVal sender As , _ ByVal e As ) Handles 39。實現(xiàn)接口 IDisposable Implements IDisposable 39。如果數(shù)據(jù)庫連接對象不為空則關(guān)閉數(shù)據(jù)庫連接 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 （三）實現(xiàn)系統(tǒng)登錄功能 在用戶輸入“用戶號”和“密碼”后對用戶的輸入進(jìn)行驗證，并記錄登錄用戶的姓名和用戶名，供系統(tǒng)使用。 Private Sub txbPwd_KeyPress(ByVal sender As Object, _ ByVal e As KeyPressEventArgs) Handles 39。) 39。合法用戶 bResult = True UserName = () () Else 39。 [下一步 ]按鈕，繼續(xù)下一步驟。用于記錄在 DataGrid上雙擊時間 Private gridMouseDownTime As DateTime 為窗體 frmGoodsInfo 的 Load 事件添加事件相應(yīng)代碼。設(shè)置格式化文本的方法 = F 39。 Private Sub dgdGoodInfo_DoubleClick(ByVal sender As Object, _ ByVal e As ) Handles If bClose Then Close() End If End Sub 由于 .NET 的 DataGrid 不直接支持雙擊某個單元格的 DoubleClick 事件。清空 DataSet11商品清單表的內(nèi)容 (商品清單 ).Clear() 39。用于下拉列表的 ComboBox的對象 Public MyCombo As New ComboBox] 在 frmGoodsInfo 的 Load 事件相應(yīng)函數(shù)中添加如下代碼。判斷 DataGrid的當(dāng)前單元格是否屬于第四列 39。 = True Else = False = 0 End If End Sub Private Sub dgdGoodInfo_Paint(ByVal sender As Object, _ ByVal e As PaintEventArgs) Handles If = 4 Then = End If End Sub Private Sub dgdGoodInfo_Scroll(ByVal sender As Object, _ ByVal e As ) Handles = False = 0 End Sub 為工具欄 ToolBar1 控件的 Click 事件相應(yīng)函數(shù)添加代碼。從商品清單表刪除當(dāng)前被選中記錄 () (商品清單 ).Rows(iRow).Delete() Else Exit Sub End If TRY If Then 39。 控件類型 對象名 屬性 取值（說明） 27 Form frmOrderList Text 進(jìn)貨單 Label lblOrderDate Text 進(jìn)貨日期 TextBox txbOrderDate Text Label lblListMaker Text 制單人 TextBox txbListMaker Text Label lblWorker Text 業(yè)務(wù)員 ComboBox cbbWorker Text boBox cbbWorker DropDownStyle DropDownList Label lblSupplyId Text 供貨商號 TextBox txbSupplyId Text Label lblSupplyName Text 供貨商名稱 TextBox txbSupplyName Text LinkLabel linklbSupply Text 選擇 GroupBox grbOrderListDetail Text 進(jìn)貨單明細(xì) Label lblGoodId Text 貨號 TextBox txbGoodsId Text Label lblGoodName Text 品名 TextBox txbGoodsName Text Label lblUnit