【文章內(nèi)容簡介】 本軟件是作者的畢業(yè)設(shè)計(jì) ,為免費(fèi)軟件歡迎大家使用 . amp。 Chr(13) amp。 _ amp。 Chr(13) amp。 _ amp。 Chr(13) amp。 _ amp。 Chr(13) amp。 _ amp。 Chr(13) amp。 _ MsgBox StrMsg, vbOKOnly + vbInformation End Sub Private Sub Menu_Add_Click() = True: = True: = False Call SelFldtoCbo(code, 小類別 , BigStyle, Cbostyle) = （添加） = = On Error GoTo ERR: If ExistRecord(code, 標(biāo)題 , ()) = True Then = () Else If ExistRecord(code, 小類 別 , ()) = True Then = () End If End If ERR: = False = RGB(255, 255, 255) AddCode = True (7).Image = 16: (8).Image = 17 (7).Caption = 粘貼 : (8).Caption = 清除 (7).Tag = Tool_Plaste: (8).Tag = Tool_Clear = True: = True End Sub Private Sub Menu_API_Click() = API 函數(shù) BigStyle = API 函數(shù) For i = 1 To (i).MixedState = False Next i (4).MixedState = True Call ShowTree(BigStyle) End Sub Private Sub Menu_Author_Click() ShellExecute , open, , , 1, 0 End Sub Private Sub Menu_Basic_Click() = 概念和基本原理 BigStyle = 概念和基本原理 For i = 1 To (i).MixedState = False Next i (2).MixedState = True Call ShowTree(BigStyle) End Sub Private Sub Menu_Big_Click() = + 1 SaveSetting , Font, FontSize, End Sub Private Sub Menu_Consult_Click() = 語言參考 BigStyle = 語言參考 For i = 1 To (i).MixedState = False Next i (3).MixedState = True Call ShowTree(BigStyle) End Sub Private Sub Menu_Copy_Click() SendKeys ^C End Sub Private Sub Menu_Del_Click() On Error GoTo ERR: If ExistRecord(code, 標(biāo)題 , Temptitle) = True Then If MsgBox(你真的要?jiǎng)h除此記錄嗎？ , vbYesNo + vbExclamation, 警告 ) = vbYes Then Dim adoprimarycmd As New = StrConnect = delete * from code where 標(biāo)題 =39。 amp。 Trim(Temptitle) amp。 39。 Set adoprimarycmd = Nothing = Call Form_Load End If Else MsgBox 你必須先選擇要?jiǎng)h除的標(biāo)題 , vbOKOnly + vbCritical, 刪除錯(cuò)誤 End If Exit Sub ERR: MsgBox 你必 須先 選擇 要?jiǎng)h 除的 標(biāo)題 , vbOKOnly + vbCritical, 刪除錯(cuò)誤 End Sub Private Sub Menu_Edit_Click() On Error GoTo ERR: If ExistRecord(code, 標(biāo)題 , ()) = False Then MsgBox 你必須先選擇要修改的標(biāo)題 , vbOKOnly + vbCritical, 錯(cuò)誤 Exit Sub End If = True: = True: = False = （修改） Call SelFldtoCbo(code, 小類別 , BigStyle, Cbostyle) = False = RGB(255, 255, 255) = () = Temptitle EditCode = True (7).Image = 16: (8).Image = 17 (7).Caption = 粘貼 : (8).Caption = 清除 (7).Tag = Tool_Plaste: (8).Tag = Tool_Clear = True: = True Exit Sub ERR: MsgBox 你必 須先 選擇 要修 改的 標(biāo)題 , vbOKOnly + vbCritical, 錯(cuò)誤 End Sub Private Sub Menu_Example_Click() = 經(jīng)典事例 BigStyle = 經(jīng)典事例 For i = 1 To (i).MixedState = False Next i (5).MixedState = True Call ShowTree(BigStyle) End Sub Private Sub Menu_Exit_Click() End End Sub Private Sub Menu_Print_Click() MsgBox 系統(tǒng)找不到打印機(jī) . End Sub Private Sub Menu_SelAll_Click() = 0 = Len() End Sub Private Sub Menu_Small_Click() = 1 SaveSetting , Font, FontSize, End Sub Private Sub Timer1_Timer() (1).Text = amp。 Format(Date, long date) amp。 amp。 Time amp。 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Tool_Basic Call Menu_Basic_Click Case Tool_Consult Call Menu_Consult_Click Case Tool_API Call Menu_API_Click Case Tool_Example Call Menu_Example_Click Case Tool_SelAll Call Menu_SelAll_Click Case Tool_Copy Call Menu_Copy_Click Case Tool_Plaste Call Menu_Plaste_Click Case Tool_Clear Call Menu_Clear_Click Case Tool_Print Call Menu_Print_Click Case Tool_Add Call Menu_Add_Click Case Tool_Edit Call Menu_Edit_Click Case Tool_Del Call Menu_Del_Click Case Tool_Author Call Menu_Author_Click Case Tool_About Call Menu_About_Click Case Tool_Exit Call Menu_Exit_Click End Select End Sub 第四章 數(shù)據(jù)庫的設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì) 信息表 : v 表設(shè)計(jì) : 數(shù)據(jù)庫概念和發(fā)展 關(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)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 結(jié)構(gòu)化查詢語 言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 系統(tǒng)測試與評(píng)價(jià) 測試在軟件開發(fā)過程中一直都是備受關(guān)注的，即使在傳統(tǒng)的軟件工程中，也有一個(gè)明確、獨(dú)立的測試階段。隨著軟件危機(jī)的頻頻出現(xiàn)以及人們對(duì)于軟件本質(zhì)的進(jìn)一步認(rèn)識(shí)，測試的地位得到了前所未有的提高。測試已經(jīng)不僅僅局限于軟件開發(fā)中的一個(gè)階段，它已經(jīng)開始貫穿于整個(gè)軟件開發(fā)過程，人們已經(jīng)開始認(rèn) 識(shí)到：測試開始的時(shí)間越早，測試執(zhí)行的越頻繁，所帶來的整個(gè)軟件開發(fā)成本的下降就會(huì)越多。 Extreme Programming 更是把測試推到了極限的位置，一切軟件開發(fā)活動(dòng)都要從首先編寫測試代碼開始。 總 結(jié) vb 數(shù)控加工技術(shù)教學(xué)素材資源庫 是一個(gè)典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計(jì)、選用工具、程序模塊、系統(tǒng)測試等幾個(gè)步驟來實(shí)現(xiàn)。開發(fā)本系統(tǒng)的過程中，首先 要 對(duì) 數(shù)控加工技術(shù)日常教學(xué) ,授課進(jìn)行系統(tǒng)調(diào)研， 熟悉 學(xué)校 數(shù)控加工技術(shù) 的講課內(nèi)容 ,順序的 流程 、步驟；其次在系統(tǒng)需求分析過程 中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到學(xué)校 vb 數(shù)控加工技術(shù)教學(xué)素材資源庫 中存在的各種問題，并在總體設(shè)計(jì)把握好對(duì)問題的分析、理解，進(jìn)而解決問題；選用開發(fā)工具要選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用 MS Visual Basic ，其具有語言簡單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。程序模塊的編制中，重點(diǎn)把握系統(tǒng)內(nèi)部完整性、功能性、實(shí)用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運(yùn)行無誤。 運(yùn)行結(jié)果證明， 本教學(xué)復(fù)制系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終 滿足 學(xué)校管理、學(xué)校員工工作 的需要 ，同時(shí)也成為現(xiàn)代化學(xué)校管理的標(biāo)志