【正文】 [銀行帳號(hào) ] [varchar] (20) NULL, [稅號(hào) ] [varchar] (20) NULL, [庫房地址 ] [varchar] (40) NULL, [庫房電話 ] [varchar] (20) NULL, [業(yè)務(wù)員 ] [char] (10) NULL, [業(yè)務(wù)部門 ] [varchar] (20) NULL ） GO 創(chuàng)建“客戶清單”數(shù)據(jù)表 CREATE TABLE [dbo].[客戶清單 ] （ 10 [客戶編號(hào) ] [char] (10) NOT NULL Primary Key, [拼音編碼 ] [char] （ 20） NOT NULL， [簡(jiǎn)稱 ] [varchar] (80) NULL, [名稱 ] [varchar] (80) NULL， [聯(lián)系人 ] [varchar] (30) NULL， [地址 ] [varchar] (80) NULL, [郵編 ] [char] (6) NULL, [區(qū)號(hào) ] [char] (6) NULL， [地區(qū) ] [varchar] (12) NULL, [電話 ] [varchar] (20) NULL， [傳真 ] [varchar] (20) NULL， [電報(bào) ] [varchar] (20) NULL, [開戶行 ] [varchar] (40) NULL, [開戶行郵編 ] [char] (6) NULL， [銀行帳號(hào) ] [varchar] (20) NULL， [稅號(hào) ] [varchar] (20) NULL， [性質(zhì) ] [varchar] (10) NULL, [業(yè)務(wù)員 ] [char] (10) NULL, [業(yè)務(wù)部門 ] [varchar] (20) NULL， [授信額度 ] [decimal] (28,6) NULL, ） GO 創(chuàng)建“進(jìn)貨單和進(jìn)貨單明細(xì)”數(shù)據(jù)表 CREATE TABLE [dbo].[進(jìn)貨單 ] （ [編號(hào) ] [char] (14) NOT NULL Primary Key, [供貨商號(hào) ] [char] （ 10） NOT NULL， [進(jìn)貨日期 ] [datetime] NULL, [業(yè)務(wù)員 ] [char] (10) NULL， [制單人 ] [char] (10) NULL， [驗(yàn)收員 ] [char] (10) NULL， [保管人 ] [char] (10) NULL， [稅價(jià)合計(jì) ] [decimal] (28,6) NULL, [不含稅價(jià) ] [decimal] (28,6) NULL, [稅額 ] [decimal] (28,6) NULL, [訂單號(hào) ] [char] (14) NULL ） GO CREATE TABLE [dbo].[進(jìn)貨單明細(xì) ] （ [編號(hào) ] [char] (14) NOT NULL Primary Key, [進(jìn)貨單號(hào) ] [char] （ 14） NOT NULL， [貨號(hào) ] [char] (14) NOT NULL, [進(jìn)貨 數(shù)量 ] [decimal] (28,6) NOT NULL， [進(jìn)價(jià) ] [decimal] (28,6) NULL， [稅價(jià)合計(jì) ] [decimal] (28,6) NULL， 11 [扣率 ] [decimal] (28,6) NULL， [稅率 ] [decimal] (28,6) NULL, [不含稅價(jià) ] [decimal] (28,6) NULL, [稅額 ] [decimal] (28,6) NULL, [倉庫 ] [char] (20) NULL， [貨物質(zhì)量 ] [varchar] （ 50） NULL ） GO 創(chuàng)建“銷售單和銷售單明細(xì)”數(shù)據(jù)表 CREATE TABLE [dbo].[銷售單 ] （ [編號(hào) ] [char] (14) NOT NULL Primary Key, [客戶編號(hào) ] [char] （ 10） NOT NULL， [銷售日期 ] [datetime] NULL, [業(yè)務(wù)員 ] [char] (10) NULL， [制單人 ] [char] (10) NULL， [保管人 ] [char] (10) NULL， [稅價(jià)合計(jì) ] [decimal] (28,6) NULL, [不含稅價(jià) ] [decimal] (28,6) NULL, [稅額 ] [decimal] (28,6) NULL, [訂單號(hào) ] [char] (14) NOT NULL ） GO CREATE TABLE [dbo].[銷售單明細(xì) ] （ [編號(hào) ] [char] (14) NOT NULL Primary Key, [銷售單號(hào) ] [char] （ 14） NOT NULL， [貨號(hào) ] [char] (14) NOT NULL, [銷售數(shù)量 ] [decimal] (28,6) NOT NULL， [銷售價(jià) ] [decimal] (28,6) NULL， [稅價(jià)合計(jì) ] [decimal] (28,6) NULL， [扣率 ] [decimal] (28,6) NULL， [稅率 ] [decimal] (28,6) NULL, [不含稅價(jià) ] [decimal] (28,6) NULL, [稅額 ] [decimal] (28,6) NULL, [倉庫 ] [char] (20) NULL ） GO 創(chuàng)建起他重要數(shù)據(jù)表 CREATE TABLE [dbo].[庫存庫 ] （ [貨號(hào) ] [char] (14) NOT NULL, [倉庫 ] [varchar] （ 20） NOT NULL， [庫存數(shù)量 ] [decimal] (28,6) NOT NULL， [庫存金額 ] [decimal] (28,6) NOT NULL， [庫存單價(jià) ] [decimal] (28,6) NOT NULL， [最新進(jìn)價(jià) ] [decimal] (28,6) NULL， 12 ） GO CREATE TABLE [dbo].[權(quán)限清單 ] （ [權(quán)限序號(hào) ] [int] IDENTITY (1,1) NOT NULL， [用戶編號(hào) ] [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 （ [供貨商號(hào) ] ） REFERENCES [dbo].[供貨商清單 ]（ [供貨商號(hào) ] ） GO ALTER TABLE [dbo].[進(jìn)貨單明細(xì) ] ADD CONSTRAINT [FK_進(jìn)貨單明細(xì) _進(jìn)貨單 ] FOREIGN KEY （ [進(jìn)貨單號(hào) ] ） REFERENCES [dbo].[進(jìn)貨單 ]（ [編號(hào) ] ）， CONSTRAINT [進(jìn)貨單明細(xì) _貨號(hào) _fk] FOREIGN KEY （ [貨號(hào) ] ） REFERENCES [dbo].[商品清單 ]（ [貨號(hào) ] ） GO ALTER TABLE [dbo].[銷售單 ] ADD CONSTRAINT [銷售單 _客戶編號(hào) _fk] FOREIGN KEY （ [客戶編號(hào) ] ） REFERENCES [dbo].[客戶清單 ]（ [客戶編號(hào) ] ） GO ALTER TABLE [dbo].[銷售單明細(xì) ] ADD CONSTRAINT [FK_銷售單明細(xì) _銷售單 ] FOREIGN KEY （ [銷售單號(hào) ] 13 ） REFERENCES [dbo].[客戶清單 ]（ [編號(hào) ] ）， CONSTRAINT [銷售單明細(xì) _貨號(hào) _fk] FOREIGN KEY （ [貨號(hào) ] ） REFERENCES [dbo].[商品清單 ]（ [貨號(hào) ] ） GO （四）創(chuàng)建存儲(chǔ)過程 系統(tǒng)使用了兩個(gè)存儲(chǔ)過程，分別實(shí)現(xiàn)進(jìn)貨時(shí)增加庫存、產(chǎn)生應(yīng)付款和銷售時(shí)減少庫存、產(chǎn)生應(yīng)收款的功能。 ： 對(duì)象（控件）名 屬性 取值（說明） frmMain Name frmMain frmMain Caption 進(jìn)銷存管理 frmMain IsMdiContainer True frmMain StartPosition CenterScreen frmMain WindowState Maximized 表 ，編輯菜單。整個(gè)程序的入口 Public Shared Sub Main() 39。合法用戶進(jìn)入系統(tǒng) If = True Then Dim frm As frmMain = New frmMain = = (frm) End If ，選擇 [項(xiàng)目 ]|[進(jìn)銷存管理 屬性 ]命令，在彈出的對(duì)話框中的 [啟動(dòng)對(duì)象 ]下拉列表中選擇 Sub Main，點(diǎn)擊確定。 Private Function GetInstanceState(ByVal name As String) As Boolean 39。循環(huán)判斷是否有名為 name的子窗體實(shí)例 For i = 0 To 1 If (i).Name = name Then 39。不存在名為 Name的子窗體 False Return False End Function [商品資料維護(hù) ]的 Click事件添加相應(yīng)函數(shù)。判斷商品資料維護(hù)窗體是是否已經(jīng)創(chuàng)建 If GetInstanceState(frmGoodsInfo) Then 39。創(chuàng)建并顯示商 品資料維護(hù)窗體 Dim childFrm As frmGoodsInfo = New frmGoodsInfo = Me () End Sub 其他菜單的 Click事件相應(yīng)代碼已上面的基本一致，這里不再一一敘述。 [文件 ]|[添加新項(xiàng) ]命令添加一個(gè)名 為“ ” 的類文件。 Imports Imports Imports Public Class DataBase 39。數(shù)據(jù)庫連接對(duì)象 Private SqlConn As SqlConnection Public Shared sConn As String = Persist Security Info=False。database=jxcbook。Connect Timeout=30 Public Sub Dispose() Implements Dispose(True) (True) End Sub Protected Sub Dispose(ByVal disposing As Boolean)