【正文】 Merch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。=============================================== Private Sub mnuMerch_Click() 39。39。39。39。39。39。39。39。39。39。39。 InitMerchListview lvMerch 39。mnuVAIByDate_Click39。 Case 屬性 39。復(fù)制 39。 按鈕代碼。39。39。39。39。39。39。39。39。39。39。close all sub forms For i = 1 To 1 Step 1 Unload Forms(i) Next If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, End If SaveSetting , Settings, ViewMode, End Sub Private Sub Form_Resize() On Error Resume Next If 3000 Then = 3000 SizeControls End Sub Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) With imgSplitter .Left, .Top, .Width \ 2, .Height 20 End With = True mbMoving = True End Sub Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim sglPos As Single If mbMoving Then sglPos = x + If sglPos sglSplitLimit Then = sglSplitLimit ElseIf sglPos sglSplitLimit Then = sglSplitLimit Else = sglPos End If End If End Sub Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) SizeControls = False mbMoving = False End Sub Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single) If Source = imgSplitter Then SizeControls x End If End Sub Sub SizeControls(x As Single) On Error Resume Next 39。保存數(shù)據(jù) Set obj = m_obj 39。保存用戶輸入 SaveValue End Sub 3:供應(yīng)商表 : 代碼分析 : Option Explicit Private OK As Boolean 39。返回并釋放對話框 ShowDlg = True Unload Me End Function 39。顯示狀態(tài)，指添加還是修改 Private m_TypeId As Long Private m_Account As String 39。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。 3) Largechange 屬性：用戶點擊滾動條與鍵頭之間的區(qū)域時 ,value 的改變量。 9) DisabledPicture 屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。 3） DragDrop 事件：在一個完整的拖放動作或使用 Drag 方法，并將其Action 參數(shù)設(shè)置位 2 時，該事件發(fā)生。 10) DataField 屬性：設(shè)置 /返回數(shù)據(jù)使用者將被綁定到的字段名。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 13) DisabledPicture 屬性：設(shè)置 /返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。正如 Bill Gate 所說，世界上絕大多數(shù)的 Windows應(yīng)用程序是用 Visual Basic 編寫的。 7） MouseDown 事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時發(fā)生。 3) Enable 屬性：該控件為灰色時為 false,表示運行時不可用。 19) FontUnderLine 屬性：設(shè)置 /返回字體下劃線樣式。 12） MouseUp 事件：在控件上釋放鼠標(biāo)時發(fā)生。 3） DragOver 事件：在拖放操作正在進(jìn)行時發(fā)生 。 二、 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡單的設(shè)置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接 ,通過綁定數(shù)據(jù)感知控件 ,就能提供一個訪問數(shù)據(jù)庫的界面 ,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對數(shù)據(jù)庫進(jìn)行操 縱 : 在 visual basic 中提供了兩種與 jet數(shù)據(jù)引擎接口的方法 :data控件與數(shù)據(jù)訪問對象 (DAO)DAO 是 database object 的英文縮寫 ,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口 ,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持 . DAO 模型是設(shè)計關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合 .他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(shù)據(jù)庫 ,定義表 ,字段和建立表間關(guān)系 ,定位和查詢數(shù)據(jù)庫等 . 關(guān)系數(shù)據(jù)庫 介紹 : 關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理 數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。ToDo: 創(chuàng)建測試密碼是否正確 39。保存數(shù)據(jù) Set m_obj = obj 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .Count = .Reason = RealString() .Remark = RealString() .MerchandiseID = () 39。查看 = False = 關(guān)閉 End Select End Sub 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .ProviderName = RealString() .Introduce = RealString() .Remark = RealString() End With End Sub 39。39。39。39。39。39。39。39。39。39。39。 按鈕代碼。剪切 39。 Case 刪除 39。mnuViewRefresh_Click39。 代碼 39。39。39。39。39。39。39。39。39。39。39。刪除 Private Sub mnuMTypeDel_Click() tvTreeView End Sub 39。 , vbInformation End Sub Private Sub mnuBuyModify_Click() lvBuy, g_Account 39。 , vbInformation End Sub 39。=============================================== 39。39。39。39。39。39。39。39。39。39。39。ToDo: 添加 39。 MsgBox 添加 39。刪除 39。 Case 復(fù)制 39。返回 39。39。39。39。39。39。39。39。39。39。39。確定按鈕 Private Sub OKButton_Click() OK = True 39。保存數(shù)據(jù) Set m_obj = obj 39。操作者賬號 End With End Sub 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。判斷密碼是否正確 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ù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 2) Index 屬性 :該屬性值為復(fù)選框控件數(shù)組的下標(biāo) . 3) Value 屬性 :value 為 0 表空白 ,為 1 表勾號 ,為 2 表示灰色 勾號 . 4) Container 屬性： Form 控件上的容器。 21) FontSize 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設(shè)置 /返回控件的高度。 5) Tabindex 屬性：建立控件時 ,vb 自動為其分配一個 tabindex 值 ,利用tab 鍵可以在控件之間切換焦點。 9） MouseUp 事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時發(fā)生。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用?，F(xiàn)在不同了，即使你沒有接受過嚴(yán)格的程序設(shè)計訓(xùn)練，使用 Visual Basic 也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。 超市進(jìn)銷存 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。 5) Cancel 屬性：該屬性決定按鈕是否為一個 ” 取消 ” 按鈕。 3) Backstyle 屬性：用以指示標(biāo)簽是否透明 . 4) Bordstyle 屬性 :用以設(shè)定控件是否有邊框。 8) BackColor 屬 性：設(shè)置 /返回背景色。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標(biāo)單擊控件時發(fā)生。 7) DataFormat 屬性：設(shè)置或返回 DataFormat 對象，用于數(shù)據(jù)綁定。 2) Mutselect 屬性 :可以設(shè)置列表框為單選或允許多選屬性 . 3) Selectd 屬性 :標(biāo)示一個數(shù)組 ,數(shù)組各 元素為 : 4) Selected(0),selected(1)? ? 滾動條類的控件： 1) Value 屬性：滾動條上滑塊所在位置由 value 值所決定。目前已成為關(guān) 系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。確定用戶按了 OK 還是 CANCEL 按鈕 Private m_obj As clsDispose 39。顯示對話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。檢測輸入有效性 If Not CheckValid Then Exit Sub 39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39。保存用戶輸入 SaveValue End Sub 5:管理員列表 : 代碼分析 : Option Explicit Dim opAdmin As New clsOpAdmin