【正文】 求 從 相 互 關 聯(lián) 的 各 個不 同 的 表 中 獲 取 信 息 時 建 立 的 ， 關 鍵 字 段 用 于 在 相 互 連 接 的 不 同 表 中查 找 匹 配 的 記 錄 。 在 表 中 使 用 的 關 鍵 字 類 型 用 于 描 述 庫 表 示 什 么 以 及 在數(shù) 據(jù) 庫 中 如 何 與 其 它 的 庫 建 立 關 系 。 對 系統(tǒng) 使 用 的 資 源 、 成 本 、 可 取 得 的 效 益 進 行 分 析 ， 探 討 解 決 問 題 的 方 案 ，最 終 完 成 系 統(tǒng) 的 可 行 性 研 究 。 然 后 ， 對 模 塊 完 成 的 工 作 進 行 具 體 的 描 述 。檔 案 系 統(tǒng) 包 括 檔 案 名 稱 、 檔 案 說 明 、 檔 案 類 型 等 。 信 息 瀏 覽將 滿 足 分 析 條 件 的 數(shù) 據(jù) 在 報 表 中 顯 示 出 來 。 原 代 碼 見 附 錄 。登 陸 界 面 運 行 如 下 ： （ 圖 2） 主 界 面 設 計主 界 面 是 用 戶 打 開 系 統(tǒng) 首 先 見 到 的 界 面 ， 也 是 進 入 其 他 模 塊 的 入口 。運 行 效 果 圖 如 下 （ 圖 5） 添 加 、 修 改 檔 案 模 塊添 加 模 塊 用 于 添 加 新 檔 案 ， 修 改 模 塊 可 以 對 已 經(jīng) 歸 檔 的 檔 案 進 行編 輯 。 在 frmresult 窗 體 中 可 以 顯 示 出 所 要 查 詢 信 息 結(jié)果 。 ， 對 于 數(shù) 據(jù) 的 一 致 性 的 問 題 也通 過 程 序 進 行 了 有 效 的 解 決 。 數(shù) 據(jù) 庫 系 統(tǒng) 概 論 .北 京 :高 校 教 育 出 版 社 ,1985 勇 領 .計 算 機 數(shù) 據(jù) 處 理 系 統(tǒng) 分 析 與 設 計 .北 京 :清 華 大 學 出 版 社 ,1986 華 成 .管 理 信 息 系 統(tǒng) .北 京 :清 華 大 學 出 版 社 ,1993 庶 偉 .管 理 信 息 系 統(tǒng) 分 析 與 設 計 .北 京 :機 械 工 業(yè) 出 版 社 ,1992 曉 沛 ,侯 炳 輝 .系 統(tǒng) 分 析 員 教 程 .北 京 :清 華 大 學 出 版 社 ,1992 景 艷 .管 理 信 息 系 統(tǒng) .北 京 :北 方 鐵 道 出 版 社 ,1991附 錄學 生 檔 案 管 理 系 統(tǒng) 程 序 及 內(nèi) 容 ：登 陸 模 塊Option ExplicitDim LOGINNO As IntegerDim PassYu(30) As String, strPurView(30) As StringPrivate Declare Function SetActiveWindow Lib user32 (ByVal hwnd As Long) As LongPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() 39。將 加 密 口 令 變 回 來 Dim shiftStr As String, shiftStrR As Variant, shiftNum As Integer, ili As Integer, SureStr As String shiftStr = Trim() shiftNum = Len(shiftStr) ili = 1 SureStr = For ili = 1 To shiftNum shiftStrR = Mid(shiftStr, ili, 1) shiftStrR = Asc(shiftStrR) shiftStrR = shiftStrR 3 shiftStrR = Chr(shiftStrR) SureStr = SureStr amp。密 碼 正 確 時 = 11 Unload Me Exit Sub Else MsgBox 無 效 的 密 碼 ， 再 試 一 次 ！ , 32, 登 錄 LOGINNO = LOGINNO + 1 If LOGINNO 3 Then MsgBox 對 不 起 ， 您 不 能 使 用 該 系 統(tǒng) ！ , 64, 登 錄 失 敗 Unload Me Exit Sub End If SendKeys {Home}+{End} End IfEnd SubPrivate Sub Form_Load()On Error Resume Next = Val(GetSetting(, Login, Left)) = Val(GetSetting(, Login, Top))Dim retValue As Long retValue = SetActiveWindow() Browser = CurDir() 39。**********************************39。配 置 圖 片(3).Text = 日 期 : amp。沒 有 權 限 限 制End Select39。SaveSetting , Windows, Windows Status, End SubPrivate Sub MnuCompany_Click() = 11 GetStatus 學 校 信 息 配 置 If = True Then Else End If = 0 End SubPrivate Sub MnuEmploy_Click() = 11 GetStatus 操 作 員 配 置 If = True Then Else End If = 0 End SubPrivate Sub MnuExi_Click() GetStatus 關 閉 系 統(tǒng) Unload Me End SubPrivate Sub MnuGuestManager_Click() GetStatus 檔 案 添 加 、 刪 除 、 修 改 、 查 詢 End SubPrivate Sub MnuGuestType_Click() = 11 GetStatus 檔 案 類 型 有 ： 公 文 、 原 始 材 料 1 = 0 End SubPrivate Sub Mnuhelp_Click()GetStatus 配 置 桌 片 圖 片 、 操 作 員 、 關 于 信 息 End SubPrivate Sub MnuNetData_Click() = 11 1 = 0 End SubPrivate Sub MnuSearchGuest_Click() = 11 If = True Then Else End If = 0 End SubPrivate Sub MnuTip_Click() = 11GetStatus 系 統(tǒng) 的 使 用 技 巧 與 幫 助 If = True Then = 0 Exit SubEnd IfSaveSetting , Options, Show Tips at Startup, 1If = True Then End If = 0End SubPrivate Sub MnuWxy_Click() = 11 GetStatus 關 于 系 統(tǒng) 描 述 1 = 0 End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Manager GetStatus 目 錄 添 加 、 刪 除 、 文 件 添 加 、 修 改 、 刪 除 Call MnuSearchGuest_Click Case Content GetStatus 目 錄 添 加 、 刪 除 Call MnuGuestType_Click Case Add GetStatus 在 此 目 錄 下 添 加 新 檔 案 Call Case Modify GetStatus 修 改 選 定 的 檔 案 Call Case Delete GetStatus 刪 除 選 定 的 檔 案 Call Case Search GetStatus 搜 索 檔 案 倉 庫 ， 查 找 匹 配 檔 案 Call Case Help GetStatus 系 統(tǒng) 操 作 手 冊 Call MnuTip_Click Case Exit GetStatus 退 出 檔 案 管 理 系 統(tǒng) Call MnuExi_Click End Select End Sub檔 案 管 理Dim SL As LongDim MDown As Boolean, lShow As BooleanDim mNode As NodeDim mdbFile As DatabaseDim strHistory As StringConst sglSplitLimit = 500Public Sub Form_Load() IT = True = 0 = 0 39。安 裝 權 限 End SubPrivate Sub Form_Resize() On Error Resume Next If 3000 Then = 3000 If 3000 Then = 3000 SizeControls End SubPrivate Sub Form_Unload(Cancel As Integer) 39。清 除 原 有 的 數(shù) 據(jù) 39。 rsPublishers!Name amp。 amp。 Move to next Publishers record. Loop (1).Sorted = True (1).Expanded = True 39。 vbCrLf amp。 [是 /否 ]？ , vbYesNo + vbCritical + vbDefaultButton2, 檔 案 刪 除 后 將不 能 恢 復 !) = vbNo Then Exit Sub Dim strTemp As String Set mdbFile = OpenDatabase(ConData, False, False, ConStr) strTemp = Delete * From Detail Where Name=39。 And 檔案 號 =39。 strTemp Set mdbFile = Nothing 39。文 件 不 存 在 MsgBox 下 面 文 件 沒 有 找 到 ： amp。 , vbInformation, 檔 案 管 理 系 統(tǒng) Exit Sub End If If retVal = 31 Then 39。 txtFields(1).Text amp。使 用 Explorer 打 開 文 件 retVal = Shell( amp。已 經(jīng) 顯 示 時 退 出 = True = True = True = True lShow = True End SubPrivate Sub picEditFile_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) = amp。安 裝 數(shù) 據(jù) 庫 strHistory = If Trim(txtFields(1).Text) And PurView 只 能 添 加 Then = True Else = False End If End If End If If SFile Then txtFields(0).Text = txtFields(1).Text = txtFields(2