【正文】 秦立整日練功，難免帶來一些傷害，因為請不起有名的醫(yī)生，只能去請這個在秦家地位并不高的醫(yī)師。 不知過了多久， 他終于融合了腦中全部的記憶，那種痛苦的感覺也漸漸消失，黑暗中，秦立心中茫然，想不到這么離奇詭異的事情，都能讓自己遇到，原以為必死無疑，卻不想竟然以另一種方式，再一次的活過來！ 這個時候，秦立對外界的感知，也一點點的恢復(fù)了正常，耳中傳來一個有些清冷，但卻帶著幾分哀求聲音：“吳醫(yī)師，求你救救他，只要能把他治好，我，我一定重謝！” “重謝？大小姐，現(xiàn)在的你，又能拿什么來重謝我？” 黑暗中，秦立的眉頭皺起來，腦中充滿悲憤的記憶告訴他，他很反感這個聲音的主人。無數(shù)記憶的碎片再一次潮水般洶涌襲來，秦立就像是一只被怒浪卷進大海的可憐蟲，沒有絲毫反抗的余地，最難受的是想昏過去，都成為一種奢望。 這時候，秦立感覺到有一只溫暖的手覆蓋在自己的額頭， 撫摸著自己的臉頰，很輕，很溫柔，透露著一股憐惜，珍愛??同時，朦朧中聽到一陣斷斷續(xù)續(xù)，似有還無的嗚咽聲，突然，似乎有一滴雨滴打在了臉上，涼涼的，沿著臉頰往下流，而后滑過嘴角??咸咸的。他身高一米七六，身體魁梧狀況僅次于團長班覺次仁，面如刀削，目光如炬，其個人格擊和應(yīng)變思維，在這個團不作第二人想?！? 次仁對他旁邊的年輕軍官道：“小張，你和小黃一起去，去機場看看，怎么說也是上級領(lǐng)導(dǎo)的朋友。次仁剛吃過午飯，一名士兵來報，上級領(lǐng)導(dǎo)打來電話，某教授會乘 A3097次專機在軍區(qū)機場降落，他們會從機場直赴蒙河，希望他能安排一下，準備輛車接應(yīng)。兩人遂登上軍用專機，從上海往西，朝著圣潔的高原 —— 西藏飛去。這樣，我們就不用進拉薩，到時候直接從機場往南，看是先去你家還是先去蒙河 ?”說 著，打了個電話，那位領(lǐng)導(dǎo)在外地，答應(yīng)方新會替他們安排好的。到時候安排人來接我們就是了。 方新道：“不用著急，我打個電話，我和西藏軍區(qū)的一位領(lǐng)導(dǎo)頗有交情，上次也是坐他的飛機去西藏的，所以才知道這情況。我以為，它們都在拉薩機場起降呢?！? 方新道：“可是，軍用包機不在拉薩機場降落，在旁邊有個專用的軍用機場，離城還有一段距離呢?！? “哦 ?”方新疑惑道，“好像這個時段，沒有直飛拉薩的航班吧 ?” 卓木強道：“因為是我們要去拉薩，所以就有了去那里的直飛航班呢。 方新收起電腦，喃喃道：“入藏后，就不能無線上網(wǎng)了，只是電腦里的很多資料很有用處。我一直想到上海來探望你，看看是不是真的?！彪娔X上在氣象局發(fā)來的橘紅色區(qū)域中又用更深的大紅色畫出一塊，從珠峰以北畫到錫金和尼泊爾境內(nèi)?！? 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。 或許聽錯了。 “幾千年來，全世界所公認的，體形最龐大，性格最兇猛的，叫獒。他沒有讓他的父母失望，如今已是擁有千萬資產(chǎn)的公司老總，也是著名大學(xué)的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 卓姆強巴，藏族，四十二歲，天獅名犬馴養(yǎng)基地公司總裁，也是復(fù)旦大學(xué)生 物系客座教授，主講世界名犬。 另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。楊老師認真負責(zé)的工作態(tài)度，嚴謹?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺 。這些都有待進一步改善。 對于數(shù)據(jù)的一致性的 問 題 也 通過 程 序 進行 了 有 效的 解 決 。MsgBox ok If Rs(權(quán)限 ) = 管理員 Then = True = True = True = True Else = True End If = False Else MsgBox 密碼錯誤，請確認后再輸入！ , 0 + 64 End If Else MsgShow 沒有這個用戶！ End If Call CloseConn Err: Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = False = False = False = False = False End Sub Private Sub Form_Resize() = ( ) / 2 300 = ( ) / 2 300 End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call Command1_Click End If End Sub 主界面與源代碼 Private Sub Y1_Click() 0 End Sub Private Sub Y2_Click() 1 End Sub Private Sub Y3_Click() 2 End Sub Private Sub cz_Click() 2 End Sub Private Sub dspc_Click() End Sub Private Sub dzcx_Click() = 10335 = 5985 End Sub Private Sub dzgl_Click() = 10335 = 5985 End Sub Private Sub H1_Click() End Sub Private Sub H2_Click() MsgBox 你需要什么幫助，請于我們聯(lián)系！ , 48, 幫助 End Sub Private Sub hs_Click() = 8130 = 10775 End Sub Private Sub jc_Click() 0 End Sub Private Sub js_Click() = 8450 = 10875 End Sub Private Sub pp_Click() 1 End Sub Private Sub Q_Click() End End Sub Private Sub tc_Click() End End Sub Private Sub tjdz_Click() End Sub Private Sub tjts_Click() End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case js = 8450 = 10875 Case hs = 8130 = 10775 Case tjts Case tjdz 借閱圖書界面和源代碼 rivate Sub Command3_Click() Do While True If ( 圖書名稱 ).Value = Then Text1(1).Text = ( 圖 書 名 稱).Value Exit Do End If Loop End Sub Private Sub Command4_Click() Do While True If ( 圖書序號 ).Value = Then Text1(0).Text = ( 圖 書 序 號).Value Exit Do End If Loop End Sub 添加圖書界面與源代碼： Private Sub Command1_Click() If = Or = Then MsgBox 圖書編號或圖書名稱不能為空！ , 16, 出錯： = Else MsgBox 信息保存完畢 ！ , 16, 恭喜 ！ = False End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = = = = = = = = False End Sub Private Sub Text1_Change() = True End Sub 添加讀者界面和源代碼： Private Sub Command1_Click() If = Or = Then MsgBox 讀者編號或讀者姓名不能為空！ , 16, 出錯： = Else MsgBox 信息保存完畢！ , 16, 恭喜！ = False End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = = = = = False End Sub Private Sub Text1_Change() = True End Sub 圖書管理界面與源代碼： Private Sub Command1_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯： Else End If End Sub Private Sub Command2_Click() If = True Then MsgBox 已經(jīng)到最后一條記錄了！ , 16, 提示 ！ Else End If End Sub Private Sub Command3_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯： Else End If End Sub Private Sub Command4_Click() If = True Then MsgBox 已經(jīng)到最后一條記錄了！ , 16, 提示！ Else End If End Sub Private Sub Command5_Click() If = Or = Then MsgBox 圖書編號或圖書名稱不能為空！ , 16, 出錯： = Else MsgBox 信息保存完畢！ , 16, 恭喜！ = False End If End Sub Private Sub Command6_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ Else MsgBox 您確定要刪除這條信息？ , 32, 出錯！ If = False Then Else MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ End If End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() Unload Me End Sub Sub cx() For X = 1 To 1 If Trim() = Trim(t3(Val()).Text) Then Exit Sub Else If = True Then Else End If If = True Then MsgBox 沒有找你到要查詢的記錄！ , 32, 提示： Exit Sub Else X = X 1 End If End If Next X End Sub Private Sub Command9_Click() For X = 0 To 7 If t17(X).Text = Then Else = t17(X).Text = X Call cx E