【正文】 設置一級分類 StrSearch = And = + Trim() End If If Len(Trim()) 0 Then 39。修改選項時，數(shù)據(jù)列表狀態(tài)更改 Private Sub Option1_Click(Index As Integer) If Index = 0 Then = True = False Else = False = True End If End Sub 設計部門管理窗體 部門 管理窗體名稱為 Frmdepman，窗體的布局如圖所示： 窗體中使用 datalist 控件顯示所有部門信息，使用 ADO Data 控件作為其提供數(shù)據(jù)源。判斷是否選擇了一級分類 If 0 Then 39。關閉登錄對話框 Unload Me End Sub 程序的運行過程如下： ? 判斷是否輸入了用戶名和密碼，如果沒有輸入，則返回，要求用戶輸入。庫存信息包括辦公用品名稱、型號、當前庫存數(shù)量、最小庫存數(shù)量等信息。 用戶管理模塊的關系圖如下所示： Admin 用戶 普通用戶 下面進行系統(tǒng)流程分析，所謂系統(tǒng)流程就是用戶在使用系統(tǒng)時的工作過程。因此有必要對企業(yè)的設備管理方式進行改造 ,采用高科技的計算機自動化管理技術來進行企業(yè) 辦公用品 的管理 .而從以上四點進行分析 ,是可行的 . 今天我們使用計算機對 學生成績 信息進行管理，具有手工管理所無法比擬的優(yōu)點。此外，通過動態(tài)鏈接庫，還可以調(diào)用 Windows 應用程序接口 (API)函數(shù)，實現(xiàn) SDK 所具有的功能 第五章 系統(tǒng)分析 系統(tǒng)規(guī)劃，應根據(jù)組織的目標和發(fā)展戰(zhàn)略以及管理信息系統(tǒng)建設的客觀規(guī)律，并考慮到組織面臨的內(nèi)外部環(huán)境，科學地制定管理信息系統(tǒng)的發(fā)展戰(zhàn)略和總體方案，合理安排系統(tǒng)建設的進程；它是管理信息系統(tǒng)（ MIS）生命周期的第一個階段，是 MIS 的概念形成時期，這一階段的主要目標，就是制定出 MIS 的長期發(fā)展方案，決定 MIS 在整個生命周期內(nèi)的發(fā)展方向、規(guī)模和發(fā)展進程。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設計工具，使用 Windows 內(nèi)部的應用程序接口 (API)函數(shù)，以及動態(tài)鏈接庫 (DLL)、動態(tài)數(shù)據(jù)交換 (DDE)、對象的鏈接與嵌入 (OLE)、開放式數(shù)據(jù)訪問 (ODBC)等技術，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。近 30 多年來，軟件工程發(fā)展成為新科學，至今已經(jīng)成為 IT 產(chǎn)業(yè)的重要支柱。 （ 6）擴充性和升級能力強。針對這些企業(yè)辦公用品管理存在的缺陷，我開發(fā)了這個辦公用品管理系統(tǒng)，目的是要做到科學化、自動化、 系統(tǒng)化、規(guī)范化，用電腦管理來替代原來以手工、簡單、繁瑣的辦公用品管理，為廣大企、事業(yè)單位提高管理效益助一臂之力。系學生成績管理系統(tǒng)是一個現(xiàn)代高校管理不可缺少的一部分，它的內(nèi)容對高校實行高效化、智能化的管理非常重要，所以系學生成績管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。 數(shù)據(jù)庫是一門研究數(shù)據(jù)管理的技術，始于 60 年代，經(jīng)過幾十年的發(fā)展，已自成體系，成為計算機軟件的一個重要的分支。 伴隨著計算機軟硬件技術的發(fā)展，計算機的技術和應用獲得了突飛猛進的發(fā)展，計算機已經(jīng)在大致如下的領域得到廣泛的應用： 科學計算：如在天文學、生物學、空氣動力學、核物理學、地質(zhì)勘探、新材料的研制和天氣預報等領域中。不僅如此，計算機還被廣泛的應用到商業(yè)上，越來越多的人們意識到計算機給自己帶來的方便以及他所創(chuàng)造的巨大財富。 （ 3）數(shù)據(jù)安全，保安型高。它的建立應該服從使用單位的整體目標和管理決策活動的需要。 作為數(shù)據(jù)庫系統(tǒng)的開發(fā)， Visual Basic 是一個非常理想選擇。 Visual Basic 是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。利用 OLE 技術，可以方便地建立復合式文檔 (pound document)，這種文檔由來自多個不同應用程序的對象組成，文檔中的每個對象都與原來的應用程序相聯(lián)系，并可執(zhí)行與原來應用程序完全相同的操作。 資源上的可行性。 辦公用品管理系統(tǒng)功能模塊示意圖 辦公用品管理系統(tǒng) 辦公用品管理 數(shù)據(jù)統(tǒng)計管理 基本信息管理 系統(tǒng)用戶管理 分類管理 部門管理 供應商管理 領用管理 入庫管理 庫存管理 庫存短缺統(tǒng)計 入庫統(tǒng)計 領用統(tǒng)計 用戶信息管理 修改自身密碼 在本系統(tǒng)中，用戶管理模塊的功能比較簡單，在系統(tǒng)初始化時，有兩個默認的用戶。在添加領用信息時，需要選擇部門信息和辦公用品信息。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 39。判斷二級分類名稱是否已存在 If (Trim(txtName)) Then MsgBox 分類名稱已存在 Exit Sub Else = Trim(txtName) = () MsgBox 添加成功 LoadTypes Set = Nothing = True = False txtName = (0).Value = True (1).Value = False End If Else MsgBox 請選擇上級分類 Exit Sub End If End If End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() 39。當選擇一級分類名稱時，將分類編號和名稱賦給變量，同時將二級分類變量置為空，并裝入二級分類名稱 If 0 Then OriT1Name = Trim() txtName = OriT1Name LoadTypes2 End If End Sub Private Sub DataList2_Click() If 0 Then OriT2Name = Trim() txtName = OriT2Name End If End Sub Private Sub Form_Load() LoadTypes = False End Sub 39。裝入二級分類信息 = Conn = Select * From Types Where UpperId0 Order By TypeId Set = Ado_Type = TypeName = TypeId 39。刪除 ((0)) MsgBox 刪除成功！ DataRefresh End Sub Private Sub Cmd_Modi_Click() If Then MsgBox 請選擇記錄 Exit Sub End If = True = (0) = Trim((1)) = Trim((2)) = Trim((3)) = Trim((4)) = (5) = (6) = Trim((7)) 1 DataRefresh End Sub Private Sub Cmd_Search_Click() DataRefresh End Sub Private Sub dco_Type_Click(Area As Integer) DataRefresh End Sub Private Sub dco_UType_Click(Area As Integer) If Len(Trim()) 0 Then = Conn = Select * From Types Where UpperId= + Trim(()) + Order By TypeId Set = Ado_Type = TypeName = TypeId = DataRefresh End If End Sub Private Sub Form_Load() 39。 屬性可以設置 DataList1 控件的數(shù)據(jù)來源。判斷辦公用品表中是否已經(jīng)使用了此分類編號 If (()) Then MsgBox 辦公用品表中存在此分類，不能刪除 Exit Sub Else (()) MsgBox 刪除成功 LoadTypes Set = Nothing = True = False txtName = (0).Value = True (1).Value = False End If Else MsgBox 請選擇二級分類 Exit Sub End If End If End Sub Private Sub Cmd_Modi_Click() If Len(Trim(txtName)) = 0 Then MsgBox 請輸入分類名稱 Exit Sub End If 39。如果不存在，則返回，要求用戶重新輸入，同時將計數(shù) 變量 Try_times 加 1 ? 如果用戶名存在，則調(diào)用 ()函數(shù)，讀取此用戶的數(shù)據(jù)，并將用戶密碼與輸入的密碼進行比較。庫存短缺統(tǒng)計信息包括辦公用品、分類信息、庫存數(shù)量、最小數(shù)量等信息，只有庫存數(shù)量小于最小數(shù) 量的辦公用品才會被統(tǒng)計：入庫統(tǒng)計信息包括供應商名稱、辦公用品分類、庫存總數(shù)量和庫存總金額等信息，領用統(tǒng)計信息包括部門、辦公用品分類信息、辦公用品名稱和領用數(shù)量等信息。 如果需要對普通用戶進行管理，則使用 Admin 用戶登錄：否則建議使用 Users 用戶登錄。面對目前的實際狀況，迫切需要開發(fā)一個新系統(tǒng)來適應這一些工作。它的建立應該服從企業(yè)的整體目標和管理決策活動的需要。這些過程 分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。有時候，這種編程 編譯 修改的操作可能要反復多次，大大影響了軟件開發(fā)效率。 采用結(jié)構化生命周期法開發(fā)管理信息系統(tǒng)時，應遵循的主要原則： （一）用戶參與的原則 （二）“先邏輯后物理”的原則 （三）“自頂向下”的原則 （四）工作成果描述（主要指文檔）標準化的原則 其具體開發(fā)步驟可分 為以下四步： （一）系統(tǒng)規(guī)劃 （二）系統(tǒng)開發(fā) 系統(tǒng)分析 .系統(tǒng)初步調(diào)查 .系統(tǒng)可行性研究 .現(xiàn)行系統(tǒng)的詳細調(diào)查 .新系統(tǒng)邏輯方案的提出 系統(tǒng)設計 .系統(tǒng)總體結(jié)構設計 .系統(tǒng)總體功能設計 .系統(tǒng)總體物理結(jié)