【正文】 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) = 公司主頁(yè) .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ù)庫(kù)中調(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 請(qǐng)?jiān)O(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ù)集對(duì)象 Dim mrc As ‘定義字符串變量，返回查詢語(yǔ)句 Dim msgtext As String ‘判斷是否輸入信息 For intcount = 0 To 9 If Tr。 Trim(txtitem(0)) amp。程序在窗體載入時(shí)自動(dòng)加入各條記錄，代碼如下：Private Sub Form_Load() Dim txtsql As String Dim msgtext As String ‘SQL語(yǔ)句 txtsql = select * from customer ‘記錄在顯示時(shí)顯示灰體不能修改狀態(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其他控件的程序語(yǔ)句見(jiàn)附錄七、客戶查詢代碼首先選擇查詢方式，然后輸入內(nèi)容，單擊“查詢”按鈕，觸發(fā)Click事件進(jìn)行查詢，該窗體的名稱為frmkehuinquire，代碼如下：Private Sub cmdInquire_Click() Dim txtsql As String Dim msgtext As String Dim mrc As ‘判斷是否選擇客戶名稱查詢方式 If Then ‘查詢語(yǔ)句 txtsql = select * from customer where panyname=39。 39。 amp。 請(qǐng)輸入數(shù)字! MsgBox smeg, vbOKOnly + vbExclamation, 警告 txtitem(intcount).SetFocus Exit Sub End IfIf Not IsNumeric(Trim(txtitem(7))) Then smeg = 傳真號(hào)碼 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?！薄? set mrc=executeSQL(txtSQL,Msgtext) (1)=trim(text1(1).text) MsgBox “密碼修改成功”，vbOKonly+vbexclamation, “修改密碼” End if End sub 兩次輸入密碼一致，數(shù)據(jù)庫(kù)的記錄將更新 五、客戶添加代碼單擊重新添加按鈕可以清空所有輸入框，代碼如下：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ù)集對(duì)象 Dim mrc As ‘定義字符串變量，返回查詢語(yǔ)句 Dim msgtext As String ‘判斷是否輸入信息 For intcount = 0 To 9 If Trim(txtitem(intcount) amp?！薄? ‘執(zhí)行指定用戶的記錄 Set mrc=execute SQL (txtSQL,MsgText) If =true then MsgBox“沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！”,vbOKonly+vbexclamation“警告” Else ‘判斷輸入密碼是否正確 If trim((1))=trim(txt ) then OK=True Username=trim() Else Msgbox“輸入密碼不正確，請(qǐng)重新輸入！”,vbOKonly+vbexclamation,“警告” Txt focus Txt =“” End if End ifEnd if ‘記載輸入密碼次數(shù) Micount=micount+1 If micount=3 then End if Exit sub End sub 如果用戶取消登錄，單擊cmdcancel按鈕，將觸發(fā)按鈕的click事件，代碼如下： OK=False 三、添加用戶代碼用戶輸入信息完畢，單擊cmdOK按鈕將觸發(fā)click，代碼如下： Private sub cmdOKClick() Dim txtSQL As String Dim mrc As Dim MsgText As String‘判斷是否為空 If trim(text 1(0),text)=“” MsgBox “請(qǐng)輸入用戶名稱！”，vbOKonly+vbexclamation, “警告” Exit sub Text 1(0),setfocus Else txtSQL=“select*from userinfo” set mrc=executeSQL(txtSQL,Msgtext) ‘判斷數(shù)據(jù)集是否為空 While (=Fasle) ‘判斷是否有重復(fù)記錄 If trim ((0))＝trim(text 1(0)) then MsgBox “用戶已經(jīng)存在，請(qǐng)重新輸入用戶名！”，vbOKonly+vbexclamation, “警告” Text 1(0), setfocus Text 1(0),text=“” Text 1(1),text=“” Text 1(2),text=“” Exit sub Else ‘移動(dòng)到下一條記錄 End if Wend End if ‘判斷兩次輸入密碼是否一致 If trim (text 1 (1).texttrim(te