【正文】 Only + vbExclamation, 修改結(jié)果 Unload Me End If End If End Sub Private Sub Form_Load() = = = End Sub 添加員工基本信息 其確定按鈕的源碼如下 : Option Explicit Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub Private Sub addNewRecord() Dim SQL As String Dim rs As New SQL = select * from StuffInfo Set rs = TransactSQL(SQL) 39。初始化 = = 0 = = = = = = = = = = = = = = = End Sub Private Sub cmdOK_Click() Dim SQL As String Dim temp As String Dim num As Integer Dim rs As New If Trim() = Then 39。判斷年齡是否為空 MsgBox 請輸入員工年齡！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Trim() = Then 39。判斷部門是否為空 MsgBox 請輸入員工所在部門！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Trim() = Then 39。判斷生日的格式 MsgBox 生日請按照 (yyyymmdd) 方式輸入！ , vbOKOnly + vbExclamation, 警告！ Exit Sub Else = Format(, yyyymmdd) End If If Not IsDate() Then 39。判斷加入本 公司時(shí)間格式 MsgBox 進(jìn)入 本公司時(shí) 間請按 照 (yyyymmdd) 方式輸 入！ , vbOKOnly + vbExclamation, 警告！ Exit Sub Else = Format(, yyyymmdd) End If If Not IsDate() Then 39。添加操作 SQL = select * from StuffInfo where SName=39。 Trim() SQL = SQL amp。 and SGender=39。 amp。 and SBirthday=39。 Trim() amp。 and SDept=39。 Trim() SQL = SQL amp。 and SPosition=39。 Trim() amp。 Set rs = TransactSQL(SQL) If = False Then 39。計(jì)數(shù)器加 1 TransactSQL (SQL) SQL = select * from PersonNum 39。 temp Call init SQL = select * from StuffInfo 39。顯示窗體繼續(xù)添加 End If ElseIf flag = 2 Then 39。 amp。 39。 SQL = SQL amp。 39。 Trim() SQL = SQL amp。 amp。 39。 SDegree=39。 Trim() amp。, SQL = SQL amp。 amp。 39。 SAddress=39。 Trim() amp。, SQL = SQL amp。 amp。 39。 STel=39。 Trim() amp。,SEmail=39。 Trim() amp。, SQL = SQL amp。 amp。 39。 SInTime=39。 Trim() amp。, SQL = SQL amp。 amp。 39。 amp。 39。 amp。 39。 SRemark=39。 Trim() amp。 where SID=39。 Trim() amp。 TransactSQL (SQL) MsgBox 記錄已經(jīng)成功修改！ , vbOKOnly + vbExclamation, 修改結(jié)果！ Unload Me SQL = select * from StuffInfo (SQL) End If End Sub Private Sub Code_Change() End Sub Private Sub Form_Load() Dim rs As New Dim SQL As String Dim num As Integer Dim temp As String With Gender 39。判斷為添加信息 = 添加 + = 0 SQL = select * from PersonNum Set rs = TransactSQL(SQL) num = rs(0) num = num + 1 temp = Right(Format(10000000 + num), 7) = P amp。判斷為修改信息 Set rs = TransactSQL(gSQL) If = False Then With rs = rs(0) = rs(1) = rs(2) = rs(3) = rs(4) = rs(5) = rs(6) = rs(7) = rs(8) = rs(9) = rs(10) = rs(11) = rs(12) = rs(13) = rs(14) = rs(15) = rs(16) = rs(17) End With = 修改 amp。換言之，系統(tǒng)維護(hù)就是為了保證系統(tǒng)中的各個(gè)要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。 系統(tǒng)維護(hù)的內(nèi)容 按照維護(hù)對象的不同，系統(tǒng)維護(hù)的內(nèi)容可分為以下幾類： （ 1）系統(tǒng)應(yīng)用程序維護(hù) （ 2）數(shù)據(jù)維護(hù) （ 3）代碼維護(hù) （ 4）硬件設(shè)備維護(hù) 系統(tǒng)維護(hù)的類型 系統(tǒng)維護(hù)的重點(diǎn)是系統(tǒng)應(yīng)用軟件的維護(hù)工作，按照軟件維護(hù)的不同性質(zhì)，可以劃分為下面四種類型： （ 1）糾錯(cuò)性維護(hù) 診斷和修正系統(tǒng)中遺留的錯(cuò)誤。 （ 3）完 善性維護(hù) 為滿足用戶的需求而進(jìn)行的維護(hù)。 系統(tǒng)維護(hù)的組織與管理 系統(tǒng)維護(hù)工作，首先必須建立一個(gè)維護(hù)組織，確定進(jìn)行維護(hù)工作所應(yīng)遵循的原則和規(guī)范化的過程，此外還應(yīng)建立一套適用于具體系統(tǒng)維護(hù)過程的文檔及管理措施，以及進(jìn)行復(fù)審的標(biāo)準(zhǔn)。 （ 2）管理部門進(jìn)行審批，并對修改帶來的影響作出充分的估計(jì)。 （ 4）更新文檔資料的相關(guān)部分。在此，我要深深感謝我的指導(dǎo)老師和所有幫助 ,饒力老師在我做課題期間所給予的大力支持，他的幫助保證了論文工作的順利完成。 對管理信息系統(tǒng)的展望 管理信息系統(tǒng)從 60 年代開始，已經(jīng)經(jīng)歷了電子數(shù)據(jù)處理階段（ EDP），事務(wù)處理階段，管理信息系統(tǒng)階段（ MIS），隨著計(jì)算機(jī)技術(shù)，數(shù)據(jù)處理技術(shù)及相關(guān)學(xué)科的迅猛發(fā)展，現(xiàn)在管理信息系統(tǒng)正朝著自適應(yīng)、自學(xué)習(xí)的更高階段進(jìn)軍。 是通過 對專家的知識(shí)的認(rèn)識(shí)，模擬專家的思維、技巧、和直覺，從而處理與解決問題的信息系統(tǒng)。 是利用計(jì)算機(jī)將互相獨(dú)立發(fā)展起來的計(jì)算機(jī)輔助設(shè)計(jì)系統(tǒng)（ CAD）、計(jì)算機(jī)輔助制造系統(tǒng)（ CAM）與管理信息系統(tǒng)（ MIS）綜合為一個(gè)有機(jī)整體，從而達(dá)到設(shè)計(jì)、制造和管理過程自動(dòng)化的系統(tǒng)。 是一種把信息技術(shù)作為實(shí)現(xiàn)企業(yè)戰(zhàn)略目標(biāo)和競爭武器的信息系統(tǒng)。 是專供高層決策者使用的系統(tǒng)。 參考文獻(xiàn) [1] , 《 Database system implementation》 ,機(jī)械工業(yè)出版社 , 2020 [2] Hector GarcialMolina , Jeffrey , Jennifer Widom,《 An introduction to Database Systems(Seventh Edition), 機(jī)械工業(yè)出版社 ,2020 [3] 林陳雷 , 郭安源 , 葛曉東 , 《教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 , 人民 郵電出版社 ,2020 [4] 張立科 ,《數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》 ,人民郵電出版社 ,2020 [5] 張紅軍 , 王虹 等 《 Visual basic 中文版高級(jí)應(yīng)用與開發(fā)指南》 , 人民郵電出版社 , 2020 [6] 伍俊良 主編 等 《 VB課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》清華大學(xué)出版社 , 2020 [7] 姚巍，《 Visual Basic 數(shù)據(jù)庫開發(fā)及工程實(shí)例》，人民郵電出版社 [8] 求是科技，《 Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社， 2020 [9] 劉瑞新，汪遠(yuǎn)征，《 Visual Basic 程序設(shè)計(jì)教程》，機(jī)械工 業(yè)出版社， 2020 [10] 劉萌，周學(xué)明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航》，人民郵電出版社， 2020 [11] 孟小峰，王珊，《數(shù)據(jù)庫系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社， 2020 10 致謝 三個(gè)多月的時(shí)間瞬間即過，值此論文完成之際，我首先要衷心地感謝我的導(dǎo)師老師。同時(shí)感謝同組成員 ,我們在一起互相討論 ,學(xué)習(xí) ,解決了不少的難題。 最后， 我衷心地感謝所有關(guān)心和幫助過我的人們。 卓姆強(qiáng)巴，藏族，四十二歲，天獅名犬馴養(yǎng)基地公司總裁，也是復(fù)旦大學(xué)生物系客座教授，主講世界名犬。他沒有讓他的父母失望，如今已是擁有千萬資產(chǎn)的公司老總，也是著名大學(xué)的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 “幾千年來，全 世界所公認(rèn)的，體形最龐大，性格最兇猛的，叫獒。 或許聽錯(cuò)了。” 瑪瑞滿腹狐疑，悻 悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。”電腦上在氣象局發(fā)來的橘紅色區(qū)域中又用更深的大紅色畫出一塊，從珠峰以北畫到錫金和尼泊爾境內(nèi)。我一直想到上海來探 望你，看看是不是真的。 方新收起電腦，喃喃道：“入藏后，就不能無線上網(wǎng)了，只是電腦里的很多資料很有用處?！? “哦 ?”方新疑惑道，“好像這個(gè)時(shí)段，沒有直飛拉薩的航班吧 ?” 卓木強(qiáng)道：“