【文章內(nèi)容簡介】 敗計(jì)劃，并且將它中止。數(shù)年后他們把名字重新命名于數(shù)據(jù)庫軟件。另外， Access還是 c語言的一個(gè)函數(shù)名和一種 交換機(jī) 的主干道模式。 在 Access中創(chuàng)建數(shù)據(jù)庫，有兩種方法：一是使用模板創(chuàng)建，模板數(shù)據(jù)庫可以原樣使用，也可以對它們進(jìn)行自定義，以便更好地滿足需要；二是先建立一個(gè)空數(shù)據(jù)庫，然后再添加表、窗體、報(bào)表等其他對象，這種方法較為靈活，但需要分別定義每個(gè)數(shù)據(jù)庫元素。無論采用哪種方法，都可以隨時(shí)修改或擴(kuò)展數(shù)據(jù)庫。 使用模板創(chuàng)建 Access提供了 種類繁多的模板，使用它們可以加快數(shù)據(jù)庫創(chuàng)建過程。模板是隨即可用的數(shù)據(jù)庫，其中包含執(zhí)行特定任務(wù)時(shí)所需的所有表、窗體和報(bào)表。通過對模板的修改，可以使其符合自己的需要。 直接創(chuàng)建空數(shù)據(jù)庫 通常情況下，用戶都是先創(chuàng)建數(shù)據(jù)表等組件之后才創(chuàng)建數(shù)據(jù)庫，或者先創(chuàng)建一個(gè)空數(shù)據(jù)庫，然后再在此空數(shù)據(jù)庫中添加表、查詢、窗體等組件。 轉(zhuǎn)換數(shù)據(jù)庫格式 新建的數(shù)據(jù)庫采用的是 Access 20212021文件格式，如果用戶希望將其轉(zhuǎn)換為Access 2021文件格式，則可以使用 Office菜單中的“轉(zhuǎn)換 ”命令來實(shí)現(xiàn)。 備份數(shù)據(jù)庫 對于數(shù)據(jù)庫文件，應(yīng)該經(jīng)常定期備份，以防止在硬件故障或出現(xiàn)意外事故時(shí)丟失數(shù)據(jù)。這樣，一旦發(fā)生意外，用戶就可以利用創(chuàng)建數(shù)據(jù)時(shí)制作的備份，還原這些數(shù)據(jù)。同時(shí)，備份和還原還可以備份并還原 Access項(xiàng)目 (.adp)，該項(xiàng)目獨(dú)立于但鏈接到 SQL Server數(shù)據(jù)庫。 零件數(shù)據(jù)庫的建立 采用 Microsoft Access建立零件相關(guān)信息的數(shù)據(jù)庫，包括零件的圖號、圖樣名稱、繪圖者、審核者、材料、入庫時(shí)間和修改時(shí)間等信息。數(shù)據(jù)庫如下圖所示。 圖 1 零件相關(guān)信息的數(shù) 據(jù)庫 VB程序?qū)?shù)據(jù)庫的調(diào)用 程序界面主要由 3個(gè)區(qū)域組成：信息顯示區(qū)、圖片預(yù)覽區(qū)、功能按鈕區(qū)，如圖 3所示。 圖 2 圖庫管理模塊用戶界面 信息顯示區(qū)用于顯示圖庫中零件的相關(guān)信息；圖片預(yù)覽區(qū)顯示 AutoCAD圖形文件；功能按鈕區(qū)用于實(shí)現(xiàn)對零件圖的查詢、修改、刪除等操作。 搜索功能的實(shí)現(xiàn) 有時(shí)候零件庫的零件較多，使用下一個(gè)來瀏覽尋找某零件的信息時(shí)會比較的慢，因此可以采取搜索的功能來查找。當(dāng)單擊搜索控制按鈕時(shí)，檢索的窗體就會加載，為了便于用戶的使用，一共設(shè)計(jì)了兩種檢索方式，分別是按照零件的 圖號來檢索和按圖樣的名稱來檢索，它們的程序控制界面分別如圖 1和圖 2。 為實(shí)現(xiàn)兩種方式，其程序主要有三部分構(gòu)成，窗體加載程序模塊、按零件搜索程序模塊和按圖樣名稱搜索模塊這三個(gè)部分組成。 圖 3 圖號搜索界面 圖 4 圖樣名稱搜索界面 主要程序代碼如下 ： Private Sub cmdSearch_Click() 1 ‘搜索窗體顯示 End Sub Private Sub cboDrawingNumber_Click() = End Sub Private Sub cmdSearch1_Click() Dim name As String 39。定義變量，臨時(shí)圖樣名稱 39。讀取圖號 DrawingNumber = 39。判斷是否輸入圖號，如果輸入則進(jìn)行如下查詢 If DrawingNumber Then 39。按圖號進(jìn)行查詢，找出指定圖號記錄 select * from parts where 圖號 = 39。 amp。 DrawingNumber amp。 39。, conn If 0 Then 39。顯示查詢結(jié)果 MsgBox 您所查找的零件信息如下所示 , vbOKOnly, 搜索結(jié)果 Unload frmPartsSearch name = amp。 \partsDB\ amp。 (0) amp。 .wmf = LoadPicture(name) Dim i As Integer 39。定義變量，循環(huán)變量 For i = 0 To 8 If Not IsNull((i)) Then (i).Text = (i) Else (i).Text = End If Next Else MsgBox 沒有找到相關(guān)數(shù)據(jù) , vbOKOnly, 搜索結(jié)果 End If Else MsgBox 圖號不正確，請重新輸入 , vbOKOnly, 搜索結(jié)果 End If End Sub Private Sub cmdSearch2_Click() Dim name As String 39。定義變量，臨時(shí)圖樣名稱 39。讀取圖樣名稱 DrawingName = 39。判斷是否輸入圖樣名稱，如果輸入則進(jìn)行如下查詢 If DrawingName Then 39。按圖樣名稱進(jìn)行 查詢，找出指定圖樣名稱的記錄 select * from parts where 圖樣名稱 = 39。 amp。 DrawingName amp。 39。, conn If 0 Then 39。顯示查詢結(jié)果 MsgBox 您所查找的零件信息如下所示 , vbOKOnly, 搜索結(jié)果 Unload frmPartsSearch name = amp。 \partsDB\ amp。 DrawingName amp。 .wmf = LoadPicture(name) Dim i As Integer 39。定義變量，循環(huán)變量 For i = 0 To 9 If Not IsNull((i)) Then (i).Text = (i) Else (i).Text = End If Next Else MsgBox 沒有找到相關(guān)數(shù)據(jù) , vbOKOnly, 搜索結(jié)果 End If Else MsgBox 圖樣名稱不正確，請重新輸入 , vbOKOnly, 搜索結(jié)果 End If End Sub 編輯功能的實(shí)現(xiàn) 如果零件庫打開零件信息需要編輯，使用編輯按鈕即可，它的程序控制代碼我就不做詳細(xì)的介紹了將核心控制代碼如下： Private Sub cmdEdit_Click() 39?！?編輯 記錄 ” 按鈕代碼 On Error GoTo editErr =“編輯記錄” mbeditflag = True Exit Sub editErr: MsgBox ‘ 錯(cuò)誤提示 Call displayRecord End Sub 添加功能的實(shí)現(xiàn) 如果零件庫有新的零件信息需要寫入數(shù)據(jù)庫，我們不用打開數(shù)據(jù)庫，可以直接使用添加這個(gè)控制按鈕來實(shí)現(xiàn)新的零件的信息的錄入。 它的核心控制代碼如下： Private Sub cmdAdd_Click() 39?！?新增記錄 ” 按鈕代碼 On Error GoTo AddErr With adoprimaryrs If Not (.BOF And .EOF) Then ‘如果當(dāng)前不是處于開始或結(jié)束位置 mvbookmark = .Bookmark ‘ 保存記錄書簽 End If ‘用 AddNew方法向記錄集添加新記錄 =“添加記錄” mbaddnewflag = true setbuttons False End With Exit Sub AddErr: MsgBox Call displayRecord End Sub 取消功能的實(shí)現(xiàn) 如果零件庫有新的零件信息寫入數(shù)據(jù)庫時(shí)發(fā)生錯(cuò)誤，可以使用取消控件。 它的核心控制代碼如下： Private Sub cmdCancel_Click() 39?！?取消 記錄 ” 按鈕代碼 On Error Resume Next setbuttons True mbeditflag = False ‘ 對象關(guān)聯(lián)的所有掛起更改，從而恢復(fù)上一次調(diào)用 Refresh 方法之后的值。 If mvbookmark 0 Then = mvbookmark Else 39。移動到第一條記錄 End If mbdatachangrd = False Call displayRecord End Sub 刪除功能的實(shí)現(xiàn) 如果零件庫有些的零件信息需要從數(shù)據(jù)庫中刪除，可以使用這個(gè)控件。 它的核心控制代碼如下： Private Sub cmddelete_click( ) 39?！?刪除 記錄 ” 按鈕代碼 On Error GoTo deleteerr With adoprimaryrs .Delete ‘用 Delete方法刪除記錄集中當(dāng)前的記錄 .MoveNext ‘指針移到下一記錄 If .EOF Then .MoveLast ‘如果刪除的是末記錄，則使指針指向新的末記錄 End With Exit Sub deleteerr: MsgBox ‘ 錯(cuò)誤提示 Call displayRecord End Sub 退出功能的實(shí)現(xiàn) 該控件是當(dāng)零件信息管理完畢，退出管理界面時(shí)使用。 它的核心控制代碼如下： Private Sub cmdExit_Click() 39?！?退出 ” 按鈕代碼 Unload Me ‘關(guān)閉窗體 End Sub 瀏覽功能的實(shí)現(xiàn) 對零件的信息進(jìn)行瀏覽其中包括第一個(gè)、前一個(gè)、后一個(gè)、最后一個(gè)四個(gè)控制按鈕， 其主要程序如下： Private Sub cmdFirst_Click() 39。“第一條記錄”按鈕代碼 On Error GoTo gofirsterror 39