【正文】 對外界的感知，也再一次徹底中斷。 秦立的心猛的顫動了一下，一股莫名的悲憤襲來，大腦就像是被閃電劈中一般，在這一瞬間幾乎喪失了思考的能力，腦中再次陷入極度混亂當中。張立一算時間道：“可是，這條路到機場，至少還需要大概半個混亂，無數(shù)熟悉的、陌生的記憶紛紛涌上來，讓他有種腦袋 要被撐爆的感覺，忍不住呻吟出聲?！? 那小張是次仁的副官，叫張立，分到西藏軍區(qū)兩年了，驍勇善戰(zhàn)，是軍區(qū)特衛(wèi)團的精英力量。 畢業(yè)設(shè)計（論文） 35 次仁摸了摸微微隆起的肚子，問道：“飛機什么時候到 ?” 那士兵道：“大約還有二十分鐘。 軍區(qū)某團，團長班覺次仁，是藏區(qū)本地人，長得牛高馬大，方面闊口，兩道濃眉下，一雙厲眼透出煞氣。他未曾想到，既然卓木強能搞到軍用包機，那自然和西藏那邊關(guān)系不淺?！? 方新道：“他們不一定熟悉，我們就讓機場方面替我們 安排一下就好?！弊磕緩娒Φ溃骸安挥?，不用了?！边@是他為了討好導師，特意吩咐下人安排的，沒想到竟然不在拉薩降落，而屬下居然沒告知他，急得他直撓頭?！? “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過?！? 進了機場，方新不由看了卓木強一眼，吸氣道：“軍用包機 !” 第 03 部分 第二個瘋子 第七回 第二個瘋子 上 卓木強看見方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來的，沒花多少錢。對了，飛機先飛成都嗎 ?” 卓木強微笑道：“不，我們直飛拉薩?！? 方新教授笑著回復：“是腳指頭截去了，你老哥??”這時，機場已經(jīng)遙遙在望了。方新一握拳，也忍不住激動道：“太好了 !” 只見電腦那頭的專家，打字回復調(diào)侃道：“老方，又要進藏逮狗嗎 ?聽說上次你進藏時，是把那話兒凍僵了才回來的。默默研究了一輩子，誰會放棄可以證明價值的最高獎勵 ?到底是為什么 ?”她轉(zhuǎn)念 心想，“那個高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉(zhuǎn)過身來，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過國境線。你說，你不去德國了 ?” 方新教授肯定地點頭，瑪瑞重復道：“教授，方教授 !你真的不去參加那個論壇了嗎 ?那可是你一直想?yún)⒓拥陌?!” 方新長長吐了口氣，和藹地對瑪瑞笑笑，拍拍她的肩膀，說道：“去吧，瑪瑞，電話號碼簿在書桌左邊臺燈的座下。那是我們藏區(qū)特產(chǎn)，它們已經(jīng)存在幾千萬年了，約在兩千年前流傳到希臘，后到羅馬帝 國，又由東歐的斯拉夫族人傳到歐洲各國，至今世界名犬的體內(nèi)還保留著藏獒的研究理論“隔代大遺傳”是否有關(guān)。 美國，賓夕法尼亞州。強巴生長在一個叫達瓦奴措的小村，那是深入藏原腹地、最接近無人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。 小方框無邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管他叫強巴。幾個月里面，我除基本學會開發(fā)數(shù)據(jù)庫外更重要的是學到了兢兢業(yè)業(yè)，奮發(fā)向上的精神，這種精神是我今后人生前進道路上的一種力量。 [4] 張強，劉黎明《 Visual Basic 學習教程》，北京大學出版社， 1999 [5] Microsoft Visual Language RefERence [美 ]微軟公司 著 東方 人華譯 清華大學出版社 [6] Programming Microsoft Visual Basic (美 ) Francesco Balenna 著 翔實翻譯組 譯 機械工業(yè)出版社 [7]張春葆 ,《 VB 數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā)》 ,清華大學出版社 [8] Buczek,《 Access 2020 數(shù)據(jù)庫開發(fā)即時應用》 ,人民郵電出版社 2020 [9] 李曉黎 ,張巍 ,《 Visual Basic + SQL Server 數(shù)據(jù) 庫應用系統(tǒng)開發(fā)與實例》 ,人民郵電出版社 畢業(yè)設(shè)計（論文） 33 致 謝 論文完成的前提是老師給我提供了舒適的工作、學習環(huán)境，并給予我悉心的關(guān)懷與指導，在這里表示衷心地感謝。 畢業(yè)設(shè)計（論文） 32 參考文獻 [1] 劉韜，駱娟，何旭洪《 Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航》，人民郵電出版社， 2020 [2] 于平，《 Visual Basic 編程高手》，北京希望電子出版社， 2020。 通過本次畢業(yè)設(shè)計我學到了不少新的東西，也發(fā)現(xiàn)了大量的問題，有些在設(shè)計過程中已經(jīng)解決，有些還有待今后慢慢學習。在查詢方面，系統(tǒng)實現(xiàn)了多條件任意字段的模糊查詢，在圖書入庫、出庫和庫存三者之間建立了良好的鏈接關(guān)系，某一部分地修改均會自動引發(fā)系統(tǒng)對與其相關(guān)的部分進行連鎖修改 ， 在用戶管理方面，系統(tǒng)較好地實現(xiàn)了用戶注冊，用戶注銷和密碼修改等各項功能。本系統(tǒng)采用 來完成整個系統(tǒng)的設(shè)計，在數(shù)據(jù)庫的設(shè)計上利用了 Access 的便利性和實用性。畢業(yè)設(shè)計（論文） 31 第六章 設(shè)計總結(jié) 本系統(tǒng)是 一個 具有一定實用性的數(shù)據(jù)庫 貨物 信息管理系統(tǒng)。 圖 511 HTML Help Workshop 的主界面 幫助文件的制作過程 畢業(yè)設(shè)計（論文） 29 圖 最初創(chuàng)建的項目文件窗口 圖 制作目錄窗口 導入事先寫好的各個 htm 文件即可（如下圖，各 htm 文件可先用 word 編寫，轉(zhuǎn)化為 htm格式即可）： 畢業(yè)設(shè)計（論文） 30 圖 方案文件的導入 幫助文件在程序中的調(diào)用 通過調(diào)用 ShellAPI 的函數(shù) Shellexecute（），來完成對幫助文件的調(diào)用。它不僅制作容易，而且支持超文本的全部語法特征，換句話說，只要是能在主頁上制作出來的效 果，幾乎都可以在這種形式的幫助文件中體現(xiàn)出來。PERsist Security Info=False。 工具窗體的制作 工具窗體就包括記事本和計算器，其制作很簡單，就是直接從系統(tǒng)中調(diào)用就行，代碼如下： Shell , vbNormalFocus（記事本） Shell （計算器） 數(shù)據(jù)報表的制作 貨品資料往往需要通過數(shù)據(jù)報表進行輸出 ,制作報表需要一個數(shù)據(jù)環(huán)境 ,在建立數(shù)據(jù)環(huán)境之后 ,再創(chuàng)建數(shù)據(jù)報表 . 在本系統(tǒng)中，要創(chuàng)建如下 6 個報表：出庫登記報表，入庫登記報表，貨品資料報表，員工資 料報表，倉庫資料報表，部門資料報表。其制作過程如下： FORM1 接下來創(chuàng)建系統(tǒng)主菜單 ,出現(xiàn)彈出式菜單 . , “ 菜單編輯器 ” 菜單項 ,進入菜單編輯對話框 ,菜單編輯器如圖 53 所示 畢業(yè)設(shè)計（論文） 24 圖 菜單編輯器 .其主窗體的布局如圖 54所示 : 圖 主窗體布局圖 用戶成功登陸后即進入此界面。PERsist Security Info=False 為每一個按鈕編制執(zhí)行操作的過程代碼： ◆ “確定 ”按鈕的過程代碼 畢業(yè)設(shè)計（論文） 22 Dim StrUser As String Dim StrPassWord As String Dim StrYfc As String StrUser = (用戶名 ) StrPassWord = (密碼 ) StrYfc = (用戶權(quán)限 ) If = Then MsgBox 請輸入用戶名！ , vbOKOnly + 16, 倉庫管理系統(tǒng) Exit Sub End If While Not () If StrUser Then If Then MsgBox 當前戶名不存在或密碼錯誤！ , vbOKOnly + 16, 倉庫管理系統(tǒng) = = Exit Sub End If StrUser = (用戶名 ) StrPassWord = (密碼 ) StrYfc = (用戶權(quán)限 ) Else If StrPassWord Then MsgBox 用戶名或密碼錯誤！ , vbOKOnly + 16, 倉庫管理系統(tǒng) = = 畢業(yè)設(shè)計（論文） 23 Exit Sub End If If = StrPassWord Then str1 = StrYfc user1 = StrUser Exit Sub End If End If Wend ◆ “取消 ”按鈕的過程代碼 Unload Me ◆ “幫助 ”按鈕的過程代碼 Shell 幫助系統(tǒng) .chm, vbNormalFocus 39。 其窗體的布局如 圖 52 示： 圖 系統(tǒng)登陸窗體 該窗體的基本控件如上圖所示 .其各個主要控件屬性設(shè)置如下： 表 ADODC1 的基本屬性 屬性項名 屬性設(shè)置內(nèi)容 Caption Adodc1 CommandType 1adCmdText RecordSource select * from 用戶權(quán)限 ConnectionString ProvidER=。只有通過認證后，合法的用戶才能使用該系統(tǒng)。 圖 系統(tǒng)啟動界面 該窗體的基本控件如上圖所示，在啟動該窗體時，往往需要對各個控件的屬性加以控制， 接下來，需要為相關(guān)的控件編制過程代碼，其過程如下： ◆ 退出系統(tǒng)標簽的過程代碼 Unload Me ◆ 登錄的過程代碼 登錄 .Show 歡迎窗口 .Hide 登錄窗體 的創(chuàng)建 系統(tǒng)啟動封面是一個應用系統(tǒng)開始的界面，通常是系統(tǒng)登錄的界面。 具體如下表所示： 表 部門資料表 字段名稱 部門編號 部門名稱 負責人 電話 傳真 地址 數(shù)據(jù)類型 TEXT TEXT TEXT TEXT TEXT TEXT 表 倉庫表 字段名稱 倉庫編號 名稱 負責 人 電話 備注 數(shù)據(jù)類型 TEXT TEXT TEXT TEXT MEMO 表 貨品資料表 字段名稱 貨品編號 貨品類別 品名 倉庫 型號規(guī)格 品牌 數(shù)量 備注 數(shù)據(jù)類型 TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT 表 公司信息表 字段名稱 企業(yè)編號 企業(yè)名稱 負責人 聯(lián)系電話 數(shù)據(jù)類型 TEXT TEXT TEXT TEXT 字段名稱 傳真號碼 地址 郵編 公司簡介 數(shù)據(jù)類型 TEXT TEXT TEXT MOME 表 入庫登記表 字段名稱 入庫編號 入庫日期 供貨單位 經(jīng)手人 部門 入庫產(chǎn)品 數(shù)量 數(shù)據(jù)類型 TEXT DATA/TIME TEXT TEXT TEXT TEXT LONG 表 出庫登記表 字段名稱 出庫編號 出庫日期 經(jīng)手人 部門 出庫產(chǎn)品 數(shù)量 數(shù)據(jù)類型 TEXT DATA/TIME TEXT TEXT TEXT LONG 表 員工資料表 畢業(yè)設(shè)計（論文） 19 字段名稱 員工編號 姓名 性別 聯(lián)系電話 聯(lián)系地址 數(shù)據(jù)類型 TEXT TEXT TEXT TEXT TEXT 表 供貨單位信息表 字段名稱 單 位編號 單位名稱 聯(lián)系人 聯(lián)系電話 傳真號碼 聯(lián)系地址 數(shù)據(jù)類型 TEXT TEXT TEXT TEXT TEXT TEXT 字段名稱 郵編 網(wǎng)址 電子郵箱 法人代表 稅號 開戶銀行 數(shù)據(jù)類型 TEXT TEXT TEXT TEXT TEXT TEXT 字段名稱 銀行帳號 數(shù)據(jù)類型 TEXT 表 用戶權(quán)限表 字段名稱 用戶名