【文章內(nèi)容簡介】 “ End Sub（2）選擇下拉列表中的商品之后，該商品的詳細(xì)信息將顯示在窗體中相對應(yīng)的文本框中。39。商品詳細(xì)信息Private Sub Combo1_Click() = ”select * from 貨物的出入庫信息 where tb_title =39。“ amp。 amp。 ”39?！?If 0 Then = (”id“) = (”tb_style“) = (”tb_nums“) = (”tb_values“) = (”tb_mark“)End If39。清空文本框中的內(nèi)容 = ”“ = ”“ = ”“ = ”“End Sub（3）單擊“確認(rèn)銷售”按鈕，將完成銷售商品的操作。（4）當(dāng)用戶輸入銷售數(shù)量后并將輸入焦點(diǎn)移開后，需要實(shí)時(shí)更新商品詳細(xì)信息中的數(shù)量信息，即在原有數(shù)量的基礎(chǔ)上減去用戶輸入的銷售數(shù)量。（3）和（4）的代碼：Private Sub Command1_Click() = MyStrs = ”select * from 貨物的出入庫信息 where tb_title =39?！?amp。 amp。 ”39?！癉im a As IntegerDim b As Integera = Val()b = Val( * )If = ”“ Or = ”“ ThenMsgBox ”請補(bǔ)全信息！“, 64, ”提示信息“ElseIf a b ThenMsgBox ”信息輸入有誤，請重新輸入！“, 64, ”提示信息“Else = * = Set DB_AdoRs = (”insert into 商品的銷售信息 values(39?！?amp。 + 1 amp。 ”39。,39?！?amp。 amp。 ”39。,39。“ amp。 Text6 amp。 ”39。,“ amp。 Text8 amp。 ”,39。“ amp。 Date amp。 ”39。)“)Set DB_AdoRs = (”UPDATE 貨物的出入庫信息 SET tb_nums = 39?！?amp。 Text3 amp。 ”39。 where id= 39?！?amp。 Text1 amp。 ”39?！?MsgBox ”銷售成功！“, 64, ”提示信息“ = ”select * from 商品的銷售信息 “AddTitleEnd IfEnd If End Sub窗體的運(yùn)行結(jié)果如下圖所示： 銷售統(tǒng)計(jì)模塊的設(shè)計(jì)與實(shí)現(xiàn)該模塊主要實(shí)現(xiàn)統(tǒng)計(jì)商品銷售信息的功能。選擇商品的銷售日期和銷售商品的名稱之后，在下面的DataGrid數(shù)據(jù)表格控件中就會(huì)顯示查詢的數(shù)據(jù)結(jié)果信息，同時(shí)統(tǒng)計(jì)出銷售商品的總數(shù)量和總價(jià)格。 窗體界面設(shè)計(jì)（1）添加一個(gè)窗體，命名為Frm_Stat，將窗體的Caption屬性設(shè)置為“銷售統(tǒng)計(jì)”。（2）在窗體上添加控件情況如后圖。（3）在窗體上添加一個(gè)數(shù)據(jù)表格控件DataGrid1。（4）在窗體上添加2個(gè)ADO控件Adodc1和Adodc2，同時(shí)將DataGrid1的數(shù)據(jù)源屬性DataSource設(shè)置為Adodc2。銷售統(tǒng)計(jì)窗體的設(shè)計(jì)界面如下圖所示。 程序代碼實(shí)現(xiàn)（1）在啟動(dòng)窗體時(shí)，將貨物的名稱信息添加到下拉列表控件中，然后再將商品銷售的數(shù)據(jù)信息顯示在表格控件中。（2）在日期時(shí)間控件DTPicker1的Change事件下添加如下的程序代碼，實(shí)現(xiàn)根據(jù)選擇條件統(tǒng)計(jì)商品銷售信息的功能。（3）在日期Combo1控件的Click事件下添加如下的程序代碼，實(shí)現(xiàn)根據(jù)選擇條件統(tǒng)計(jì)商品銷售信息的功能。Private Sub Combo1_Click() = ”select * from 商品的銷售信息 where tb_title =39?！?amp。 amp。 ”39。 and tb_date =39?！?amp。 amp。 ”39。 “ AddTitle Dim n, m As Integer n = 0 m = 0 Do While Not n = n + (2).Value m = m + (3).Value Loop = n = m End SubPrivate Sub DTPicker1_Change() = ”select * from 商品的銷售信息 where tb_title =39。“ amp。 amp。 ”39。 and tb_date =39?！?amp。 amp。 ”39。 “ AddTitle Dim n, m As Integer n = 0 m = 0 Do While Not n = n + (2).Value m = m + (3).Value Loop = n = m End SubPrivate Sub Form_Load() = MyStrs = ”select * from 商品的銷售信息 where tb_title =39?！?amp。 amp。 ”39。 and tb_date =39。“ amp。 amp。 ”39。 order by id“AddTitle39。使用代碼連接數(shù)據(jù)庫與數(shù)據(jù)表 = MyStrs = ”select * from 貨物的出入庫信息 “If 0 Then39。在添加數(shù)據(jù)時(shí)，首先清空控件中的內(nèi)容Do While = False39。將商品銷售信息添加到下拉列表框控件當(dāng)中((”tb_title“))LoopEnd If End SubPrivate Sub AddTitle()(0).Caption = ”編號“(1).Caption = ”名稱“(2).Caption = ”銷售數(shù)量“(3).Caption = ”銷售總價(jià)“(4).Caption = ”銷售日期“ End Sub窗體的運(yùn)行結(jié)果如下： 修改密碼模塊的設(shè)計(jì)與實(shí)現(xiàn) 窗體界面設(shè)計(jì)（1）添加一個(gè)窗體，命名為Frm_Pas，將Caption屬性設(shè)置為“密碼修改”。（2）在窗體上加入一個(gè)ADO控件Adodc1。（3）設(shè)計(jì)窗體的界面如下圖。 程序代碼實(shí)現(xiàn)（1）載入窗口時(shí)連接操作員信息數(shù)據(jù)表 Private Sub Form_Load()39。使用代碼連接數(shù)據(jù)庫與數(shù)據(jù)表 = MyStrs = ”select * from 系統(tǒng)用戶的信息“ End Sub（2）當(dāng)點(diǎn)擊“確定”按鈕時(shí)，首先判斷用戶輸入的用戶名和原密碼信息是否正確，如果正確并且兩次輸入的新密碼一致，就將用戶密碼修改為新密碼。Private Sub Command1_Click() = ”select * from 系統(tǒng)用戶的信息 where tb_name =39?！?amp。 amp。 ”39?！?If = ”“ ThenMsgBox ”請輸入用戶名！“, 48, ”提示信息“ElseIf = ”“ ThenMsgBox ”請輸入舊密碼！“, 48, ”提示信息“ElseIf = ”“ ThenMsgBox ”請輸入新密碼！“, 48, ”提示信息“ElseIf = ”“ ThenMsgBox ”請確認(rèn)新密碼！“, 48, ”提示信息“ElseIf 0 ThenMPassword = (”tb_pas“)If = MPassword And = Then39。判斷數(shù)據(jù)的密碼是否正確Set DB_AdoRs = (”UPDATE 系統(tǒng)用戶的信息 SET tb_pas=39?！?+ + ”39。 where tb_name=39?！?+ + ”39。“)MsgBox ”密碼已修改！“, 48, ”提示信息“Unload MeElseIf MPassword ThenMsgBox ”密碼不正確,請您確認(rèn)后重新輸入！“, 64, ”提示信息“ = ”“ = ”“ = ”“ElseMsgBox ”兩次輸入的新密碼不一致，請重新輸入！“, 64, ”提示信息“ = ”“ = ”“End IfEnd IfElseIf ”“ ThenMsgBox ”對不起 沒有此用戶的信息！“, 64, ”提示信息“ = ”“ = ”“ = ”“ = ”End IfEnd IfEnd IfEnd IfEnd IfEnd If End Sub（3）當(dāng)用戶點(diǎn)擊“取消”時(shí)，關(guān)閉密碼修改對話框。Private Sub Command2_Click()End End Sub窗體的運(yùn)行結(jié)果如下：通過這兩星期的學(xué)習(xí)，加深了我對數(shù)據(jù)庫的認(rèn)識，懂得了如何去應(yīng)用數(shù)據(jù)庫，也對Visual Basic有了一定的了解了，雖然設(shè)計(jì)的過程中并不是那么的順利，但經(jīng)過查找相關(guān)的資料后，問題一步一步地解決了，相信對我以后的學(xué)習(xí)有一定的幫助。第三篇：UML庫存管理系統(tǒng)UML課程設(shè)計(jì)報(bào)告 設(shè)計(jì)名稱： 庫存管理系統(tǒng)專業(yè)班級： 姓 名： 學(xué) 號： 起止時(shí)間： 成 績 評 定考核 設(shè)計(jì) 設(shè)計(jì) 綜合評 答辯 內(nèi)容 表現(xiàn) 報(bào)告 定成績 成 績 計(jì)算機(jī)科學(xué)與工程系一、系統(tǒng)需求說明 20世紀(jì)90年代以來隨著科學(xué)技術(shù)和生產(chǎn)力的迅速發(fā)展以及經(jīng)濟(jì)全球環(huán)境的深刻變化，企業(yè)面臨著一個(gè)嶄新而又激烈的競爭環(huán)境，體現(xiàn)在全球化的信息網(wǎng)絡(luò)和全球化市場形成所帶來的信息爆炸技術(shù)變革的加速市場和勞務(wù)競爭的全球化，圍繞新產(chǎn)品的市場競爭日趨激烈，用戶的需求越來越苛刻，同時(shí)產(chǎn)品的生命周期不斷縮短，企業(yè)又面臨著縮短交貨期、提供產(chǎn)品質(zhì)量、降低成本和改進(jìn)服務(wù)的壓力，在這種情況下全面提高和改善自身水平成為企業(yè)最關(guān)心的問題之一。企業(yè)實(shí)施信息化建設(shè)已成為企業(yè)的發(fā)展趨勢和提高企業(yè)的管理水平的有效手段。信息化建設(shè)不在是企業(yè)的效益工程而是企業(yè)的生存工程，20世紀(jì)90年代美國著名的IT分析公司Grant Group Inc,提出了ERP企業(yè)資源計(jì)劃的概念，迎合了信息時(shí)代企業(yè)管理的發(fā)展要求。隨著ERP相關(guān)理論，以及ERP系統(tǒng)開發(fā)的逐漸成熟，企業(yè)界掀起了實(shí)施ERP管理信息系統(tǒng)的浪潮。中國作為制造大國，在制造業(yè)迅速發(fā)展的今天，庫存國民投資額在整個(gè)國民生產(chǎn)總值占有相當(dāng)大的比重達(dá)到了20%——30%，庫存管理的適當(dāng)與否對企業(yè)經(jīng)營利潤有很大影響，因此新環(huán)境下非常值得人們對ERP環(huán)境下的庫存管理進(jìn)行深入研究和探討。本文結(jié)合ERP環(huán)境下的庫存管理系統(tǒng)，重點(diǎn)研究如何利用UML建模語言對庫存管理系統(tǒng)進(jìn)行建模，給出了ERP環(huán)境下庫存管理系統(tǒng)的需求模型和對象模型，在建模過程中利用了用例圖、類圖、包圖、順序圖等圖形。最后，結(jié)合系統(tǒng)模型的研究，實(shí)現(xiàn)了庫存管理系統(tǒng)。二、系統(tǒng)分析（一）庫存管理業(yè)務(wù)流程分析 企業(yè)的庫存管理工作主要由企業(yè)物資部門或倉庫部門完成，其主要業(yè)務(wù)就是對企業(yè)物料收獲、存貨、發(fā)貨，以及分析提供庫存管理所需的各種數(shù)據(jù)報(bào)表等管理工作。庫存管理業(yè)務(wù)流程圖，如圖所示： 采購部門采購訂單 供應(yīng)商發(fā)票 財(cái)務(wù)部門發(fā)貨 檢驗(yàn)接受庫存盤點(diǎn)發(fā)銷售出入庫票貨款憑證求購處理入庫領(lǐng)料通知單生產(chǎn)發(fā)料發(fā)料 生產(chǎn)部門倉庫部門客戶入庫 庫存訂單工票產(chǎn)品入庫分析提貨單決策部門銷售部門 2（二）Uml表示法 用例圖 根據(jù)業(yè)務(wù)流程圖確定系統(tǒng)邊界，確定用例（Use Case）。用例可從另一個(gè)方面對企業(yè)的業(yè)務(wù)流程建模，從中可以提取對我們開發(fā)系統(tǒng)有用的信息，可以確定系統(tǒng)功能。如圖2所示庫存管理系統(tǒng)的用例圖inter manageout manageadministratorinventory manageinformation search該圖展示了一張倉庫管理系統(tǒng)的用例圖，從系統(tǒng)的外部執(zhí)行者的角度來看，普通倉庫管理員可以進(jìn)行出庫管理、入庫管理、盤點(diǎn)管理和信息查詢等操作。（2）順序圖: administrator1: load2: back3: data name and position4: copy data5: copy success 3（3）活動(dòng)圖produce inventory bills inventory on the spot inventory manage三、系統(tǒng)設(shè)計(jì)報(bào)告(一)庫存管理系統(tǒng)需求模型的建立用例圖 在庫存管理系統(tǒng)中，由于牽扯到大量的執(zhí)行者和用例，為了便于組織，按與系統(tǒng)交互的對象的不同將系統(tǒng)劃分為三個(gè)包，如圖所示：用例模型包圖 其它系統(tǒng)與倉庫高層決策人員和系統(tǒng)倉庫管理員管理系統(tǒng)的交互 管理員與系統(tǒng)的交互 與交互系統(tǒng) 倉庫管理員與系統(tǒng)交互包主要描述倉庫管理員要使用系統(tǒng)的那些功能，向系統(tǒng)輸入哪些信息，從系統(tǒng)獲取哪些信息，以及需要系統(tǒng)提供哪些功能支持倉庫管理員的日常工作。高層決策人員及系統(tǒng)管理員與系統(tǒng)交互包描述高層決策人員需要從系統(tǒng)獲取什么信息，做出什么分析與決策支持系統(tǒng)更好的運(yùn)轉(zhuǎn)；系統(tǒng)管理員則需要維護(hù)，管理系統(tǒng)，使其正?；ぷ?。由于庫存管理系統(tǒng)并不是一個(gè)孤立系統(tǒng)，他需要其他系統(tǒng)進(jìn)行交互，其他系統(tǒng)與庫存管理系統(tǒng)的交互包則反映交互信息的流向。下面對每個(gè)系統(tǒng)包進(jìn)行詳細(xì)的描述。4（1）倉庫管理員與交互的用例模型highinventory alarm identity testexpanduseinventory place appointaccount updateinter manageuseexpandadministratoroutmanagelowinventory alarminventory manageinformation searchform produce 在這個(gè)用例模型中有一個(gè)執(zhí)行者：庫存管理員。十一個(gè)用例：身份驗(yàn)證，入庫管理員，最高庫存警報(bào)，出庫管理，最低庫存管理，指定庫位，更新賬目，庫存信息