【導(dǎo)讀】在技術(shù)上已逐步成熟。信息管理系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)。本文采用VB和ACCESS等軟件為開(kāi)發(fā)工具，以。的信息、學(xué)生的課程以及成績(jī)進(jìn)行統(tǒng)一管理，便于查詢、修改和打印。主要實(shí)現(xiàn)的功能模。本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。學(xué)生成績(jī)輸入數(shù)據(jù)顯示窗體…可擴(kuò)充內(nèi)容………………………

　　

【正文】 vious If 學(xué)生情況表 .BOF = True Then 學(xué)生情況表 .MoveFirst MsgBox 已經(jīng) 為第一條記錄！ , vbExclamation + vbOKOnly, 首記錄 End If 39。向上移動(dòng)，若到首記錄了，則顯示對(duì)話框 End Sub Private Sub Command3_Click() 學(xué)生情況表 .MoveNext If 學(xué)生情況表 .EOF = True Then 學(xué)生情況表 .MoveLast MsgBox 已經(jīng)為最后一條記錄！ , vbExclamation + vbOKOnly, 尾記錄 End If 39。向下移動(dòng)，若到尾記錄了，則顯示對(duì)話框 End Sub Private Sub Command4_Click() 學(xué)生情況表 .MoveLast 39。移動(dòng)到尾記錄 End Sub Private Sub Command5_Click() 學(xué)生情況表 .Filter = cancel like 39。039。 39。取消過(guò)濾，實(shí)際是根據(jù) cancel 項(xiàng)進(jìn)行過(guò)濾，此項(xiàng)是數(shù)據(jù)型，默認(rèn)為 0 End Sub Private Sub Command6_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .UpdateBatch adAffectAllChapters 39。刷新記錄 MsgBox 記錄已經(jīng)更新！ , vbExclamation + vbOKOnly, 成功 End Sub Private Sub Command7_Click() 39。打印報(bào)表 End Sub Private Sub Command8_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .Delete 39。刪除記錄 End Sub Private Sub Command9_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .AddNew End Sub *員工培訓(xùn)信息（員工培訓(xùn)信息 .frm） Dim 員工培訓(xùn)表 As Private Sub Command1_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .AddNew 39。添加記錄 = False = False = True = True = False = True = False = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Command10_Click() If = True Then MsgBox (已到首記錄 ) End If End Sub Private Sub Command11_Click() If = True Then MsgBox (已到末記錄 ) End If End Sub Private Sub Command12_Click() End Sub Private Sub Command14_Click() Unload Me End Sub Private Sub Command2_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = True 39。修改記錄 = True = True = True = True = True = True = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Command3_Click() 員工培訓(xùn)表 .CancelUpdate 39。取消修改 = False = False = True = True = True = True = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .Update = False = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Command6_Click() 實(shí)習(xí)表 .CancelUpdate 39。取消添加 = False = True = True = True = True = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Command7_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .Update 39。確定修改 = False = False = False = True = True = False = True = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Command8_Click() msg = 確定要?jiǎng)h除嗎？ 39。刪除記錄 X = MsgBox(msg, vbYesNo, ) If X = vbYes Then 員工培訓(xùn)表 .Delete 員工培訓(xùn)表 .MoveNext If 員工培訓(xùn)表 .EOF Then 員工培訓(xùn)表 .MoveLast End If End If End Sub Private Sub Command9_Click() End Sub Private Sub Form_Load() Set 員工培訓(xùn)表 = End Sub 小方框無(wú)邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管他叫強(qiáng)巴。 卓姆強(qiáng)巴，藏族，四十二歲，天獅名犬馴養(yǎng)基地公司總裁，也是復(fù)旦大學(xué)生物系客座教授，主講世界名犬。強(qiáng)巴生長(zhǎng)在一個(gè)叫達(dá)瓦奴措的小村，那是深入藏原腹地、最接近無(wú)人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。他沒(méi)有讓他的父母失望，如今已是擁有千萬(wàn)資產(chǎn)的公司老 總，也是著名大學(xué)的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 美國(guó)，賓夕法尼亞州。 “幾千年來(lái)，全世界所公認(rèn)的，體形最龐大，性格最兇猛的，叫獒。那是我們藏區(qū)特產(chǎn)，它們已經(jīng)存在幾千萬(wàn)年了，約在兩千年前流傳到希臘，后到羅馬帝國(guó)，又由東歐的斯拉夫族人傳到歐洲各國(guó)，至今世界名犬的體內(nèi)還保留著藏獒的研究理論“隔代大遺傳”是否有關(guān)。 或許聽(tīng)錯(cuò)了。你說(shuō)，你不去德國(guó)了 ?” 方新教授肯定地點(diǎn)頭，瑪瑞重復(fù)道：“教授，方教授 !你真的不去參加那個(gè)論壇了嗎 ?那可是你一直想?yún)⒓拥陌?!” 方新長(zhǎng)長(zhǎng) 吐了口氣，和藹地對(duì)瑪瑞笑笑，拍拍她的肩膀，說(shuō)道：“去吧，瑪瑞，電話號(hào)碼簿在書(shū)桌左邊臺(tái)燈的座下?！? 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。默默研究了一輩子，誰(shuí)會(huì)放棄可以證明價(jià)值的最高獎(jiǎng)勵(lì) ?到底是為什么 ?”她轉(zhuǎn)念心想，“那個(gè)高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉(zhuǎn)過(guò)身來(lái)，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過(guò)國(guó)境線。”電腦上在氣象局發(fā)來(lái)的橘紅色區(qū)域中又用更深的大紅色畫(huà)出一塊，從珠峰以北畫(huà)到錫金和尼泊爾境內(nèi)。方新一握拳，也忍不住激動(dòng)道：“太好了 !” 只 見(jiàn)電腦那頭的專家，打字回復(fù)調(diào)侃道：“老方，又要進(jìn)藏逮狗嗎 ?聽(tīng)說(shuō)上次你進(jìn)藏時(shí)，是把那話兒凍僵了才回來(lái)的。我一直想到上海來(lái)探望你，看看是不是真的。” 方新教授笑著回復(fù)：“是腳指頭截去了，你老哥??”這時(shí)，機(jī)場(chǎng)已經(jīng)遙遙在望了。 方新收起電腦，喃喃道：“入藏后，就不能無(wú)線上網(wǎng)了，只是電腦里的很多資料很有用處。對(duì)了，飛機(jī)先飛成都嗎 ?” 卓木強(qiáng)微笑道：“不，我們直飛拉薩?！? “哦 ?”方新疑惑道，“好像這個(gè)時(shí)段，沒(méi)有直飛拉薩的航班吧 ?” 卓木強(qiáng)道：“因?yàn)槭俏覀円ダ_，所以就有了去那里的直飛 航班呢?！? 進(jìn)了機(jī)場(chǎng)，方新不由看了卓木強(qiáng)一眼，吸氣道：“軍用包機(jī) !” 第 03 部分 第二個(gè)瘋子 第七回 第二個(gè)瘋子 上 卓木強(qiáng)看見(jiàn)方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來(lái)的，沒(méi)花多少錢?！? 方新道：“可是，軍用包機(jī)不在拉薩機(jī)場(chǎng)降落，在旁邊有個(gè)專用的軍用機(jī)場(chǎng)，離城還有一段距離呢?！? “什么 ?”這番輪到卓木強(qiáng)吃驚了，他道，“我??我不知道啊，以前沒(méi)包過(guò)。我以為，它們都在拉薩機(jī)場(chǎng)起降呢。”這是他為了討好導(dǎo)師，特意吩咐下人安排的，沒(méi)想到竟然不在拉薩降落，而屬下居然沒(méi)告知他，急得他 直撓頭。 方新道：“不用著急，我打個(gè)電話，我和西藏軍區(qū)的一位領(lǐng)導(dǎo)頗有交情，上次也是坐他的飛機(jī)去西藏的，所以才知道這情況?！弊磕緩?qiáng)忙道：“不用，不用了。到時(shí)候安排人來(lái)接我們就是了?！? 方新道：“他們不一定熟悉，我們就讓機(jī)場(chǎng)方面替我們安排一下就好。這樣，我們就不用進(jìn)拉薩，到時(shí)候直接從機(jī)場(chǎng)往南，看是先去你家還是先去蒙河 ?”說(shuō)著，打了個(gè)電話，那位領(lǐng)導(dǎo)在外地，答應(yīng)方新會(huì)替他們安排好的。他未曾想到，既然卓木強(qiáng)能搞到軍用包機(jī)，那自然和西藏那邊關(guān)系不淺。兩人遂登上軍用專機(jī)，從上海往西，朝著圣潔的高原 —— 西藏飛 去 。 軍區(qū)某團(tuán)，團(tuán)長(zhǎng)班覺(jué)次仁，是藏區(qū)本地人，長(zhǎng)得牛高馬大，方面闊口，兩道濃眉下，一雙厲眼透出煞氣。次仁剛吃過(guò)午飯，一名士