汽車銷售管理系統(tǒng)的設(shè)計實現(xiàn)與汽車4s店銷售管理軟件的應(yīng)用-資料下載頁
2025-08-05 09:05本頁面
【正文】 IfDim rs As New select * from stock, gConn, adOpenDynamic, adLockOptimisticrs(汽車名稱) = Dim i As IntegerFor i = To (i).Value = txtIntem(i)Next imnQuantity = CInt(txtIntem(3)) mnQuantity update products set 庫存數(shù)量=庫存數(shù)量+ amp。 mnQuantity amp。 where 汽車名稱=39。 amp。 amp。 39。If mbAddMode Then mbChange = True MsgBox 添加進(jìn)貨信息成功！繼續(xù)添加下一條進(jìn)貨信息, vbOKOnly + vbExclamation, 添加進(jìn)貨信息 Unload Me vbModalElse Unload Me = select * from stock End IfExit SuberrHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub Form_Load()On Error GoTo errHandlerDim rs As New select distinct 汽車名稱 from products, gConn, adOpenKeysetIf Not Then Do While Not rs(汽車名稱) LoopElse MsgBox 當(dāng)前數(shù)據(jù)庫不包含任何的汽車信息。請先設(shè)置汽車信息！, vbOKOnly + vbExclamation, 警告 Exit SubEnd IfIf mbAddMode Then = amp。 添加 txtIntem(5) = Format(Date, yyyymmdd) txtIntem(3) = 0 txtIntem(4) = 10 mnQuantity = 0Else = amp。 修改 select * from stock where 順序號= amp。 mnSerial If Not Then = rs(汽車名稱) Dim i As Integer For i = To txtIntem(i) = (i).Value Next i End If mnQuantity = rs(進(jìn)貨數(shù)量) End IfmbChange = FalseExit SuberrHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub txtIntem_Change(Index As Integer)mbChange = TrueEnd SubPrivate Sub txtIntem_GotFocus(Index As Integer)txtIntem(Index).SelStart = 0txtIntem(Index).SelLength = Len(txtIntem(Index))End Sub
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1