【文章內(nèi)容簡介】 下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。三是 : 利用 DataEnvironment 進(jìn)行數(shù)據(jù)庫鏈接 .四是 利用 ADO(ActiveX Data Objects)進(jìn)行編程 :現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹： 一、 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 . 第一步：給窗體添加一個 Data 控件。 第二步：用 Access 建立一個名為 Pad 的數(shù)據(jù)庫，在庫中建立一個表 Myset，給表添加四個 字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機(jī)器沒安裝有 Access，可通過 VB 建庫。 二、 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接 ,通過綁定數(shù)據(jù)感知控件 ,就能提供一個訪問數(shù)據(jù)庫的界面 ,用來實(shí)現(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è)計(jì)關(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)。 20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān) 系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。 如果要搜索并檢索符 合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。在打開一個窗體時， Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵 件標(biāo)簽的報表。 第 二 章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于 高速公路收費(fèi)管理人員 ,方便工作人員 ,對過往車輛收費(fèi) ,發(fā) 放收費(fèi)票據(jù)記錄 ,對信息的分類管理等 . 同時力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲安全 . 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于 超市管理人員 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會上 :本系統(tǒng)同時也方便了廣大顧客 ,.所以具有社會可行性 . 第 三 章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 1:用戶登陸表 : 2:購入商品表 : 程序登陸 主界面 商品類型管理 商品管理 報損管理 進(jìn)貨管理 銷售管理 供貨商管理 銷售分析 幫助 退出 3:商品保損表 : 4:商品信息表 : 5:供應(yīng)商表 : 6:銷售表 : 界面設(shè)計(jì)與代碼設(shè)計(jì) 1. 登陸界面設(shè)計(jì) : 代碼分析 : Option Explicit Private Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As Long Public OK As Boolean Dim m_Admin As New clsAdmin Dim m_nErrCount As Integer Private Sub Form_Load() m_nErrCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End Sub Private Sub cmdOK_Click() 39。ToDo: 創(chuàng)建測試密碼是否正確 39。檢查正確密碼 Dim Account As String Dim Pwd As String Account = RealString() Pwd = RealString() 39。判斷密碼是否正確 If Not (Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount = 3 Then MsgBox 輸入密碼錯誤次數(shù)太多，請稍后重試 , vbExclamation End End If MsgBox 密碼錯誤，再試一次！還有 amp。 3 m_nErrCount amp。 次機(jī)會，注意密碼區(qū)分大小寫 , vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub 2:報損信息表 : 代碼分析 : Option Explicit Private OK As Boolean 39。確定用戶按了 OK 還是 CANCEL 按鈕 Private m_obj As clsDispose 39。數(shù)據(jù)對象，用來存儲用戶輸入數(shù)據(jù) Public m_ViewType As gxcViewType 39。顯示狀態(tài)，指添加還是修改 Private m_TypeId As Long Private m_Account As String 39。調(diào)用此對話框的操作員 39。根據(jù)是“新增”還是修改，確定顯示內(nèi)容 Private Sub SetStatus() 39。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。設(shè)置狀態(tài) Select Case m_ViewType Case vtadd 39。添加 = True = 確定 Case vtModify 39。修改 = True = 保存 Case vtInfo 39。查看 = False = 關(guān)閉 End Select End Sub 39。打開對話框，并傳出用戶輸入數(shù)據(jù) Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType, _ Optional nTypeId As Long = 1, _ Optional strUser As String = ) As Boolean 39。保存數(shù)據(jù) Set m_obj = obj 39。用戶輸入數(shù)據(jù)存放于此對 象中 m_ViewType = eViewType 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。調(diào)用此對話框的用戶賬號 39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39。顯示對話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。保存數(shù)據(jù) Set obj = m_obj 39。返回并釋放對話框 ShowDlg = True Unload Me End Function 39。設(shè)置控件默認(rèn)值 Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39。如果是新增，則清空所有文本框 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ù) With m_obj = .Count = .Reason = .Remark = 0 = .RegDate For i = 0 To 1 If (i) = .MerchandiseID Then = i 39。客戶類型 Id Exit For End If Next i End With End If End Sub 39。檢查輸入有效性 Private Function CheckValid() As Boolean CheckValid = False If = _ Or = _ Or = Then MsgBox 請?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容 Exit Function End If If = Then MsgBox 請?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容 Exit Function End If If Not IsNumeric() Then MsgBox 數(shù)量請輸入數(shù)字 Exit Function End If If Not IsDate() Then MsgBox 請輸入正確的日期格式 Exit Function End If CheckValid = True End Function 39。保存數(shù)據(jù) Private Sub SaveValue() 39。給“成員變量”對象賦值 With m_obj 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .Count = .Reason = RealString() .Remark = RealString()