【導(dǎo)讀】司的競爭力，科技不斷地創(chuàng)新，不斷地滿足你我，也不斷產(chǎn)生需求。計算機軟件的一個重要的分支。數(shù)據(jù)庫技術(shù)體現(xiàn)了當代先進的數(shù)據(jù)管理方法,贏得了社會的。用品管理系統(tǒng)的進行和編譯，第三到第六章主要介紹了系統(tǒng)開發(fā)的全部過程，除了原文部分，原代碼統(tǒng)一記在附錄中。份喜悅，雖然做的有很多的不足，但是只有在不足中進步，才能做出更好的成果。程序中得到學校和老師的幫助，表示感謝，還要敬請指正不足之處。進行規(guī)范化管理，進而提高工作效率，避免資源的浪費。此系統(tǒng)根據(jù)單位的辦公用品的購買，入庫，領(lǐng)用流程而設(shè)計的，特別適用于分批次購買，各部門領(lǐng)用的模式，具有完善的輸入，統(tǒng)計，查詢功能。這樣就更可以合理規(guī)范對企業(yè)辦公。工具，ACCESS作為后臺數(shù)據(jù)庫，這是經(jīng)典的單機版數(shù)據(jù)庫管理信息系統(tǒng)開發(fā)組合。積累有效的數(shù)據(jù)庫應(yīng)用系統(tǒng)實戰(zhàn)經(jīng)驗。因此，開發(fā)一套符合本校具體情況的系學生成績管理。行了系統(tǒng)實現(xiàn)，并進行了相應(yīng)的系統(tǒng)測試和調(diào)試。

　　

【正文】 resh End Sub Private Sub Cmd_Modi_Click() If Then MsgBox 請選擇記錄 Exit Sub End If = True = (0) = Trim((1)) = Trim((2)) = Trim((3)) = Trim((4)) = Trim((5)) 1 DataRefresh End Sub Private Sub Cmd_Search_Click() DataRefresh End Sub Private Sub Form_Load() DataRefresh End Sub 辦公用品信息管理模塊設(shè)計 辦公用品信息管理模塊包括入庫管理、庫存管理和領(lǐng)用管理功能。 設(shè)計入庫信息編輯窗體 入庫信息編輯窗體的名稱為 FrmstoreInedit，窗體布局如圖所示 主要代碼如下： Public OriInId As Long Public Modify As Boolean Private Sub Cmd_Cancel_Click() Unload Me End Sub Private Sub Cmd_OK_Click() If Len(Trim()) = 0 Then MsgBox 請選擇一級分類名稱 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請選擇二級分類名稱 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請選擇辦公用品名稱 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請選擇供貨商名稱 Exit Sub End If If Len(Trim(txtDate)) = 0 Then MsgBox 請輸入入庫日期 Exit Sub End If If Len(Trim(txtAmount)) = 0 Or Val(txtAmount) = 0 Then MsgBox 請輸入入庫數(shù)量 Exit Sub End If With MyIn .OId = () .InDate = Trim(txtDate) .SId = () .InAmount = Val(txtAmount) .InSum = Val(txtSum) .Memos = Trim(txtMemo) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriInId) MsgBox 保存成功 End If End With Unload Me End Sub Private Sub dco_Type_Click(Area As Integer) If Len(Trim()) 0 Then = Conn = Select * From Store Where TypeId= + Trim(()) + Order By OId Set = Ado_Store = OName = OId = End If 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 = End If End Sub Private Sub Form_Load() 39。裝入分類信息 = Conn = Select * From Types Where UpperId=0 Order By TypeId Set = Ado_UType = TypeName = TypeId 39。裝入二級分類信息 = Conn = Select * From Types Where UpperId0 Order By TypeId Set = Ado_Type = TypeName = TypeId 39。裝入辦公 用品信息 = Conn = Select * From Store Order By OId Set = Ado_Store = OName = OId 39。裝入供應(yīng)商信息 = Conn = Select * From Supplier Order By SId Set = Ado_Supplier = SName = SId End Sub 設(shè)計庫存信息編輯窗體 庫存信息編輯窗體用于編輯辦 公用品的基本信息，窗體名稱為 FrmStoreEdit，窗體的布局如圖： 設(shè)計庫存信息管理窗體 庫存信息管理窗體的名稱為 FrmStoreMan，窗體布局如圖所示： DataRefresh 過程的功能是根據(jù)查詢條件設(shè)置 SELECT語句，從表 Store中讀取辦公用品庫存信息，并顯示在表格中，代碼如下： Private Sub Check1_Click() If = 1 Then = False = False = = Else = True = True End If DataRefresh End Sub Private Sub Cmd_Add_Click() = False 1 DataRefresh End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub DataRefresh() Dim StrSearch As String StrSearch = If 1 Then If Len(Trim()) 0 Then 39。設(shè)置一級分類 StrSearch = And = + Trim() End If If Len(Trim()) 0 Then 39。設(shè)置二級分類 StrSearch = And = + Trim() End If End If = Conn = Select , AS 辦公用品名稱 , AS 一級分類名稱 , _ + AS 二級分類名稱 , AS 型號 , AS 庫存數(shù)量 , AS 庫存下限 , AS 備注 _ + From Store s,Types t,Types t1 Where = _ + And = + StrSearch + Order By Set = Adodc1 (0).Width = 0 (1).Width = 1600 (2).Width = 1200 (3).Width = 1200 (4).Width = 1200 (5).Width = 1200 (6).Width = 1200 (7).Width = 1600 End Sub Private Sub Cmd_Del_Click() If Then MsgBox 請選擇記錄 Exit Sub End If 39。判斷是否可以刪除此辦公用品信息 :入庫表、領(lǐng)用表 If ((0)) Or _ ((0)) Then MsgBox 不能刪除此辦公用品信息！ Exit Sub End If 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。裝入分類信息 = Conn = Select * From Types Where UpperId=0 Order By TypeId Set = Ado_UType = TypeName = TypeId = False = False = 1 DataRefresh End Sub 設(shè)計領(lǐng)用信息管理窗體 領(lǐng)用信息管理窗體的名稱為 FRmDrawMan，窗體布局如圖所示 DataRefresh 過程的功能是根據(jù)查詢條件設(shè)置 SELECT語句，從表 Draw和表 Department 中讀取部門領(lǐng)用信息，并顯示在表格中，代碼如下： Private Sub Check1_Click() If = 1 Then = False = Else = True End If DataRefresh End Sub Private Sub Cmd_Add_Click() = Date 1 DataRefresh End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub DataRefresh() Dim StrSearch As String StrSearch = If 1 Then If Len(Trim()) 0 Then StrSearch = And = + Trim() End If End If = Conn = Select , AS 部門名稱 , AS 領(lǐng)用日期 , _ + IIF(=0,39。創(chuàng)建 39。,39。領(lǐng)用 39。) AS 狀態(tài) , From Draw r,Department d Where = _ + StrSearch + Order By DESC Set = Adodc1 (0).Width = 0 (1).Width = 1600 (2).Width = 1400 (3).Width = 600 (4).Width = 0 End Sub Private Sub Cmd_Check_Click() If Then MsgBox 請選擇記錄