汽車(chē)銷(xiāo)售管理系統(tǒng)報(bào)告(編輯修改稿)
2025-08-31 03:06 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 注：進(jìn)入此頁(yè)面可以進(jìn)行進(jìn)貨管理【數(shù)據(jù)庫(kù)的試運(yùn)行】在原有系統(tǒng)的數(shù)據(jù)有一小部分已輸入數(shù)據(jù)庫(kù)后，我們就可以開(kāi)始對(duì)數(shù)據(jù)庫(kù)系統(tǒng)進(jìn)行聯(lián)合調(diào)試，即數(shù)據(jù)庫(kù)的試運(yùn)行。這一階段要實(shí)際運(yùn)行數(shù)據(jù)庫(kù)應(yīng)用程序，執(zhí)行對(duì)數(shù)據(jù)庫(kù)的各種操作，測(cè)試應(yīng)用程序的功能是否滿足設(shè)計(jì)要求。添加代碼如下:Private Sub Command1_Click()On Error GoTo ErrorHandle If Text1 = Then MsgBox 請(qǐng)輸入Car_id！, vbInformation Else Dim sql As String sql = insert into car values(39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。, amp。 Text4 amp。 , amp。 Text5 amp。 ) MsgBox (sql) (sql) Text1 = End IfExit SubErrorHandle:MsgBox 車(chē)輛信息輸入有誤，請(qǐng)檢查Car_id是否重復(fù)！End Sub刪除代碼如下：Private Sub Command2_Click() End Sub退出代碼如下：Private Sub Command3_Click() Unload MeEnd Sub（汽車(chē)信息查詢） 代碼：Private Sub Command4_Click() Dim temp1 temp1 = 0 Dim sql As String sql = 轎車(chē)信息管理：查看轎車(chē)信息、轎車(chē)入庫(kù)、轎車(chē)出庫(kù)這里列舉轎車(chē)入庫(kù)圖示：型號(hào)：大眾CC 品牌：大眾價(jià)格：300000 測(cè)試結(jié)果：汽車(chē)信息查詢完成經(jīng)測(cè)試，查看轎車(chē)信息、轎車(chē)出庫(kù)正確運(yùn)行 If = Then MsgBox ( 請(qǐng)輸入出貨名) Exit Sub End If If Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + Car_id=39。 + + 39。 temp1 = temp1 + 1 End If sql = select Car_id,Car_name,Factory_name,Car_price,Car_num from car + sql MsgBox (sql) = sql End Sub代碼如下：Private Sub Command5_Click() Dim temp1 te
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1