【正文】 摘 要 I ABSTRACT II 第一章 引言 1 背景 1 數(shù)控加工技術(shù)教學(xué)素材資源庫 系統(tǒng) 1 VB數(shù)控加工技術(shù)教學(xué)素材資源庫 系統(tǒng)的目的和原則 3 開發(fā)環(huán)境介紹 3 開發(fā)平臺 4 —— ACCESS 數(shù)據(jù)庫管理系統(tǒng) 7 第二章 系統(tǒng)設(shè)計 9 系統(tǒng)分析 9 系統(tǒng)流程和操作方式設(shè)計 11 第三章 系統(tǒng)界面設(shè)計 12 系統(tǒng)界面設(shè)計以及代碼分析 12 第四章 數(shù)據(jù)庫的設(shè)計 30 數(shù)據(jù)庫設(shè)計 30 數(shù)據(jù)庫概念和發(fā)展 30 系統(tǒng)測試與評價 38 總 結(jié) 39 致 謝 40 參考文獻 41 摘 要 20 世紀以來，社會生產(chǎn)力迅速發(fā)展，科學(xué)技術(shù)突飛猛進， 人們進行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統(tǒng)的信息處理與決策的手段已不能適應(yīng)社會的需要，信 息的重要性和信息處理問題的緊迫性空前提高了，面對著日益復(fù)雜和不斷發(fā)展，變化的社會環(huán)境，特別是企業(yè)間日趨劇烈的競爭形勢，一個人、一個企業(yè)要在現(xiàn)代社會中求生存，求發(fā)展，必須具備足夠的信息和強有力的信息收集與處理手段。 對于學(xué)校 數(shù)控加工技術(shù) 來來說，大量 數(shù)控加工技術(shù) 若可以利用計算機技術(shù)將平時教學(xué)的內(nèi)容結(jié)合信息技術(shù)的方便快捷性 ,將大大提高工作效率提高學(xué)生學(xué)習積極性 .同樣教學(xué)水平的信息話也是衡量一個社會進步也否的重要指標 .這就迫切需要利用計算機技術(shù)來幫助學(xué)校管理者來處理 數(shù)控加工技術(shù) 日常教學(xué)信息的信息化管理 .vb 數(shù)控加工 技術(shù)教學(xué)素材資源庫 是 vb數(shù)控加工技術(shù)教學(xué)素材資源庫 的一個典型用例 . vb 數(shù)控加工技術(shù)教學(xué)素材資源庫 是一個集信息技術(shù)、經(jīng)濟管理理論、統(tǒng)計學(xué)與運籌學(xué)、數(shù)據(jù)庫技術(shù)為一體的綜合性系統(tǒng)，是一個資金技術(shù)密集型、勞動密集型、智力密集型的項目。 vb 數(shù)控加工技術(shù)教學(xué)素材資源庫的創(chuàng)新工作既不能妄自菲薄，更不能夜郎自大。 開發(fā) 學(xué)校 vb 數(shù)控加工技術(shù)教學(xué)素材資源庫 系統(tǒng)的過程就是要實現(xiàn)數(shù)據(jù)處理方式由人工管理向計算機管理的轉(zhuǎn)變，它在計算機技術(shù)和 vb 數(shù)控加工技術(shù)教學(xué)素材資源庫 實踐活動兩者之間架設(shè)橋梁。s information technology and to achieve a leap forward of the information industry, give better play to the information industry to stimulate economic growth. Development of school teachers in the management process is to achieve data systems approach to the management of the artificial puter management changes in puter technology and management practices between teachers build bridges. keyword : teaching aids system, management information systems, databases, puter management 第一章 引言 對于學(xué)校 數(shù)控加工技術(shù) 來來說，大量 數(shù)控加工技術(shù)若可以利用計算機技術(shù)將平時教學(xué)的內(nèi)容結(jié)合信息技術(shù)的方便快捷性 ,將大大提高 工作效率提高學(xué)生學(xué)習積極性 . 背景 數(shù)控加工技術(shù)教學(xué)素材資源庫 如今隨著教育事業(yè)的發(fā)展 ,數(shù)控加工技術(shù)教學(xué)內(nèi)容的增多 ,如何才能讓數(shù)控加工技術(shù)減少壓力 ,同時又增加學(xué)生的學(xué)習積極性 ,我們想到了 vb 數(shù)控加工技術(shù)教學(xué)素材資源庫 ,采用本系統(tǒng) ,數(shù)控加工技術(shù)可以將講課內(nèi)容輸入系統(tǒng) ,采用計算機處理的方式 ,讓學(xué)生自主的學(xué)習 . 開發(fā) vb 數(shù)控加工技術(shù)教學(xué)素材資源庫的目的與原則 本 vb 數(shù)控加工技術(shù)教學(xué)素材資源庫的主要目的是服務(wù)與中小學(xué) ,各高校的數(shù)控加工技術(shù) ,方便其講課 ,其原則是做到 ,界面友好 人性 ,操作簡單 ,可靠 . 開發(fā)環(huán)境介紹 開發(fā)平臺 本 vb 數(shù)控加工技術(shù)教學(xué)素材資源庫系統(tǒng)的開發(fā)平臺為微軟windows xp visual basic 以及微軟的 Access 作為操作數(shù)據(jù)庫 . 數(shù)據(jù)庫設(shè)計工具 —— ACCESS 數(shù)據(jù)庫管理系統(tǒng) Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 第二章 系統(tǒng)設(shè)計 系統(tǒng)分析 本 VB 數(shù)控加工技術(shù)教學(xué)素材資源庫采用計算機專業(yè) 的 VB課程為內(nèi)容主要由以下幾大模塊構(gòu)成 . 一 . 概念和基本原理 (VB 概述 ,窗口控件和菜單 ,工程的管理 ,開發(fā)應(yīng)用程序 ) 二 . 語言參考 (關(guān)鍵字 ,函數(shù) ,數(shù)據(jù)類型 ,偽指令 ,運算符 ) 三 . API 函數(shù) 四 . 經(jīng)典事例 系統(tǒng)流程和操作方式設(shè)計 第三章 系統(tǒng)界面設(shè)計 系統(tǒng)界面設(shè)計 主界面設(shè)計 主界面 概念和基本原理 機床結(jié)構(gòu) 編程 題庫 代碼設(shè)計 : Private Declare Function ShellExecute Lib Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private BigStyle As String Private SmallStyle As String Private RTB1_BackCorlor As Integer Private AddCode As Boolean Private EditCode As Boolean Dim Temptitle As String Private Sub Cmdcancel_Click() = GetSetting(, Corlor, BackCorlor, ) = False: = False: = True = True EditCode = False AddCode = False (7).Image = 5: (8).Image = 6 (7).Caption = 全選 : (8).Caption = 復(fù)制 (7).Tag = Tool_SelAll: (8).Tag = Tool_Copy = False: = False End Sub Private Sub Cmdfix_Click() = False: = False: = True Dim adoprimaryrs As New If = Then MsgBox 類 別 不 能 為 空 , vbCritical + vbApplicationModal, 錯誤 Exit Sub End If If = Then MsgBox 標 題 不 能 為 空 , vbCritical + vbApplicationModal, 錯誤 Exit Sub End If If = Then MsgBox 內(nèi) 容 不 能 為 空 , vbCritical + vbApplicationModal, 錯誤 Exit Sub End If Select Case True Case AddCode i = ExistRecord(code, 標題 , Trim()) If i Then MsgBox 該代碼標題已存在，請重新修改代碼標題 , vbCritical + vbApplicationModal, 錯誤 = 0 = Len(Trim()) Exit Sub End If Case EditCode Dim adoprimarycmd As New = StrConnect = delete * from code where 標題 =39。 Trim(Temptitle) amp。 Set adoprimarycmd = Nothing End Select = adUseClient select * from code, StrConnect, adOpenKeyset, adLockOptimistic, adCmdText (大類別 ) = Trim(BigStyle) (小類別 ) = Trim(Cbostyle) (標題 ) = Trim(TxTTitle) (內(nèi)容 ) = Set adoprimaryrs = Nothing = GetSetting(, Corlor, BackCorlor, ) Call ShowTree(BigStyle) = True EditCode = False AddCode = False (7).Image = 5: (8).Image = 6 (7).Caption = 全選 : (8).Caption = 復(fù)制 (7).Tag = Tool_SelAll: (8).Tag = Tool_Copy = False: = False = GetSetting(, Font, FontSize, ) = GetSetting(, Corlor, BackCorlor, ) End Sub 39。Dim str As String: Dim rst1 As New : Dim rst2 As New 39。Data Source= amp。 \data\。 select * from winfun, str, adOpenKeyset, adLockOptimistic 39。 39。 (聲明 ) = GetFthFld2(funclass, name, (函數(shù) ), fullname) 39。 39。End Sub Private Sub Form_Load() = 0: = 0 = False: = False: = True (1).Text = amp。 amp。 = amp。Data Source= amp。 \data\。Data Source= amp。 \data\。************************************************* = adUseClient select 函數(shù) from winfun order by 函數(shù) , StrTempConnect, adOpenForwardOnly, adLockReadOnly, adCmdText 39。************************************************* = adUseClient = adUseClient select distinct 小類別 from Code where 大類別 =39。 TempBigStyle amp。, StrConnect, adOpenForwardOnly, adLockReadOnly, adCmdTe