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

　　

【正文】 模塊包括入庫(kù)管理、庫(kù)存管理和領(lǐng)用管理功能。 設(shè)計(jì)入庫(kù)信息編輯窗體 入庫(kù)信息編輯窗體的名稱為 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 請(qǐng)選擇一級(jí)分類名稱 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇二級(jí)分類名稱 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇辦公用品名稱 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇供貨商名稱 Exit Sub End If If Len(Trim(txtDate)) = 0 Then MsgBox 請(qǐng)輸入入庫(kù)日期 Exit Sub End If If Len(Trim(txtAmount)) = 0 Or Val(txtAmount) = 0 Then MsgBox 請(qǐng)輸入入庫(kù)數(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。裝入二級(jí)分類信息 = 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è)計(jì)庫(kù)存信息編輯窗體 庫(kù)存信息編輯窗體用于編輯辦 公用品的基本信息，窗體名稱為 FrmStoreEdit，窗體的布局如圖： 設(shè)計(jì)庫(kù)存信息管理窗體 庫(kù)存信息管理窗體的名稱為 FrmStoreMan，窗體布局如圖所示： DataRefresh 過(guò)程的功能是根據(jù)查詢條件設(shè)置 SELECT語(yǔ)句，從表 Store中讀取辦公用品庫(kù)存信息，并顯示在表格中，代碼如下： 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 設(shè)計(jì)領(lǐng)用信息管理窗體 領(lǐng)用信息管理窗體的名稱為 FRmDrawMan，窗體布局如圖所示 數(shù)據(jù)統(tǒng)計(jì)管理模塊設(shè)計(jì) 設(shè)計(jì)庫(kù)存短缺統(tǒng)計(jì)窗體 庫(kù)存短缺統(tǒng)計(jì)窗體的名稱為 FrmshortMan,窗體布局如圖所示： 設(shè)計(jì)領(lǐng)用統(tǒng)計(jì)窗體 領(lǐng)用統(tǒng)計(jì)窗體的名稱為 Frmsdraw，窗體布局如圖： 致 謝 在這次的畢業(yè)設(shè)計(jì)中，讓我深深地體現(xiàn)到進(jìn)行軟件開(kāi)發(fā)不是一件簡(jiǎn)單的事情，它需要設(shè)計(jì)者具有全面 的專業(yè)知識(shí)、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問(wèn)題、解決問(wèn)題的能力，而我在很多方面還有欠缺。最初，由于自己對(duì)開(kāi)發(fā)工具的學(xué)藝不精，所以一開(kāi)始感覺(jué)摸不著頭緒，根本不知道從何下手。所以只有匆匆忙忙地從圖書(shū)館借來(lái)大量關(guān)于 VF和 Access方面的書(shū)籍，希望通過(guò)參閱各種關(guān)于運(yùn)用 VF和 Access開(kāi)發(fā)系統(tǒng)的書(shū)籍充分了解系統(tǒng)建設(shè)的基本流程、總體布局設(shè)計(jì)以及系統(tǒng)開(kāi)發(fā)前所需的一些準(zhǔn)備工作，做到心中有數(shù)。然而，由于實(shí)在是經(jīng)驗(yàn)有限，雖然書(shū)本上介紹了許多這方面的知識(shí)和操作方法，但是畢竟還是限于理論方面的，所以理解起來(lái)比較困難。 幸好有老師和同學(xué)的熱情幫助，尤其是我的指導(dǎo)老師劉麗老師的精心指導(dǎo)，她在我的整個(gè)設(shè)計(jì)過(guò)程中給于了很大的幫助 ,在此，對(duì)她無(wú)私的奉獻(xiàn)表示衷心的感謝！ 同時(shí)我們小組的其他同學(xué)也給與了我很大的幫助，在此，一并表示感謝！在大家的共同努力下，我的系統(tǒng)設(shè)計(jì)才能夠順利地完成。由于本人的水平有限，程序設(shè)計(jì)簡(jiǎn)單，有許多不足之處，請(qǐng)眾審考老師給予批評(píng)指正。再次不勝感謝 . 參考文獻(xiàn) [1] , 《 Database system implementation》 ,機(jī)械工業(yè)出版社 , 2020 [2] Hector GarcialMolina , Jeffrey , Jennifer Widom,《 An introduction to Database Systems(Seventh Edition), 機(jī)械工業(yè)出版社 ,2020 [3] 林陳雷 , 郭安源 , 葛曉東 , 《教育信息化系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》 , 人民郵電出版社 ,2020 [4] 張立科 ,《數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》 ,人民郵電出版社 ,2020 [5] 張紅軍 , 王虹 等 《 Visual 中文版高級(jí)應(yīng)用與開(kāi)發(fā)指南》 , 人民郵電出版社 , 2020 [6] 伍俊良 主編 等 《 VF課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例》清華大學(xué)出版社 , 2020 [7] 姚巍，《 Visual 》，人民郵電出版社 [8] 求是科技，《 Visual 數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社， 2020 [9] 劉瑞新，汪遠(yuǎn)征，《 Visual Basic程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社， 2020 [10]劉萌，周學(xué)明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》，人民郵電出版社， 2020 [11]孟小峰，王珊，《數(shù)據(jù)庫(kù)系統(tǒng)導(dǎo)論》，機(jī)械 工業(yè)出版社， 2020 d the whale municate over hundreds of miles? How did it use echoes to find its prey in the ocean gloom, to stun fish, diagnose illness in another whale? Questionsto which the answers could prove invaluable. But instead of learning, men threatened to wipe the species out. Aboard the catcher boat no such thoughts crossed the gunner39。s mind. He was busy trying to solve a sixty foot, sixty ton problem: a sperm whale that refused to give up. The harpoon had not found the vital spotthe gunner blamed the choppy sea for spoiling his aim and now the whale was towing the 110 ton boat behind it. Even with the engine reversed, the craft kept moving forward. The gunner got ready to fire a second harpoon. In the bloodstained water the mammoth beast continued its agonising struggle. He was a mature male, a bull. His slateblue body bore scars, souvenirs of epic battles with giant squid he had hunted in the dark depths. The biggest of these pink monsters, whose humanlike eyes were more than fifteen inches across, weighed 42 tons and measured 66 feet. But even the ir powerful beaks and ten suc kered tentacles were no match for the whale39。s eightinch teeth. ted on the shore. Someone set it ablaze. Spar ks crackled amid whirling smoke. Excited, cherry cheeked children ringed the bonfire。 only the older ones understood that this was no celebration. For several nights to e there would be plenty of bodies to feed the flames. Niy miles inland, nothing broke the forest hush. A full moon silvered the treetops and light leaked down to the snowcovered floor beneath. Scraps of mist seemed caught on prickly branches. From the shadows, a ghostly shape glided into a clearing. Tw o amber eyes searched the dappled darkness. Stealthily the wolf a dvanced. Hunger