【文章內(nèi)容簡介】 +數(shù)量 ALL)=0 then 進(jìn)價(jià) Else (庫存金額 +稅價(jià)合計(jì) ALL)/（庫存數(shù)量 +數(shù)量 ALL） end, 庫存數(shù)量 =庫存數(shù)量 +數(shù)量 ALL， 庫存金額 =case when 庫存數(shù)量 =0 or（庫存數(shù)量 +數(shù)量 ALL） =0 then 進(jìn)價(jià) +（庫存數(shù)量 +數(shù)量 ALL） Else (庫存金額 +稅價(jià)合計(jì) ALL) end, 最新進(jìn)價(jià) =進(jìn)價(jià) FROM （ SELECT 倉庫，貨號(hào)，‘?dāng)?shù)量 ALL’ =sum（進(jìn)貨數(shù)量），‘進(jìn)價(jià)’ =sum（稅價(jià)合計(jì)） / sum（進(jìn)貨數(shù)量），‘稅價(jià)合計(jì) ALL’ =sum（稅價(jià)合計(jì)） FROM 進(jìn)貨單明細(xì) GROUP BY 倉庫，貨號(hào)） AS LSJ WHERE 庫存庫 .倉庫 = AND 庫存庫 .貨號(hào) = INSERT INTO 應(yīng)付款（編號(hào)，進(jìn)貨單號(hào)，貨號(hào)，進(jìn)貨商號(hào)，數(shù)量，進(jìn)貨單價(jià)，金額，進(jìn)貨日期，狀態(tài)） SELECT ‘付’ +， ， ， ，進(jìn)貨數(shù)量，進(jìn)價(jià)， ，進(jìn)貨日期，‘應(yīng)付’ FROM 進(jìn)貨單明細(xì) as as b Where = INSERT INTO 進(jìn)貨單歷史 SELECT * FROM 進(jìn)貨單 INSERT INTO 進(jìn)貨單明細(xì)歷史 SELECT * FROM 進(jìn)貨單明細(xì) Delete from 進(jìn)貨單明細(xì) Delete from 進(jìn)貨單 Commit 14 Go CREATE PROCEDURE sf_銷售單 @記賬人 char(10) = NULL AS Begin transaction UPDATA 庫存庫 SET 庫存數(shù)量 =庫存數(shù)量 數(shù)量 ALL，庫存金額 =庫存單價(jià) * (庫存數(shù)量 數(shù)量 ALL) FROM（ SELECT 倉庫，貨號(hào)，‘?dāng)?shù)量 ALL’ =sum（銷售數(shù)量） FROM 進(jìn)貨 單明細(xì) GROUP BY 倉庫，貨號(hào)） AS LSJ WHERE 庫存庫 .倉庫 = AND 庫存庫 .貨號(hào) = INSERT INTO 應(yīng)付款（編號(hào)，銷售單號(hào)，貨號(hào)，客戶編號(hào)，數(shù)量，銷售價(jià)，金額，銷售日期，狀態(tài)） SELECT ‘收’ +， ， ， ，銷售數(shù)量，銷售價(jià)， 合計(jì)，進(jìn)貨日期，‘應(yīng)收’ FROM 銷售單明細(xì) as as b Where = INSERT INTO 銷售單歷史 SELECT * FROM 銷售單 INSERT INTO 銷售單明細(xì)歷史 SELECT * FROM 銷售單明細(xì) Delete from 銷售單明細(xì) Delete from 銷售單 Commit Go 四 .窗體設(shè)計(jì) （一）創(chuàng)建系統(tǒng)主窗體 ，并將其對(duì)應(yīng)的文件更名為 ,為其添加一個(gè)主菜單（ MainMenu）控件。 ： 對(duì)象（控件）名 屬性 取值（說明） frmMain Name frmMain frmMain Caption 進(jìn)銷存管理 frmMain IsMdiContainer True frmMain StartPosition CenterScreen frmMain WindowState Maximized 表 ，編輯菜單。 frmMain 對(duì)應(yīng)的代碼文件中添加私有變量以及程序入口函數(shù) Main. Public UserId As String 39。整個(gè)程序的入口 Public Shared Sub Main() 39。顯示登陸對(duì)話框 15 Dim loginFrm As frmLogin = New frmLogin () 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)擊確定。 GetInstanceState,此函數(shù)的主要作用是實(shí)現(xiàn)單機(jī)主窗體的某菜單項(xiàng)，如 [進(jìn)貨單 ]只是出現(xiàn)一個(gè)進(jìn)貨單子窗體。 Private Function GetInstanceState(ByVal name As String) As Boolean 39。獲得 frmMain窗體的子窗體的數(shù)量 Dim i As Integer = 39。循環(huán)判斷是否有名為 name的子窗體實(shí)例 For i = 0 To 1 If (i).Name = name Then 39。存在名為 name的子窗體，是子窗體獲得焦點(diǎn)并返回 True (i).Focus() Return True End If Next 39。不存在名為 Name的子窗體 False Return False End Function [商品資料維護(hù) ]的 Click事件添加相應(yīng)函數(shù)。 Private Sub MenuItemGoodsInfo_Click(ByVal sender As , _ ByVal e As ) Handles 39。判斷商品資料維護(hù)窗體是是否已經(jīng)創(chuàng)建 If GetInstanceState(frmGoodsInfo) Then 39。商品資料維護(hù)窗體已經(jīng)創(chuàng)建并返回 Exit Sub End If 39。創(chuàng)建并顯示商 品資料維護(hù)窗體 Dim childFrm As frmGoodsInfo = New frmGoodsInfo = Me () End Sub 其他菜單的 Click事件相應(yīng)代碼已上面的基本一致，這里不再一一敘述。 （二）創(chuàng)建數(shù)據(jù)訪問模塊 16 因?yàn)楦鱾€(gè)窗體均需要對(duì)數(shù)據(jù)庫進(jìn)行訪問，可以把數(shù)據(jù)庫的一些操作通過一個(gè)類實(shí)現(xiàn)，這樣可以使對(duì)數(shù)據(jù)庫的訪問更加簡單。 [文件 ]|[添加新項(xiàng) ]命令添加一個(gè)名 為“ ” 的類文件。 。 Imports Imports Imports Public Class DataBase 39。實(shí)現(xiàn)接口 IDisposable Implements IDisposable 39。數(shù)據(jù)庫連接對(duì)象 Private SqlConn As SqlConnection Public Shared sConn As String = Persist Security Info=False。 _ + Integrated Security=SSPI。database=jxcbook。 _ + server=localhost。Connect Timeout=30 Public Sub Dispose() Implements Dispose(True) (True) End Sub Protected Sub Dispose(ByVal disposing As Boolean) If disposing True Then Return End If If SqlConn Is Nothing = False Then () SqlConn = Nothing End If End Sub Public Sub Open() If SqlConn Is Nothing = True Then 39。建立數(shù)據(jù)庫連接對(duì)象 SqlConn = New SqlConnection() 39。打開數(shù)據(jù)庫連接 () End If End Sub Public Sub Close() 39。如果數(shù)據(jù)庫連接對(duì)象不為空則關(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 （三）實(shí)現(xiàn)系統(tǒng)登錄功能 在用戶輸入“用戶號(hào)”和“密碼”后對(duì)用戶的輸入進(jìn)行驗(yàn)證，并記錄登錄用戶的姓名和用戶名，供系統(tǒng)使用。 各控件的屬性設(shè)置如下。 控件類型 對(duì)象名 屬性 取值（說明） Form frmLogin Caption 登錄 Form frmLogin Position CenterScreen Form frmLogin FormBorderStyle Fixen3D Label lblUserID Text 用戶編號(hào) 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類添加如下兩個(gè)公共變量。 39。用于返回登陸結(jié)果 Public bResult As Boolean = False 39。登陸用戶的 ID Public UserId As String = 18 39。登陸的用戶名 Public UserName As String = 39。登陸的用戶密碼 Private UserPwd As String = 為文本 txbUserId,txbPwd分別添加 KeyPress時(shí)間相應(yīng)函數(shù)。 Private Sub txbPwd_KeyPress(ByVal sender As Objec