客房管理系統(tǒng)論文和代碼-在線瀏覽
2024-08-03 02:21本頁面
【正文】 Click()Dim price As DoubleDim str As StringDim num As Integersql = select * from goods where 貨品編號=39。 Trim() amp。 sql, n, 1, 1num = rst(數(shù)量)If (num Val(Trim()) 11) Then k = MsgBox(對不起 你輸入的訂貨數(shù)量 低于藥品的警容線 10, , 提示) = Exit SubEnd IfIf ((Trim() = Or Trim() = Or Trim() = ) Or ( = False And = False)) Then k = MsgBox(請你認(rèn)真填寫每一選項, , 提示) Exit SubEnd Ifsql = select * from goods where 貨品編號=39。 Trim() amp。 sql, n, 1, 1If ( = 0) Then k = MsgBox(您輸入的藥品編號不存在!, , 提示) = Exit SubEnd Ifsql = select * from consumer where 訂貨商編號=39。 Trim() amp。 sql, n, 1, 3If ( = 0) Thenk = MsgBox(你輸入的訂貨商編號不存在 是否要添加該訂貨商記錄!, vbYesNo, 提示)ElseIf ( = True) Then sql = select * from goods where 貨品編號=39。 Trim() amp。 sql, n, 1, 1 price = rst(零售價) str = 零售End IfIf ( = True) Then sql = select * from goods where 貨品編號=39。 Trim() amp。 sql, n, 1, 1 price =
研究報告相關(guān)推薦
鄂ICP備17016276號-1