【正文】 bOKOnly + vbExclamation, End Sub銷售登記窗體 Dim rs_add As New Dim rs_check As New Private Sub cmdpri_Click() 39。打印發(fā)票 = 8000 = 8000 = 1100 = 300 = 12 銷售發(fā)票單Dim a, B, C, D As Integera = 100B = 500C = 4800D = 400 = 10 = 100 + a = B + 200 時間： amp。 Date amp。 amp。 TimeB = B + D (a, B + 100)(C, B + 100) = 100 + a = B + 200 商品名稱： amp。 B = B + D = 100 + a = B + 200 商品型號： amp。 B = B + D = 100 + a = B + 200 商品單價： amp。 Format(, )B = B + D = 100 + a = B + 200 商品數(shù)量： amp。 B = B + D = 100 + a = B + 200 商品總價： amp。 Format(, )B = B + D (a, B + 100)(C, B + 100) = 1000 + a = B + 200 歡迎您下次光臨End SubPrivate Sub cmdSell_Click() = False If = Then MsgBox 請?zhí)顚憦S商名稱！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售年份！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售月份！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售日！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憳I(yè)務員姓名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懣偨痤~！, vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlcheck As String sqlcheck = select * from goods where 商品名=39。 amp。 amp。 _ 39。and 生產(chǎn)廠商=39。 amp。 amp。 39。and 型號=39。 amp。 amp。 39。 = adUseClient 39。設定游標類型 sqlcheck, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 對不起，此商品型號已無貨！請選擇其他型！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf (5) Val() Then MsgBox 此型號商品不足！, vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlsell As String sqlsell = select * from sell sqlsell, conn, adOpenKeyset, adLockPessimistic 39。添加入銷售表 (1) = (2) = (3) = (4) = (5) = Val() (6) = Val() (7) = (8) = (9) = (10) = 39。從現(xiàn)存商品表中減去 Dim oldquantity As Long 39。用于存放goods表中原來的此商品數(shù)量 Dim oldmoney As Long 39。用于存放goods表中原來的此商品進貨總額 oldquantity = (5) oldmoney = (6) (5) = oldquantity Val() (6) = oldmoney ((4)) * Val() MsgBox 銷售成功！, vbOKOnly + vbExclamation, 注意End Sub退貨登記 Dim rs_back As New Dim rs_check As New Dim rs_buy As New Private Sub cmdRetreat_Click() 39。需要進行三次數(shù)據(jù)庫操作，加入退貨表，加入現(xiàn)存商品表，從銷售表中減去 = False If = Then MsgBox 請?zhí)顚憦S商名稱！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浤攴荩? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浽路荩? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浫眨? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憳I(yè)務員姓名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf Val() = Then MsgBox 請?zhí)顚懲素浛偨痤~！, vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlcheck As String sqlcheck = select * from sell where 商品名=39。 amp。 amp。 _ 39。and 生產(chǎn)廠商=39。 amp。 amp。 39。and 型號=39。 amp。 amp。 39。 = adUseClient sqlcheck, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 對不起，沒有銷售此商品型號！無法退貨！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf ((5)) Val() Then 39。使用val 函數(shù)把text中的字符轉(zhuǎn)變?yōu)閿?shù)字 MsgBox 此型號商品退貨量大于銷售量！無法退貨！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。加入退貨表 Dim sqlback As String sqlback = select * from retreat sqlback, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Val() (6) = Val() (7) = (8) = (9) = (10) = 39。從銷售商品表中減去 Dim sqlbuy As String 39。以下兩變量用于保存未減去之前的相應項的值 Dim oldquantity As Long Dim oldmoney As Long odlmoney = (6) oldquantity = (5) (5) = oldquantity Val() (6) = oldmoney Val() 39。加入現(xiàn)存商品表中 sqlbuy = select * from goods sqlbuy, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Val() (6) = Val() (7) = (8) = (9) = (10) = MsgBox 退貨成功！, vbOKOnly + vbExclamation, 注意End Sub會員登記Option ExplicitDim rs_addcl As New Private Sub Command1_Click() Text1(0).Enabled = False If Text1(1).Text = Then MsgBox 請?zhí)顚懶彰? vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(2).Text = Then MsgBox 請?zhí)顚戨娫挘? vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub ElseIf Text1(3).Text = Then MsgBox 請?zhí)顚懙刂罚? vbOKOnly + vbInformation, 注意 Text1(3).SetFocus