【正文】 End If End If End Iferr:End SubPrivate Sub Text6_LostFocus() On Error GoTo myerr If And Then 39。 只有兩個(gè)文本框中都輸入了內(nèi)容時(shí)才能計(jì)算金額 = Trim() * Trim() End If Exit Submyerr: If MsgBox(價(jià)格必須是數(shù)值，數(shù)量必須是整數(shù)！, vbInformation, 提示！) Then GoTo myerr1myerr1:End SubPrivate Sub Combo1_lostfocus() connstring = Provider=。Password=ecc。Persist Security Info=True。User ID=sa。 _ amp。 Initial Catalog=purchaseandSale。Server=(local) If 1 Then 39。連接數(shù)據(jù)庫(kù) (connstring) End If 39。在Product數(shù)據(jù)表中檢索商品名稱為Combo1中輸入的值的記錄，將結(jié)果保存到rs記錄集中 Set rs = (select 產(chǎn)地,規(guī)格,包裝,單位 from product where 商品名稱=39。 _ amp。 Trim() amp。 39。) With rs .MoveFirst Do While Not .EOF 39。將檢索結(jié)果在相應(yīng)的控件上顯示出來(lái) DoEvents = !規(guī)格 = !包裝 = !單位 = !產(chǎn)地 .MoveNext Loop End WithEnd SubPrivate Sub Text8_LostFocus() On Error GoTo myerr If And Then 39。 只有兩個(gè)文本框中都輸入了內(nèi)容時(shí)才能計(jì)算金額 = Trim() * Trim() End If Exit Submyerr: If MsgBox(價(jià)格必須是數(shù)值，數(shù)量必須是整數(shù)！, vbInformation, 提示！) Then GoTo myerr1 myerr1:End Sub菜單欄中的第2項(xiàng)是銷售單。當(dāng)每次有產(chǎn)品銷售出的時(shí)候，都要生成一張銷售單。設(shè)計(jì)銷售單的操作步驟如下：（1） 按照前述方法在應(yīng)用程序中新增一個(gè)Windows窗口frmXSD。（2） 在窗口中添加控件，并設(shè)置相關(guān)屬性。（3） 按照前述方法創(chuàng)建Adodc控件adoXSD，連接到數(shù)據(jù)庫(kù)PurchaseandSale。（4） 依照采購(gòu)的設(shè)計(jì)步驟完成銷售單界面部分的設(shè)計(jì)，如下圖11所示。圖11 銷售單窗體（5） 當(dāng)在主窗口菜單欄中依次選擇“日常業(yè)務(wù)”→“銷售單”菜單項(xiàng)時(shí)，需要加載frmXSD窗體。同時(shí)，為了防止銷售出庫(kù)操作時(shí)其他操作引起數(shù)據(jù)不一致，此時(shí)應(yīng)該禁用frmMain主窗體。（6） 當(dāng)在主窗口串單擊工具欄中的銷售單按鈕時(shí)，直接調(diào)用“銷售單”菜單項(xiàng)的單擊事件。在主窗口中雙擊工具欄，進(jìn)入工具欄的按鈕事件的響應(yīng)代碼中，輸入如下代碼：Private Sub Form_Load() On Error GoTo myerr 39。有異常跳轉(zhuǎn) = adCmdText = select 商品名稱 from Product where 庫(kù)存0 39。設(shè)置adoxsd的數(shù)據(jù)源為Product數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開(kāi)始逐條添加到Combo1的子項(xiàng)中 DoEvents (!商品名稱) .MoveNext Loop End With = select 用戶 from Users 39。設(shè)置adoxsd的數(shù)據(jù)源為Users數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開(kāi)始逐條添加到Combo2的子項(xiàng)中 DoEvents (!用戶) .MoveNext Loop End With = select 客戶簡(jiǎn)稱 from Customer 39。設(shè)置adoxsd的數(shù)據(jù)源為Customer數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開(kāi)始逐條添加到Combo3的子項(xiàng)中 DoEvents (!客戶簡(jiǎn)稱) .MoveNext Loop End With = select 票號(hào) from Sale order by 票號(hào) 39。設(shè)置adoxsd的數(shù)據(jù)源為Sale數(shù)據(jù)表 With If .RecordCount 0 Then 39。如果已有記錄則在原來(lái)的序號(hào)上遞增 .MoveLast If !票號(hào) Then Dim lsph As String lsph = Right(Trim(!票號(hào)), 3) + 1 = $ amp。 S amp。 Format(lsph, 000) End If Else 39。如果還沒(méi)有記錄則序號(hào)開(kāi)始為001 = $ amp。 S amp。 001 End If End With = $ 39。系統(tǒng)當(dāng)前日期的字符串形式賦值myerr:End SubPrivate Sub Form_Unload(Cancel As Integer) 39。將主窗體設(shè)置為可用，并將其顯示 = True End SubPrivate Sub Picture1_Click() On Error GoTo err 39。首先檢查商品名稱字段。如果為空，則提示不能為空，然后將焦點(diǎn)轉(zhuǎn)移到Combo1上 If Trim() = Then If MsgBox(商品名稱字段是必須要輸入的！, vbExclamation, 提示！) = vbOK Then End If Else 39。檢查數(shù)量字段。如果為空，則提示不能為空，然后將焦點(diǎn)轉(zhuǎn)移到Text8上 If = Then If MsgBox(數(shù)量字段是必須要輸入的！, vbExclamation, 提示！) = vbOK Then End If Else 39。檢查單價(jià)字段。如果為空，則提示不能為空，然后將焦點(diǎn)轉(zhuǎn)移到Text6上 If = Then If MsgBox(單價(jià)字段是必須要輸入的！, vbExclamation, 提示！) Then End If Else 39。檢查客戶字段。如果為空，則提示不能為空，然后將焦點(diǎn)轉(zhuǎn)移到Combo3上 If Trim() = Then If MsgBox(客戶字段是必須要輸入的！, _ vbExclamation, 提示！) = vbOK Then End If Else 39。檢查經(jīng)手人字段。如果為空，則提示不能為空，然后將焦點(diǎn)轉(zhuǎn)移到Combo2上 If Trim() = Then If MsgBox(經(jīng)手人字段是必須要輸入的！, _ vbExclamation, 提示！) = vbOK Then End If Else 39。輸入檢測(cè)無(wú)誤后可以提交數(shù)據(jù) connstring = Provider=。Password=ecc。Persist Security _ amp。 Info=True。User ID=sa。Initial Catalog=PurchaseandSale。Server=(local) If 1 Then 39。打開(kāi)數(shù)據(jù)庫(kù) (connstring) End If Dim sql As String sql = insert into Sale (商品名稱, amp。 _ 數(shù)量,單價(jià),金額,備注,客戶,日期,經(jīng)手人,票號(hào)) amp。 _ values (39。 amp。 Trim() amp。 39。, _ amp。 Trim() amp。 , amp。 Trim() amp。 , _ amp。 Trim() amp。 ,39。 amp。 Trim() amp。 39。,39。 amp。 _ Trim() amp。 39。,39。 amp。 Trim() amp。 _ 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。) (sql) 39。執(zhí)行插入操作 39。如果沒(méi)有發(fā)生異常就表明插入操作成功，提示用戶，然后退出本窗口 If MsgBox(銷售單成功生成！, vbInformation, 提示) = vbOK Then Unload Me End If End If End If End If End If End Iferr:End SubPrivate Sub Text6_LostFocus() On Error GoTo myerr If And Then 39。 只有兩個(gè)文本框中都輸入了內(nèi)容時(shí)才能計(jì)算金額 = Trim() * Trim() End If Exit Submyerr: If MsgBox(價(jià)格必須是數(shù)值，數(shù)量必須是整數(shù)！, vbInformation, 提示！) Then GoTo myerr1myerr1:End SubPrivate Sub Combo1_lostfocus() connstring = P