【正文】 碼一致，數(shù)據(jù)庫的記錄將更新 五、客戶添加代碼單擊重新添加按鈕可以清空所有輸入框，代碼如下：Private Sub cmdsaveagain_Click()Unload frmkehuEnd Sub單擊取消按鈕取消添加添加客戶信息，代碼如下：Private Sub cmdcancel_Click() If mblchange And Then If MsgBox(保存當(dāng)前記錄的變化嗎？, vbOKOnly + vbExclamation, 警告) = vbOK Then Call cmdSave_Click End If End If Unload MeEnd Sub用戶輸入內(nèi)容完畢之后，單擊保存按鈕將觸發(fā)Click 事件，代碼如下：Private Sub cmdSave_Click() Dim intcount As Integer Dim i As Integer ‘定義數(shù)據(jù)集對象 Dim mrc As ‘定義字符串變量，返回查詢語句 Dim msgtext As String ‘判斷是否輸入信息 For intcount = 0 To 9 If Trim(txtitem(intcount) amp。 ) = Then Select Case intcount Case 0 semg = 公司名稱 Case 1 semg = 聯(lián)系人姓名 Case 2 semg = 聯(lián)系地址 Case 3 semg = 城市名稱 Case 4 semg = 地區(qū)名稱 Case 5 semg = 郵政編碼 Case 6 semg = 聯(lián)系電話 Case 7 semg = 傳真號碼 Case 8 semg = 公司主頁 Case 9 smeg = 備注信息 End Select smeg = smeg amp。 不能為空！ MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If ‘判斷輸入的郵政編碼是否是按格式 If Not IsNumeric(Trim(txtitem(5))) Then smeg = 郵政編碼 smeg = smeg amp。 請輸入數(shù)字! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End IfIf Not IsNumeric(Trim(txtitem(6))) Then smeg = 電話號碼 smeg = smeg amp。 請輸入數(shù)字! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End IfIf Not IsNumeric(Trim(txtitem(7))) Then smeg = 傳真號碼 smeg = smeg amp。 請輸入數(shù)字! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End If‘判斷是否有重復(fù)記錄 txtsql = select * from customer where panyname=39。 amp。 Trim(txtitem(0)) amp。 39。 Set mrc = ExecuteSQL(txtsql, msgtext) If = False Then MsgBox 已經(jīng)存在此客戶的記錄！, vbOKOnly + vbExclamation, 警告 txtitem(0).SetFocus Exit Sub End If txtsql = select * from customer ‘執(zhí)行查詢操作 Set mrc = ExecuteSQL(txtsql, msgtext) ‘添加記錄 Next intcount ‘給每個字段賦值 For i = 0 To 9 (i) = Trim(txtitem(i)) Next i MsgBox 添加客戶信息成功！, vbOKOnly + vbExclamation, 添加客戶信息 Unload Me End Sub六、客戶修改代碼定義數(shù)據(jù)集對象Dim mrc As ‘定義書簽，用來記載當(dāng)前記錄位置Dim mybookmark As Variant‘判斷是否修改記錄Dim mcclean As BooleanMyBookmark用來記錄數(shù)據(jù)集中當(dāng)前記錄的位置，mcclean作為一個標(biāo)志記錄是否修改記錄。程序在窗體載入時自動加入各條記錄，代碼如下：Private Sub Form_Load() Dim txtsql As String Dim msgtext As String ‘SQL語句 txtsql = select * from customer ‘記錄在顯示時顯示灰體不能修改狀態(tài) = False = False = False = False = False = False = False = False = False = False ‘執(zhí)行查詢操作 Set mrc = ExecuteSQL(txtsql, msgtext) ‘移到第一條記錄 ‘顯示數(shù)據(jù) Call viewdata ‘記下當(dāng)前記錄的為止 mybookmark = ‘給標(biāo)志賦初值 mcclean = TrueEnd Sub其他控件的程序語句見附錄七、客戶查詢代碼首先選擇查詢方式，然后輸入內(nèi)容，單擊“查詢”按鈕，觸發(fā)Click事件進(jìn)行查詢，該窗體的名稱為frmkehuinquire，代碼如下：Private Sub cmdInquire_Click() Dim txtsql As String Dim msgtext As String Dim mrc As ‘判斷是否選擇客戶名稱查詢方式 If Then ‘查詢語句 txtsql = select * from customer where panyname=39。 amp。 Trim(txtitem(0)) amp。 39。Set mrc = ExecuteSQL(txtsql, msgtext) ‘將符合條件的信息顯示在表格中 With myflexgrid .Rows = 1 .CellAlignment = 4 .TextMatrix(0, 0) = 公司名稱 .TextMatrix(0, 1) = 聯(lián)系人姓名 .TextMatrix(0, 2) = 聯(lián)系地址 .TextMatrix(0, 3) = 城市名稱 .TextMatrix(0, 4) = 地區(qū)名稱 .TextMatrix(0, 5) = 郵政編碼 .TextMatrix(0, 6) = 聯(lián)系電話 .TextMatrix(0, 7) = 傳真電話 .TextMatrix(0, 8) = 公司主頁 .TextMatrix(0, 9) = 備注信息.FixedRows = 0 ‘設(shè)定表格中每列的寬度 For i = 0 To 9 .ColAlignment(i) = 0 Next i .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 0 .ColSel = .Cols 1 .CellAlignment = 4 .ColWidth(0) = 2000 .ColWidth(1) = 1000 .ColWidth(2) = 3000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 2000 .ColWidth(7) = 2000 .ColWidth(8) = 2000 .ColWidth(9) = 4000 .Row = 0 ‘從數(shù)據(jù)庫中調(diào)取所要查詢的記錄信息 Do While Not .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows 1, 0) = (0) .TextMatrix(.Rows 1, 1) = (1) .TextMatrix(.Rows 1, 2) = (2) .TextMatrix(.Rows 1, 3) = (3) .TextMatrix(.Rows 1, 4) = (4) .TextMatrix(.Rows 1, 5) = (5) .TextMatrix(.Rows 1, 6) = (6) .TextMatrix(.Rows 1, 7) = (7) .TextMatrix(.Rows 1, 8) = (8) .TextMatrix(.Rows 1, 9) = (9) Loop End With End If （其他兩種查詢方式和上述相同） ‘判斷是否設(shè)置查詢方式 If Trim(txtsql) = Then MsgBox 請設(shè)置查詢條件！, vbOKOnly + vbExclamation, 警告 Exit Sub End IfEnd Sub單擊按鈕“重新查詢”，將清空輸入框，可以重新查詢，代碼如下：Private Sub cmdagain_Click() ‘關(guān)閉該窗體 Unload frmkehuinquire ‘重新顯示該窗體 End Sub取消按鈕的代碼如下：Private Sub cmdexit_Click() Unload MeEnd Sub八、商品添加代碼單擊重新添加按鈕可以清空所有輸入框，代碼如下：Private Sub cmdsaveagain_Click()Unload frmproductEnd Sub單擊取消按鈕取消添加添加客戶信息，代碼如下：Private Sub cmdcancel_Click() If mblchange And Then If MsgBox(保存當(dāng)前記錄的變化嗎？, vbOKOnly + vbExclamation, 警告) = vbOK Then Call cmdSave_Click End If End If Unload MeEnd Sub用戶輸入內(nèi)容完畢之后，單擊保存按鈕將觸發(fā)Click 事件，代碼如下：Private Sub cmdSave_Click() Dim intcount As Integer Dim i As Integer ‘定義數(shù)據(jù)集對象 Dim mrc As ‘定義字符串變量，返回查詢語句 Dim msgtext As String ‘判斷是否輸入信息 For intcount = 0 To 9 If Tr