【正文】 MsgBox 添加 39。應(yīng)做 :添加 39。剪切 39。復(fù)制 39。 按鈕代碼。 按鈕代碼。 Case 刪除 39。 MsgBox 添加 39。應(yīng)做 :添加 39。屬性 39。mnuViewRefresh_Click39。 代碼。 代碼 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。刪除 Private Sub mnuMTypeDel_Click() tvTreeView End Sub 39。=============================================== Private Sub mnuSystemUser_Click() vbModal End Sub 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。切換選項卡 = 1 End Sub Private Sub mnuBuyAdd_Click() lvBuy, g_Account 39。 , vbInformation End Sub Private Sub mnuBuyModify_Click() lvBuy, g_Account 39。 銷售管理 39。 , vbInformation End Sub Private Sub mnuSellDel_Click() lvSell 39。切換選項卡 = 2 End Sub Private Sub mnuSellAdd_Click() lvSell, g_Account 39。 , vbInformation End Sub 39。 , vbInformation End Sub Private Sub mnuBuyDel_Click() lvBuy 39。 進貨管理 39。 商品操作 39。=============================================== 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。 菜單響應(yīng)函數(shù) 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。初始化所有數(shù)據(jù)函數(shù) Private Sub InitMain() 39。ToDo: 添加 39。ToDo: 添加 39。ToDo: 添加 39。ToDo: 添加 39。 MsgBox 添加 39。 Case 大圖標(biāo) = lvwIcon Case 小圖標(biāo) = lvwSmallIcon Case 列表 = lvwList Case 詳細資料 = lvwReport End Select End Sub Private Sub mnuHelpAbout_Click() vbModal, Me End Sub Private Sub mnuViewRefresh_Click() 39。 按鈕代碼。 按鈕代碼。刪除 39。粘貼 39。應(yīng)做 :添加 39。 MsgBox 添加 39。 Case 復(fù)制 39。 按鈕代碼。 按鈕代碼。向前 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。 lblTitle(1).Width = 40 39。初始化數(shù)據(jù) Call InitMain End Sub Private Sub Form_Unload(Cancel As Integer) Dim i As Integer 39。確定按鈕 Private Sub OKButton_Click() OK = True 39。保存數(shù)據(jù) Private Sub SaveValue() 39。如果是新增，則清空所有文本框 39。顯示對話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。保存數(shù)據(jù) Set m_obj = obj 39。添加 = True = 確 定 Case vtModify 39。顯示狀態(tài)，指添加還是修改 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 If m_ViewType = vtadd Then Set m_obj = New clsDispose 39。操作者賬號 End With End Sub 39。保存數(shù)據(jù) Private Sub SaveValue() 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ù)據(jù) Set obj = m_obj 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。查看 = False = 關(guān)閉 End Select End Sub 39。設(shè)置控件默認值 Call SetDefaultValue 39。數(shù)據(jù)對象，用來存儲用戶輸入數(shù)據(jù) Public m_ViewType As gxcViewType 39。判斷密碼是否正確 If Not (Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount = 3 Then MsgBox 輸入密碼錯誤次數(shù)太多，請稍后重試 , vbExclamation End End If MsgBox 密碼錯誤，再試一次！還有 amp。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵 件標(biāo)簽的報表。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。注意：請將庫文件存入程序所在目錄。 2) Enable 屬性 :為 true 時 (缺省值 ),激活定時器開始計時 。 2) Max 和 min 屬性：對 value 值的最大 ,最小進行限制。 5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 ? 復(fù)選按鈕類的控件的基本事件： 1） Click 事件：鼠標(biāo)單擊控件時發(fā)生。 12) DragMode 屬性：設(shè)置返回一個值，確定在拖放操作中所用方式。 8) Datasource 屬性：設(shè)置或返回控件綁定的一個數(shù)據(jù)源。 2) Index 屬性 :該屬性值為復(fù)選框控件數(shù)組的下標(biāo) . 3) Value 屬性 :value 為 0 表空白 ,為 1 表勾號 ,為 2 表示灰色 勾號 . 4) Container 屬性： Form 控件上的容器。 10） MouseDown 事件：當(dāng)在控件上按下鼠標(biāo)鍵時發(fā)生。 6） LostFocus 事件：當(dāng)對象失去焦點 時發(fā)生。 2） DbClick 事件： 當(dāng)在一個對象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時，該事件發(fā)生。 21) FontSize 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設(shè)置 /返回控件的高度。 17) FontItalic 屬性：設(shè)置 /返回字體斜體樣式。 13) DownPicture 屬性：設(shè)置 /返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。 9) Container 屬性：設(shè)置 /返回 Form 上的控件屬性。 5) Tabindex 屬性：建立控件時 ,vb 自動為其分配一個 tabindex 值 ,利用tab 鍵可以在控件之間切換焦點。 10) BackColor 屬性：設(shè)置返回背景色 11) BorderStyle 屬性：設(shè)置對象的邊框樣式 12) DataField 屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名 13) DataFormat 屬性：設(shè)定 DataFormat 對象，用于數(shù)據(jù)綁定 14) DataMember 屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個數(shù)據(jù)成員中返回 /設(shè)定一個特定的數(shù)據(jù)成員 15) DataSource 屬性：設(shè)定控件綁定的一個數(shù)據(jù)源 16) DragIcon 屬性：設(shè)定圖標(biāo)，它將在拖放操作中作 為指針顯示 17) DragMode 模式：設(shè)定一個值，確定在拖放操作中所用方式 18) Enabled 屬性：設(shè)置 /返回運行時 TextBox 是否相應(yīng)用戶事件 19) Font 屬性：設(shè)置 /返回字體屬性 20) ForeColor 屬性：設(shè)置 /返回文本的前景色 21) Height 屬性：設(shè)置 /返回 TextBox 的高度 22) IMEMode 屬性：設(shè)置 /返回數(shù)值用來確定輸入方法編輯器的狀態(tài) 23) Index 屬性：設(shè)置 /返回唯一的標(biāo)識控件數(shù)組中該控件的編號 24) Left 屬性：設(shè)置 /返回 TextBox 控件的水平位置 25) Locked 屬性：設(shè)置 /返回 TextBox 中文本是否可編輯 26) LinkItem 屬性：設(shè)置 /返回 DDE 與另一個應(yīng)用程序會話時，傳給接受端的數(shù)據(jù) 27) MaxLength 屬性：設(shè)置 /返回一個值，指定在 TextBox 控件中能夠輸入的字符最大值 28) MouseIcon 屬性：設(shè)置 /返回自定義鼠標(biāo)的圖標(biāo) 29) Top 屬性：設(shè)置 /返回 TextBox 控件的垂直位置 30) Tag 屬性：存儲過程所需的附加數(shù)據(jù) ? 文本框類的事件： 1） Change 事件：當(dāng)改變文本框內(nèi)容時發(fā)生 2） Click 事件：鼠標(biāo)單擊控件時發(fā)生 3） DblClick 事件：用鼠標(biāo)左鍵雙擊控件時發(fā)生 4） DragDrop 事件：在一個完整的拖放動作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時發(fā)生 5） DragOver 事件：在拖放操作正在進行時發(fā)生 6） GotFocus 事件：當(dāng)一個命令按鈕獲得焦點時發(fā)生 7） LinkClose 事件：當(dāng)一個 DDE 對話結(jié)束時發(fā)生 8） LinkError 事件：當(dāng)一個 DDE 對話框過程中出現(xiàn)錯誤時，該事件發(fā)生 9） KeyDown 事件：當(dāng)命令按鈕具有焦點時按下一個鍵時發(fā)生 10） Validate 事件：在焦點轉(zhuǎn)換到另一個控件之前發(fā)生，此時該控件的 Causes Validation 屬性值設(shè)置為 True ? 單選按鈕類的控件： 1) Caption 屬性：顯 示在控件上的文本 ,是單選按鈕的標(biāo)題。 5) Passwordchar 屬性：該屬性設(shè)定輸入文本的特殊顯示字符 ,在設(shè)計密碼程序時非常有用。 ? 文本框類的控件： 1) Text 屬性：通過像 text 屬