進(jìn)銷存管理系統(tǒng)優(yōu)秀畢業(yè)論文-文庫吧資料
2025-06-26 12:46本頁面
【正文】 kcStr = (kc) If CSng(Trim(kcStr)) CSng(Trim()) Then MsgBox 對不起，商店沒有那么多該類商品！, 48, 進(jìn)銷存管理系統(tǒng) Else Call Main Set adoRs = (insert into LSXSB values(39。新定義的變量Public kcStr As StringPublic slStr As StringPublic maxXsbh As IntegerPrivate Sub Command1_Click() If = Then MsgBox 請選擇你所要購買商品的商品編號, 48, 進(jìn)銷存管理系統(tǒng) Else If = Then MsgBox 請輸入你要購買的數(shù)量, 48, 進(jìn)銷存管理系統(tǒng) Else = select * from GOODS where spbh = 39。雙擊的話，在text中顯示該行商品信息 If 0 Then = (0).CellValue() = (1).CellValue() = (2).CellValue() = (3).CellValue() = (4).CellValue() = (5).CellValue() = (6).CellValue() End IfEnd SubPrivate Sub Form_Activate() = select distinct splb from goods If = 0 Then MsgBox 無任何庫存商品, 48, 進(jìn)銷存管理系統(tǒng) Else Do Until (splb) Loop End IfEnd SubPrivate Sub Option1_Click() = False = False = = True = = False = = FalseEnd SubPrivate Sub Option2_Click() = False = False = = False = = True = = FalseEnd SubPrivate Sub Option3_Click() = False = False = = False = = False = = TrueEnd Sub ．商品銷售（frmSPXS）代碼：Public spmcStr As String 39。 If = 0 Then MsgBox 錯誤, 48, 進(jìn)銷存管理系統(tǒng) End If End If End If End If End IfEnd SubPrivate Sub Command2_Click() End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Command4_Click() = select * from goods If = 0 Then MsgBox 商店無庫存商品, 48, 進(jìn)銷存管理系統(tǒng) End IfEnd SubPrivate Sub DataGrid1_Click() 39。 If = 0 Then MsgBox 無該商品, 48, 進(jìn)銷存管理系統(tǒng) End If End If Else If = True Then If = Then MsgBox 查詢的商品類別不可為空, 48, 進(jìn)銷存管理系統(tǒng) Else = select * from goods where splb = 39。 If = 0 Then MsgBox 無該商品, 48, 進(jìn)銷存管理系統(tǒng) End If End If Else If = True Then If = Then MsgBox 商品名稱不可為空, 48, 進(jìn)銷存管理系統(tǒng) Else = select * from goods where spmc = 39。有問題 If = True Then If = Then MsgBox 商品編號不可為空, 48, 進(jìn)銷存管理系統(tǒng) Else = select * from goods where spbh = 39。 + + 39。) MsgBox 信息修改成功, 48, 進(jìn)銷存管理系統(tǒng) = True = 修改 Call cleanAll End If End If End SubPrivate Sub Command3_Click() 39。 where spbh = 39。,bz = 39。,gys = 39。,dj = 39。,kc = 39。,splb = 39。 If = 0 Then MsgBox 對不起,該商品不存在，請重新輸入, 48, 進(jìn)銷存管理系統(tǒng) Else = False
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1