【正文】 , vbInformation End Sub Private Sub mnuSellDel_Click() lvSell 39。切換選項卡 = 2 End Sub Private Sub mnuSellAdd_Click() lvSell, g_Account 39。 銷售管理 39。 , vbInformation End Sub 39。 , vbInformation End Sub Private Sub mnuBuyModify_Click() lvBuy, g_Account 39。 , vbInformation End Sub Private Sub mnuBuyDel_Click() lvBuy 39。切換選項卡 = 1 End Sub Private Sub mnuBuyAdd_Click() lvBuy, g_Account 39。 進貨管理 39。切換選項卡 = 0 End Sub Private Sub mnuMerchAdd_Click() = 0 lvMerch, GetID() End Sub Private Sub mnuMerchDel_Click() = 0 lvMerch End Sub Private Sub mnuMerchModify_Click() = 0 lvMerch End Sub 39。 商品操作 39。=============================================== Private Sub mnuSystemUser_Click() vbModal End Sub 39。=============================================== 39。刪除 Private Sub mnuMTypeDel_Click() tvTreeView End Sub 39。設(shè)置樹型控件焦點 End Sub 39。 商品類型操作 39。 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 菜單響應(yīng)函數(shù) 39。 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。將客戶類型顯示到樹型圖中 lvProvider lvMerch lvBuy lvSell lvDispose End Sub 39。初始化列表 39。初始化所有數(shù)據(jù)函數(shù) Private Sub InitMain() 39。 代碼 39。ToDo: 添加 39。 代碼 39。ToDo: 添加 39。 代碼 39。ToDo: 添加 39。 代碼 39。ToDo: 添加 39。 代碼。 MsgBox 添加 39。mnuViewRefresh_Click39。 Case 大圖標(biāo) = lvwIcon Case 小圖標(biāo) = lvwSmallIcon Case 列表 = lvwList Case 詳細(xì)資料 = lvwReport End Select End Sub Private Sub mnuHelpAbout_Click() vbModal, Me End Sub Private Sub mnuViewRefresh_Click() 39。屬性 39。 按鈕代碼。應(yīng)做 :添加 39。 按鈕代碼。 MsgBox 添 加 39。刪除 39。 Case 刪除 39。粘貼 39。 按鈕代碼。應(yīng)做 :添加 39。 按鈕代碼。 MsgBox 添加 39。復(fù)制 39。 Case 復(fù)制 39。剪切 39。 按鈕代碼。應(yīng)做 :添加 39。 按鈕代碼。 MsgBox 添加 39。向前 39。 Case 向前 39。返回 39。 按鈕代碼。應(yīng)做 :添加 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。設(shè)置 height 屬性 If Then = ( + + ) Else = ( + ) End If = + = = 39。 lblTitle(1).Width = 40 39。設(shè)置 Width 屬性 If x 1500 Then x = 1500 If x ( 1500) Then x = 1500 = x = x = x + 40 = ( + 140) lblTitle(0).Width = 39。初始化數(shù)據(jù) Call InitMain End Sub Private Sub Form_Unload(Cancel As Integer) Dim i As Integer 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 If m_ViewType = vtadd Then Set m_obj = New clsProvider 39。確定按鈕 Private Sub OKButton_Click() OK = True 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .ProviderName = RealString() .Introduce = RealString() .Remark = RealString() End With End Sub 39。保存數(shù)據(jù) Private Sub SaveValue() 39。用傳入對象的值更新數(shù)據(jù) With m_obj = .ProviderName = .Introduce = .Remark End With End If End Sub 39。如果是新增，則清空所有文本框 39。返回并釋放對話框 ShowDlg = True Unload Me End Function 39。顯示對話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。對話框狀態(tài) 39。保存數(shù)據(jù) Set m_obj = obj 39。查看 = False = 關(guān)閉 End Select End Sub 39。添加 = True = 確 定 Case vtModify 39。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。顯示狀態(tài)，指添加還是修改 39。確定用戶按了 OK 還是 CANCEL 按鈕 Private m_obj As clsProvider 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 If m_ViewType = vtadd Then Set m_obj = New clsDispose 39。確定按鈕 Private Sub OKButton_Click() OK = True 39。操作者賬號 End With End Sub 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .Count = .Reason = RealString() .Remark = RealString() .MerchandiseID = () 39。保存數(shù)據(jù) Private Sub SaveValue() 39?？蛻纛愋?Id Exit For End If Next i End With End If End Sub 39。此處判斷 m_obj 為空與判斷 m_ViewType = vtAdd 等效，但更安全 If m_obj Is Nothing Then For Each ctl In Controls If TypeOf ctl Is TextBox Then = End If Next Else 39。設(shè)置控件默認(rèn)值 Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39。保存數(shù)據(jù) Set obj = m_obj 39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39。對話框狀態(tài) If nTypeId = 1 And (Not m_obj Is Nothing) Then m_TypeId = Else m_TypeId = nTypeId End If m_Account = strUser 39。保存數(shù)據(jù) Set m_obj = obj 39。查看 = False = 關(guān)閉 End Select End Sub 39。添加 = True = 確定 Case vtModify 39。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。調(diào)用此對話框的操作員 39。數(shù)據(jù)對象，用來存儲用戶輸入數(shù)據(jù) Public m_ViewType As gxcViewType 39。 次機會，注意密碼區(qū)分大小寫 , vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub 2:報損信息表 : 代碼分析 : Option Explicit Private OK As Boolean 39。判斷密碼是否正確 If Not (Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount = 3 Then MsgBox 輸入密碼錯誤次數(shù)太多，請稍后重試 , vbExclamation End End If MsgBox 密碼錯誤，再試一次！還有 amp。ToDo: 創(chuàng)建測試密碼是否正確 39。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵 件標(biāo)簽的報表。在打開一個窗體時， Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。