【正文】 ] [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, [倉(cāng)庫(kù) ] [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, [倉(cāng)庫(kù) ] [char] (20) NULL ） GO 創(chuàng)建起他重要數(shù)據(jù)表 CREATE TABLE [dbo].[庫(kù)存庫(kù) ] （ [貨號(hào) ] [char] (14) NOT NULL, [倉(cāng)庫(kù) ] [varchar] （ 20） NOT NULL， [庫(kù)存數(shù)量 ] [decimal] (28,6) NOT NULL， [庫(kù)存金額 ] [decimal] (28,6) NOT NULL， [庫(kù)存單價(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ǔ)過(guò)程 系統(tǒng)使用了兩個(gè)存儲(chǔ)過(guò)程，分別實(shí)現(xiàn)進(jìn)貨時(shí)增加庫(kù)存、產(chǎn)生應(yīng)付款和銷售時(shí)減少庫(kù)存、產(chǎn)生應(yīng)收款的功能。整個(gè)程序的入口 Public Shared Sub Main() 39。 Private Function GetInstanceState(ByVal name As String) As Boolean 39。不存在名為 Name的子窗體 False Return False End Function [商品資料維護(hù) ]的 Click事件添加相應(yīng)函數(shù)。創(chuàng)建并顯示商 品資料維護(hù)窗體 Dim childFrm As frmGoodsInfo = New frmGoodsInfo = Me () End Sub 其他菜單的 Click事件相應(yīng)代碼已上面的基本一致，這里不再一一敘述。 Imports Imports Imports Public Class DataBase 39。database=jxcbook。打開(kāi)數(shù)據(jù)庫(kù)連接 () End If End Sub Public Sub Close() 39。 39。登陸的用戶密碼 Private UserPwd As String = 為文本 txbUserId,txbPwd分別添加 KeyPress時(shí)間相應(yīng)函數(shù)。將焦點(diǎn)移到 txbPwd () End If End Sub 為文本框 txbUserId添加 LostFocus事件相應(yīng)函數(shù)。 _ + () + 39。用戶 ID存在 UserId = () 39。判斷用戶輸入密碼的合法性 If () = () _ And UserPwd Then 39。關(guān)閉整個(gè)程序 () End Sub 運(yùn)行程序可以看到，系統(tǒng)首先要求用戶輸入用戶名和密碼，并與“用戶清單”中的信息進(jìn)行對(duì)比，認(rèn)證通過(guò)后才可以進(jìn)入系統(tǒng)。 2.[數(shù)據(jù)鏈接屬性 ]對(duì)話框設(shè)置完畢后單機(jī) [確定 ]按鈕返回到 [數(shù)據(jù)適配器配置向?qū)?]，單擊[下一步 ]按鈕繼續(xù)，要求選擇查詢類型（如圖 ），直接使用默認(rèn)的 [使用 SQL 語(yǔ)句 ]選項(xiàng)。 SqlDataAdapter1 對(duì)象，在彈出的快捷菜單中選擇 [生成數(shù)據(jù)集 ]菜單命令。用于判斷雙擊是否關(guān)閉 Public bClose = False 39。定義 一個(gè) DataGrid列樣式 Dim aColumnTextColumn As DataGridTextBoxColumn 39。設(shè)置 NullText屬性為空 = 39。將列樣式添加到表樣式中 (aColumnTextColumn) Next 39。設(shè)置 dgdGoodInfo的數(shù)據(jù)源 = (商品清單 ).TableName = _ (商品清單 ).DefaultView End Sub 為按鈕 dgdGoodInfo 的 DoubleClick 事件添加事件相應(yīng)代碼。記住在 dgdGoodInfo點(diǎn)下鼠標(biāo)的時(shí)間 gridMouseDownTime = End Sub Private Sub DGDoubleClick(ByVal sender As Object, _ ByVal e As MouseEventArgs) 39。如果商品拼音不為空進(jìn)行查詢 39。 End If = strSQL 39。 39。設(shè)置 MyCombo的 Name以及 Visible屬性 = MyCombo 24 = False = 39。 Private Sub Ctrls_TextChanged(ByVal sender As Object, _ ByVal e As ) 39。設(shè)置當(dāng)前單元格的值為 MyCombo選中的項(xiàng)的 Text () = End If End Sub 這里有個(gè)的 = 4 中的 4 不是固定的，而是要看 MyCombo 要加在哪一列，本程序是要加在 [單位 ]這一列。設(shè)置 MyCombo的 Visible， Width屬性 = False = 0 End Sub Private Sub dgdGoodInfo_CurrentCellChanged(ByVal sender _ As Object, ByVal e As ) Handles _ If = 4 Then = False = 0 25 = = = _ () amp。即 DataGrid控件上是否有數(shù)據(jù)更改或新增數(shù)據(jù) If Then 39。如果用戶確認(rèn)要?jiǎng)h除記錄 If (你確認(rèn)要?jiǎng)h除此條記錄嗎？ , _ Confirm, ) _ = Then 39。這里