【正文】 ted(1)? ? 滾動(dòng)條類的控件： 1) Value 屬性：滾動(dòng)條上滑塊所在位置由 value 值所決定。 ? 定時(shí)器類類的控件： 1) Interval 屬性：表示定時(shí)的時(shí)間間隔 ,以毫秒為單位。 第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫(kù)，在庫(kù)中建立一個(gè)表 Myset，給表添加四個(gè) 字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。目前已成為關(guān) 系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。 如果要搜索并檢索符 合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。檢查正確密碼 Dim Account As String Dim Pwd As String Account = RealString() Pwd = RealString() 39。確定用戶按了 OK 還是 CANCEL 按鈕 Private m_obj As clsDispose 39。根據(jù)是“新增”還是修改，確定顯示內(nèi)容 Private Sub SetStatus() 39。修改 = True = 保存 Case vtInfo 39。用戶輸入數(shù)據(jù)存放于此對(duì) 象中 m_ViewType = eViewType 39。顯示對(duì)話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。如果是新增，則清空所有文本框 39。檢查輸入有效性 Private Function CheckValid() As Boolean CheckValid = False If = _ Or = _ Or = Then MsgBox 請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容 Exit Function End If If = Then MsgBox 請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容 Exit Function End If If Not IsNumeric() Then MsgBox 數(shù)量請(qǐng)輸入數(shù)字 Exit Function End If If Not IsDate() Then MsgBox 請(qǐng)輸入正確的日期格式 Exit Function End If CheckValid = True End Function 39。商品類型 Id .MerchName = .RegDate = .OperatorId = m_Account 39。檢測(cè)輸入有效性 If Not CheckValid Then Exit Sub 39。數(shù)據(jù)對(duì) 象，用來(lái)存儲(chǔ)用戶輸入數(shù)據(jù) Public m_ViewType As gxcViewType 39。設(shè)置狀態(tài) Select Case m_ViewType Case vtadd 39。打開對(duì)話框，并傳出用戶輸入數(shù)據(jù) Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType) As Boolean 39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39。設(shè)置控件默認(rèn)值 Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39。檢查輸入有效性 Private Function CheckValid() As Boolean If = _ Or = _ Or = Then MsgBox 請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容 CheckValid = False Exit Function End If CheckValid = True End Function 39。取消按鈕 Private Sub CancelButton_Click() Unload Me End Sub 39。保存用戶輸入 SaveValue End Sub 5:管理員列表 : 代碼分析 : Option Explicit Dim opAdmin As New clsOpAdmin Private Sub CancelButton_Click() Unload Me End Sub Private Sub cmdAdd_Click() lvAdmin End Sub Private Sub cmdDel_Click() lvAdmin End Sub Private Sub cmdModify_Click() lvAdmin End Sub Private Sub Form_Load() lvAdmin End Sub 6:主界面設(shè)計(jì) : 代碼分析 : Option Explicit Const NAME_COLUMN = 0 Const TYPE_COLUMN = 1 Const SIZE_COLUMN = 2 Const DATE_COLUMN = 3 Dim mbMoving As Boolean Const sglSplitLimit = 500 Private Sub Form_Load() LoadResStrings Me = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) = Val(GetSetting(, Settings, ViewMode, 0)) 39。 lblTitle(1).Left = + 20 39。修改 ListView 控件尺寸 Dim ctl As Control For Each ctl In Controls If TypeOf ctl Is ListView Then = 0 = = 40 = = False End If Next sstabView_Click 0 End Sub Private Sub lvBuy_DblClick() mnuBuyModify_Click End Sub Private Sub lvDispose_DblClick() mnuDisposeModify_Click End Sub Private Sub lvMerch_DblClick() mnuMerchModify_Click End Sub Private Sub lvProvider_DblClick() mnuProviderModify_Click End Sub Private Sub lvSell_DblClick() mnuSellModify_Click End Sub Private Sub mnuAnaBuy_Click() vbModal End Sub Private Sub mnuAnalysis_Click() vbModal End Sub 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 屬性頁(yè)控件切換響應(yīng)函數(shù) 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Private Sub sstabView_Click(PreviousTab As Integer) Select Case PreviousTab Case 0 = False Case 1 = False Case 2 = False Case 3 = False Case 4 = False End Select Select Case Case 0 = True Case 1 = True Case 2 = True Case 3 = True Case 4 = True End Select End Sub Private Sub tbToolBar_ButtonClick(ByVal Button As ) On Error Resume Next Select Case Case 返回 39。 MsgBox 添加 39。應(yīng)做 :添加 39。向前 39。剪切 39。 按鈕代碼。 按鈕代碼。 Case 粘貼 39。 MsgBox 添加 39。應(yīng)做 :添加 39。刪除 39。屬性 39。 按鈕代碼。 代碼。 End Sub Private Sub mnuVAIByDate_Click() 39。 = DATE_COLUMN End Sub Private Sub mnuVAIByName_Click() 39。 = NAME_COLUMN End Sub Private Sub mnuVAIBySize_Click() 39。 = SIZE_COLUMN End Sub Private Sub mnuVAIByType_Click() 39。 = TYPE_COLUMN End Sub Private Sub mnuViewStatusBar_Click() = Not = SizeControls End Sub Private Sub mnuViewToolbar_Click() = Not = SizeControls End Sub 39。 ListAllMerchs lvMerch TypeToTreeview tvTreeView 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 mnuMType_Click() 39。修改 Private Sub mnuMTypeModify_Click() tvTreeView End Sub 39。=============================================== 39。=============================================== 39。由于同時(shí)更新了庫(kù)存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。由于同時(shí)更新了庫(kù)存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時(shí)庫(kù)存量自動(dòng)更新，請(qǐng)切換到【商品管理】查看核實(shí)庫(kù)存變化。=============================================== Private Sub mnuSell_Click() 39。由于同時(shí)更新了庫(kù)存，需要重新加載商品列表 lvMerch, GetID() MsgBox