庫(kù)存管理系統(tǒng)設(shè)計(jì)分析

1、軟件工程課程作業(yè)文檔題目：公司進(jìn)銷存管理系統(tǒng)年級(jí)：2008級(jí)組長(zhǎng)：王冠宇設(shè)計(jì)人員：紀(jì)英鵬尚舒節(jié)王偉完成時(shí)間：2011.4.12設(shè)計(jì)小組人員及分工王冠宇3008212050分析“進(jìn)銷存管理”的需求信息，并確定將要實(shí)現(xiàn)的初步目標(biāo)，并繪制出初步ER圖模型，書寫設(shè)計(jì)文檔及報(bào)告紀(jì)英鵬3008212040細(xì)化初步ER圖，分析各實(shí)體屆性，確定數(shù)據(jù)表的結(jié)構(gòu)，并創(chuàng)建基本表尚舒節(jié)3008212047建立表問的聯(lián)系，并創(chuàng)建查詢及窗體， 確定系統(tǒng)結(jié)構(gòu)框架，設(shè)計(jì)窗體實(shí)現(xiàn)所需功能王偉3008212054運(yùn)行并測(cè)試所建數(shù)據(jù)庫(kù)系統(tǒng)，并根據(jù)各階段及測(cè)試信息，庫(kù)存管理系統(tǒng)設(shè)計(jì)分析可行性報(bào)告研究本套應(yīng)用程序名稱為“庫(kù)存管理系統(tǒng)”，

2、主要用于倉(cāng)庫(kù)貨品信息的管理，系統(tǒng)包括倉(cāng)庫(kù)管理、入庫(kù)、出庫(kù)、一些統(tǒng)計(jì)查詢和報(bào)表等幾部分組成。庫(kù)存管理系統(tǒng)需滿足倉(cāng)庫(kù)管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對(duì)工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計(jì)不同用戶的操作權(quán)限和登陸方法。對(duì)于一個(gè)倉(cāng)庫(kù)來說，最大的功能就是存儲(chǔ)貨品，所以倉(cāng)庫(kù)管理就是對(duì)貨品信息， 倉(cāng)庫(kù)信 息，短線貨品及超儲(chǔ)貨品的管理， 用戶可以根據(jù)實(shí)際情況對(duì)各種貨品信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫(kù)等。當(dāng)然，倉(cāng)庫(kù)中貨品入庫(kù)也是常有的事，入庫(kù)管理操作就是對(duì)于貨品入庫(kù)情況的管理，用戶可以方便地輸入一些貨品的信息。有了貨品的入庫(kù)，自然也就有貨品的出庫(kù)，這部分提供的功能與入庫(kù)

3、操作流程差不多， 有所區(qū)別的只是對(duì)一些出庫(kù)貨品的管理，也很方便數(shù)據(jù)的輸入。倉(cāng)庫(kù)貨品的信息量大， 數(shù)據(jù)安全性和保密性要求高。本系統(tǒng)實(shí)現(xiàn)對(duì)貨品信息的管理和總體的統(tǒng)計(jì)等，倉(cāng)庫(kù)信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。倉(cāng)庫(kù)管理人員可以瀏覽、 查詢、添加、刪除等貨品的基本信息以及統(tǒng)計(jì)等，并可以對(duì)一些基本的信息生成報(bào)表形式， 并打印輸出的功能。報(bào)表是一個(gè)數(shù)據(jù)庫(kù)中最重要的功能之一，有了報(bào)表才能清楚地知道貨品的出入庫(kù)情況，在數(shù)據(jù)報(bào)表功能中包括出庫(kù)報(bào)表，庫(kù)存報(bào)表及經(jīng)辦人員報(bào)表等一些基本信息的打印，方便簡(jiǎn)潔。本系統(tǒng)基本涵蓋了庫(kù)存管理的主要需求， 具有完善細(xì)致的功能、友好的用戶界面、強(qiáng)大 的數(shù)據(jù)處理功能和完備的安全

4、機(jī)制； 隨心所欲的查詢和所見即所得的打印功能， 并全面支持 分析和決策的功能。系統(tǒng)特色：1.設(shè)置系統(tǒng)用戶登陸功能，即時(shí)對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行安全設(shè)置與保護(hù)。2.友好的用戶界面，業(yè)務(wù)操作簡(jiǎn)單，進(jìn)入系統(tǒng)即能使用。3.成熟先進(jìn)的技術(shù)和系統(tǒng)構(gòu)架，采用先進(jìn)的數(shù)據(jù)庫(kù)訪問方式，數(shù)據(jù)更安全，性能 更穩(wěn)定。4.強(qiáng)大的數(shù)據(jù)處理能力和開放的數(shù)據(jù)接口，選用具有大型數(shù)據(jù)庫(kù)安全機(jī)制的數(shù)據(jù)庫(kù)系統(tǒng)，提供各種級(jí)別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，確保數(shù)據(jù)的安全可靠。5.系統(tǒng)每種操作都可以通過菜單來進(jìn)行。操作快捷、方便。易懂易會(huì)。系統(tǒng)集輸 入、維護(hù)、查詢、統(tǒng)計(jì)和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。庫(kù)存管理系統(tǒng)基本模塊與功能：1.系統(tǒng)包括用戶管

5、理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)， 可以根據(jù)需要對(duì)整個(gè)數(shù) 據(jù)庫(kù)進(jìn)行備份，以確保數(shù)據(jù)的安全性。幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息；2.庫(kù)存管理貨品信息管理：對(duì)倉(cāng)庫(kù)里的貨品進(jìn)行登記；貨品庫(kù)存管理：管理倉(cāng)庫(kù)的庫(kù)存情況；短線貨品管理：對(duì)倉(cāng)庫(kù)里短線的貨品進(jìn)行登記，以便及時(shí)采購(gòu)補(bǔ)貨；超儲(chǔ)貨品管理：對(duì)倉(cāng)庫(kù)里超儲(chǔ)的貨品進(jìn)行登記，控制庫(kù)存量，減少進(jìn)貨；3.入庫(kù)管理入庫(kù)登記管理：能對(duì)貨品的入庫(kù)登記，刪除，更改等；入庫(kù)期間統(tǒng)計(jì)：貨品入庫(kù)期間年度的統(tǒng)計(jì)；供貨單位期間供貨金額統(tǒng)計(jì)：對(duì)貨品供應(yīng)的金額進(jìn)行統(tǒng)計(jì)；4.出庫(kù)管理對(duì)貨品出庫(kù)期間的年度統(tǒng)計(jì)，出庫(kù)登記，及收獲單位金額統(tǒng)計(jì)等；5.盤存管理對(duì)盤存貨

6、品信息的盤存錄入；6.綜合管理模塊劃分打印、查詢歷史數(shù)據(jù)管理附項(xiàng)分類入庫(kù)管理經(jīng)辦人員管理收貨單位管理供貨單位管理倉(cāng)庫(kù)信息管理貨品出入庫(kù)期間匯總表盤存錄入收貨單位年度收貨金額統(tǒng)計(jì)貨品出庫(kù)年度統(tǒng)計(jì)出庫(kù)登記管理超儲(chǔ)貨品管理貨品庫(kù)存管理貨品信息管理可根據(jù)同一貨品的出入庫(kù)情況，對(duì)庫(kù)存情況的匯總；7.附項(xiàng)管理對(duì)供貨單位情況，經(jīng)辦人員，收貨單位情況，倉(cāng)庫(kù)信息進(jìn)行登記管理，可進(jìn)行添加，刪 除等操作；8.歷史數(shù)據(jù)管理對(duì)歷史庫(kù)存，歷史出庫(kù)，歷史出庫(kù)情況進(jìn)行管理；9.打印與查詢可根據(jù)輸入的條件，對(duì)貨品的入庫(kù)信息，庫(kù)存信息等進(jìn)行簡(jiǎn)單查詢和組合查詢。據(jù)流程圖：圖4- 1庫(kù)存管理系統(tǒng)數(shù)據(jù)流程圖貨品入庫(kù)單貨品出庫(kù)單經(jīng)辦人員

7、報(bào)表備份輸出表1貨品信息表貨品信息管理數(shù)據(jù)流程圖:貨品信息管理數(shù)據(jù)流程圖數(shù)據(jù)庫(kù)設(shè)計(jì)本庫(kù)存管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的，所以只需建立起一個(gè)數(shù)據(jù)庫(kù)，在此數(shù)據(jù)庫(kù)基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)結(jié)構(gòu)表描述如下：貨品信息表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空貨品編碼文本5貨品石稱文本10類別文本8型號(hào)文本4單位文本2倉(cāng)庫(kù)編碼文本5存放倉(cāng)庫(kù)文本12入庫(kù)計(jì)劃單價(jià)貨幣出庫(kù)計(jì)劃單價(jià)貨幣原始庫(kù)存數(shù)字長(zhǎng)整型默認(rèn)貨位文本5警戒底線庫(kù)存數(shù)字長(zhǎng)整型警戒高線庫(kù)存數(shù)字長(zhǎng)整型表1貨品信息表入庫(kù)登記表表4倉(cāng)庫(kù)信息表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空入庫(kù)日期日期/時(shí)間入庫(kù)單號(hào)文本10貨物編碼文本5數(shù)量數(shù)字長(zhǎng)整型進(jìn)貨價(jià)貨幣總額貨幣已付貨款貨幣供

8、貨單位編碼文-本5供貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表2入庫(kù)登記表出庫(kù)登記表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空出庫(kù)日期日期/時(shí)間出庫(kù)單號(hào)文本10貨物編碼文本5貨物名稱文本10數(shù)量數(shù)字長(zhǎng)整型單價(jià)貨幣出貨價(jià)貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表3貨品出庫(kù)表倉(cāng)庫(kù)信息表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空倉(cāng)庫(kù)編號(hào)文本5倉(cāng)庫(kù)名稱文本12存貨種類文本2存貨價(jià)值貨幣供貨單位信息表（收貨單位表）字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空單位編號(hào)文本5單位名稱文本50單位地址文本50電話文本15聯(lián)系人文本8表5供貨單位

9、信息表經(jīng)辦人員表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空編號(hào)文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6經(jīng)辦人員表用戶表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空UserID文本10userPWD文本6表7用戶表另外，我們還建立了幾張查詢表，用以存放部分用于計(jì)算的統(tǒng)計(jì)信息，以便查詢。入庫(kù)登記統(tǒng)計(jì)表入庫(kù)登記合計(jì)貨品入庫(kù)年度統(tǒng)計(jì)表入庫(kù)登記_n供貨單位年度供貨金額統(tǒng)計(jì)表入庫(kù)登記_w庫(kù)存匯忌表庫(kù)存出庫(kù)登記統(tǒng)計(jì)表出庫(kù)登記合計(jì)貨品出庫(kù)年度統(tǒng)計(jì)表出庫(kù)登記_h收貨單位年度收貨金額統(tǒng)計(jì)表出庫(kù)登記_d入庫(kù)登記 合計(jì)表與出庫(kù)登記 合計(jì)分別是以入庫(kù)登記表和出庫(kù)登記表為基礎(chǔ)的，所以此處不再描述；庫(kù)存匯總表主要由出庫(kù)表

10、和入庫(kù)表建立關(guān)系獲得。入庫(kù)登記n字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空貨物名稱文本10入庫(kù)日期日期/時(shí)間年度數(shù)量數(shù)字長(zhǎng)整型表8入庫(kù)登記n入庫(kù)登記w字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空供貨單位文本50入庫(kù)日期日期/時(shí)間年度供貨總額數(shù)字長(zhǎng)整型表9入庫(kù)登記_w庫(kù)存匯總字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空貨物編碼文本5入庫(kù)日期日期/時(shí)間貨物名稱文本10數(shù)量（入庫(kù)）數(shù)字長(zhǎng)整型進(jìn)貨價(jià)貨幣數(shù)量（出庫(kù)）數(shù)字長(zhǎng)整型庫(kù)存數(shù)量數(shù)字長(zhǎng)整型表10庫(kù)存匯總表出庫(kù)登記h字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空貨物名稱文本10出庫(kù)日期日期/時(shí)間年度數(shù)量數(shù)字長(zhǎng)整型表11出庫(kù)登記h出庫(kù)登記d字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空收貨單位文本50出庫(kù)日期日期/時(shí)間年度

11、金額總額數(shù)字長(zhǎng)整型表12出庫(kù)登記d應(yīng)用程序設(shè)計(jì)程序結(jié)構(gòu)本應(yīng)用程序由33個(gè)窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫(kù)窗 體，出庫(kù)窗體，庫(kù)存匯總，打印及查詢等窗體組成。通過運(yùn)行程序首先進(jìn)入歡迎界面和登陸窗體，通過輸入密碼，驗(yàn)證身份后進(jìn)入主窗體， 在主窗體上有10個(gè)菜單項(xiàng)，分別對(duì)應(yīng)各自的功能模塊窗體，包括系統(tǒng)，庫(kù)存管理，入庫(kù)管 理，出庫(kù)管理，盤存管理，綜合管理，附項(xiàng)管理，歷史數(shù)據(jù)管理，打印和查詢。需要哪個(gè)功 能的時(shí)候就點(diǎn)哪個(gè)菜單，相對(duì)應(yīng)的窗體會(huì)自動(dòng)彈出。程序源代碼程序?qū)崿F(xiàn)的部分代碼如下：公共模塊Public datel As StringPublic date2 As StringPu

12、blic gUserName As String 保存用戶名添加執(zhí)行SQL語(yǔ)句的函數(shù)Public Function transactSQL(ByVal sql As String) As ADODB.RecordsetDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConnection As StringDim strArray() As StringSet con = New ADODB.Connection 創(chuàng)建連接Set rs = New ADODB.Recordset 創(chuàng)建記錄集On Error GoTo Trans

13、actSQL_Error庫(kù)存管理kucun.mdbstrArray = Split(sql)con.Open strConnection打開連接If StrComp(UCase$(strArray(0), select, vbTextCompare) = 0 Then rs.Open Trim$(sql), con,adOpenKeyset, adLockOptimistic Set transactSQL = rs返回記錄集iflag = 1Else con.Execute sql執(zhí)行命令iflag = 1End IfTransactSQL_Exit:Set rs = NothingSet

14、con = NothingExit FunctionTransactSQL_Error:MsgBox 查詢錯(cuò)誤：& Err.Descriptioniflag = 2 Resume TransactSQL_Exit End Function主窗體的程序代碼主窗體界面Private Sub a1_Click()Forml.ShowEnd SubPrivate Sub a2_Click()Dim fAdd As New frmAddUserfAdd.ShowfAdd.ZOrder 0End SubPrivate Sub a3_Click()Dim fChangePWD As New frmC

15、hangePWD fChangePWD.ShowEnd SubPrivate Sub a4_Click()frmAbout.ShowEnd SubPrivate Sub a5_Click()調(diào)入數(shù)據(jù)備份Load main_sjbfmain_sjbf.Showmain.Enabled = FalseEnd SubPrivate Sub a6_Click()Load main_sjhf main_sjhf.Show 存管理系統(tǒng)匚1旦|區(qū)親場(chǎng)庫(kù)存管理入庠甘座出隹首理色有管理粽舍管理附 JS鐘類 IS 史數(shù) 15首建打印吉布、1Uu 2QQ1-6-IQ20;53調(diào)入數(shù)據(jù)恢復(fù)Private Sub Co

16、mmand1_Click()main.HideEnd SubPrivate Sub b1_Click()frm貨品信息.ShowEnd SubPrivate Sub b12_Click()sql = select * from貨品信息order by貨品編碼”frmProInfo.createList (sql) frmProInfo.ShowEnd SubPrivate Sub b2_Click()frm貨品庫(kù)存.ShowEnd SubPrivate Sub B3_Click()frm超儲(chǔ)貨品.ShowEnd SubPrivate Sub b4_Click()frm短線貨品.ShowEnd

17、SubPrivate Sub c1_Click()frm入庫(kù)登記.ShowEnd SubPrivate Sub c2_Click()frm貨品入庫(kù)年度統(tǒng)計(jì).ShowEnd SubPrivate Sub c3_Click()frm供貨單位供貨分類金額統(tǒng)計(jì).ShowEnd SubPrivate Sub c4_Click()frm供貨單位年度供貨金額統(tǒng)計(jì).ShowEnd SubPrivate Sub g2_Click()datel = Textl.Text & / & Text3.Text & / & Text2.Text date2 =Text6.Text &

18、; / & Text4.Text & / & Text5.TextText7.Text = datelEnd SubPrivate Sub d1_Click()frm出庫(kù)登記.ShowEnd SubPrivate Sub d2_Click()frm貨品出庫(kù)年度統(tǒng)計(jì).ShowEnd SubPrivate Sub d3_Click()frm收貨單位期間收貨統(tǒng)計(jì).ShowEnd SubPrivate Sub d4_Click()frm收貨單位年度收貨金額統(tǒng)計(jì).ShowEnd SubPrivate Sub e1_Click()frm盤存錄入.ShowEnd SubPrivate

19、 Sub e2_Click()frm盤存表.ShowEnd SubPrivate Sub f1_Click()frm貨品出入?yún)R總表.ShowEnd SubPrivate Sub g1_Click()frm經(jīng)辦人員.ShowEnd SubPrivate Sub g3_Click()frm供貨單位.ShowEnd SubPrivate Sub g3_Click() frm倉(cāng)庫(kù)信息.ShowEnd SubPrivate Sub g5_Click() Form6.ShowEnd SubPrivate Sub h1_Click() frm歷史庫(kù)存.Show End SubPrivate Sub h2_C

20、lick() frm歷史入庫(kù).Show End SubPrivate Sub h3_Click() frm歷史出庫(kù).Show End SubPrivate Sub i1_Click() DataReport1.Show End SubPrivate Sub i2_Click() DataReport2.Show End SubPrivate Sub i3_Click() DataReport3.Show End SubPrivate Sub j1_Click() Form2.ShowEnd SubPrivate Sub j2_Click()Form3.ShowEnd SubForm4.Show

21、End SubPrivate Sub j4_Click()Form5.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.KeyCase Is = rk調(diào)入入庫(kù)登記c1_ClickCase Is = ck調(diào)入出庫(kù)登記d1_ClickCase Is = kchz調(diào)入庫(kù)存匯總f1_ClickCase Is = zhcx調(diào)入組合查詢j4_ClickCase Is = sjbf調(diào)入數(shù)據(jù)備份a5_ClickEnd SelectEnd SubPrivate Sub x

22、_Click()EndEnd Sub登陸模塊的實(shí)現(xiàn)Private Sub cmdLogin_Click()denlu_name = txtUserName.Textdenlu_pass = txtPassword.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kucun.mdb;” myrs.Open SELECT * FROM 用戶whe

23、re userID= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox”查無此人”，登陸信息”ElseIf myrs(userPWD) = denlu_pass Then.MsgBox 身份正確，登陸信息main.ShowUnload Me.ElseMsgBox 密碼不正確,登陸信息”End IfEnd IfEnd Sub添加用戶模塊的實(shí)現(xiàn)Option ExplicitPrivate Sub Command1_Click()Dim sql

24、 As StringDim rs As ADODB.RecordsetIf Trim(UserName.Text) = Then判斷用戶名稱是否為空MsgBox 請(qǐng)輸入用戶名稱!, vbOKOnly + vbExclamation,警告 Exit Sub UserName.SetFocusElsesql = select * from用戶where UserID= & UserName & Set rs = transactSQL(sql)If rs.EOF = False Then判斷是否已經(jīng)存在用戶MsgBox 這個(gè)用戶已經(jīng)存在！請(qǐng)重新輸入用戶名稱！, vbOKOnly +

25、 vbExclamation,警告UserName.SetFocusUserName.Text = PassWord.Text =ConfirmPWD.Text =Exit SubElseIf Trim(PassWord.Text) Trim(ConfirmPWD.Text) Then 判斷兩次密碼是否相同MsgBox 兩次輸入的密碼不一致，請(qǐng)重新輸入密碼！, vbOKOnly +vbExclamation,警告PassWord.Text =ConfirmPWD.Text =PassWord.SetFocusExit SubElself Trim(PassWord.Text) = Then判斷

26、密碼是否為空MsgBox 密碼不能為空！”, vbOKOnly + vbExclamation,警告PassWord.Text = ”ConfirmPWD = ”PassWord.SetFocusElse添加用戶sql= insert into用戶(UserID,UserPWD) values( & UserNamesql = sql & , & PassWord & )” transactSQL (sql)MsgBox 添加成功！, vbOKOnly + vbExclamation,添加結(jié)果”重新設(shè)置初始化為空UserName.Text =PassWord.T

27、ext =ConfirmPWD.Text =UserName.SetFocusEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()UserName.Text =PassWord.Text =ConfirmPWD.Text =End Sub修改用戶密碼的實(shí)現(xiàn)Option ExplicitPublic gUserName As StringPrivate Sub Command1_Click()Dim sql As StringDim rs As ADODB.Reco

28、rdsetIf Trim(OldPWD.Text) = Then判斷是否輸入舊密碼MsgBox 請(qǐng)輸入舊密碼！, vbOKOnly + vbExclamation,警告OldPWD.SetFocus Exit SubElseIf Trim(NewPWD.Text) = Then判斷是否輸入新密碼MsgBox 請(qǐng)輸入新密碼！, vbOKOnly + vbExclamation,警告NewPWD.SetFocusExit SubElseIf Trim(NewPWD.Text) Trim(ConfirmPWD.Text) Then 判斷兩次密碼是否相同MsgBox 兩次密碼不同！, vbOKOnly

29、 + vbExclamation,警告NewPWD.Text =ConfirmPWD.Text =NewPWD.SetFocusElse修改密碼sql = update用戶set UserPWD = & NewPWD & where UserID=sql = sql & gUserName & transactSQL (sql)MsgBox 密碼已經(jīng)修改！, vbOKOnly + vbExclamation,修改結(jié)果”Unload MeEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubP

30、rivate Sub Form_Load()OldPWD.Text =NewPWD.Text =ConfirmPWD.Text =End Sub數(shù)據(jù)備份模塊的實(shí)現(xiàn)Private Sub Form_Activate()賦值給text1Text1.Text = A”End SubPrivate Sub Command1_Click() 確認(rèn)數(shù)據(jù)備份Me.MousePointer = 11YesNo = MsgBox(準(zhǔn)備好了嗎？ , vbNo + vbQuestion)If YesNo = vbNo ThenExit SubEnd IfOn Error GoTo errpromptMe.Mouse

31、Pointer = 11數(shù)據(jù)備份)數(shù)據(jù)備份kucun & Date &”.mdb”Me.MousePointer = 0MsgBox 數(shù)據(jù)已備份完畢。errprompt:Me.MousePointer = 0Select Case Err.NumberCase 57MsgBox 磁盤已滿！ , vbCriticalCase 70MsgBox 磁盤寫保護(hù)！ , vbCriticalEnd SelectEnd SubPrivate Sub Command2_Click()Load mainmain.Showmain.Enabled = TrueUnload MeEnd SubPri

32、vate Sub Form_Unload(Cancel As Integer)main.Enabled = TrueEnd Sub數(shù)據(jù)恢復(fù)模塊的實(shí)現(xiàn)Private Sub Form_Unload(Cancel As Integer)main.Enabled = TrueEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Text1.Text = Dir1.Pat

33、h & & File1.FileNameEnd SubPrivate Sub Command1_Click()恢復(fù)指定路徑下的數(shù)據(jù)庫(kù)If Text1.Text = ThenMsgBox 請(qǐng)選擇要恢復(fù)的數(shù)據(jù)！ElseMe.MousePointer = 11FileCopy Dir1.Path & & File1.FileName, App.Path & kucun.mdbMe.MousePointer = 0MsgBox 數(shù)據(jù)已恢復(fù)完畢！End IfEnd SubPrivate Sub Command2_Click()main.ShowUnload MeE

34、nd Sub對(duì)于貨品信息的瀏覽，主要采用了MSFlexGrid控件，它是一種Active控件，該控件提 供了表格式界面，處理數(shù)據(jù)相當(dāng)靈活，具有只讀數(shù)據(jù)綁定、對(duì)表格數(shù)據(jù)進(jìn)行顯示和操作、數(shù)據(jù)分組排序、Data控件賦值、文本自動(dòng)換行等功能。但它無法對(duì)數(shù)據(jù)進(jìn)行動(dòng)態(tài)輸入，只能 提供瀏覽功能。具體代碼如下:Option ExplicitPrivate Sub Command1_Click() rsGrid.RefreshEnd SubPrivate Sub Form_Load()Dim sql As Stringsql = select * from貨品信息order by貨品編碼”createList

35、(sql)End SubPublic Sub createList(sql As String)Dim rs As New ADODB.RecordsetDim i As IntegerDim rsGird As MSFlexGrid設(shè)置表頭rsGrid.TextMatrix(0, 0)=貨品編碼,氏環(huán)代席系堆制XH鼻J阿0時(shí)皂MM唐鼻茂克和lEffiH 3麒籬圖5-2貨品信息界面rsGrid.TextMatrix(0,1)=rsGrid.TextMatrix(0,2)=rsGrid.TextMatrix(0,3)=rsGrid.TextMatrix(0,4)=rsGrid.TextMatri

36、x(0,5)=rsGrid.TextMatrix(0,6)=rsGrid.TextMatrix(0,7)=rsGrid.TextMatrix(0,8)=rsGrid.TextMatrix(0,9)=rsGrid.TextMatrix(0,10)=rsGrid.TextMatrix(0,11)=rsGrid.TextMatrix(0, 12)=For i = 0 To 12rsGrid.ColAlignment(i) = 4 Next iFor i = 0 To 11rsGrid.ColWidth(i) = 1400Next irsGrid.ColWidth(12) = 2000Set rs =

37、 transactSQL(sql)If rs.EOF = False Then顯示信息內(nèi)容rsGrid.Rows = 1While Not rs.EOFrsGrid.Rows = rsGrid.Rows + 1rsGrid.TextMatrix(rsGrid.Rows - 1,0) = rs(0) rsGrid.TextMatrix(rsGrid.Rows - 1, 1) = rs(1)rsGrid.TextMatrix(rsGrid.Rows - 1,2) = rs(2) rsGrid.TextMatrix(rsGrid.Rows - 1,3) = rs(3)rsGrid.TextMatri

38、x(rsGrid.Rows - 1,4) = rs(4) rsGrid.TextMatrix(rsGrid.Rows - 1,5) = rs(5)rsGrid.TextMatrix(rsGrid.Rows - 1,6) = rs(6) rsGrid.TextMatrix(rsGrid.Rows - 1,7) = rs(7)rsGrid.TextMatrix(rsGrid.Rows - 1,8) = rs(8) rsGrid.TextMatrix(rsGrid.Rows - 1,9) = rs(9)rsGrid.TextMatrix(rsGrid.Rows - 1, 10) = rs(10) r

39、sGrid.TextMatrix(rsGrid.Rows - 1, 11) = rs(11)rsGrid.TextMatrix(rsGrid.Rows - 1, 12) = rs(12) rs.MoveNextWend rs.CloseEnd IfEnd Sub貨品入庫(kù)登記模塊的實(shí)現(xiàn)入庫(kù)登記EM-g入庫(kù)單砰:0032000總眈已付黃軟2000002供黃單位 M市陽(yáng)癱 1皿朝人:wJ 增值夠.0貨品名稱類別”型號(hào)單位倉(cāng)庫(kù)編碼存放倉(cāng)庫(kù)入庫(kù)計(jì)劃單價(jià)出庫(kù)計(jì)劃單價(jià)原始庫(kù)存默認(rèn)貨位警戒底線庫(kù)存警戒高線庫(kù)存設(shè)置所有表格對(duì)齊方式設(shè)置每列寬度岳注：f添咖 更新也）|州隱魚_ 鯽?俱）|關(guān)閉 |_ri.I h I

40、MI入庫(kù)登記窗口Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long,ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)錯(cuò)誤處理程序代

41、碼置于此處想要忽略錯(cuò)誤，注釋掉下一行想要捕獲它們，在此添加代碼以處理它們MsgBox Data error event hit err: & DescriptionEnd SubPrivate Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError AsADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordsetAs ADODB.Recordset)為這個(gè)recordset顯示當(dāng)前記錄位置datPrimary

42、RS.Caption=Record:&CStr(datPrimaryRS.Recordset.AbsolutePosition)End SubPrivate Sub datPrimaryRS_WillChangeRecord(ByValadReason AsADODB.EventReasonEnum,ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset AsADODB.Recordset)驗(yàn)證代碼置于此處下列動(dòng)作發(fā)生時(shí)該事件被調(diào)用Dim bCancel As BooleanSelect C

43、ase adReasonCase adRsnAddNewCase adRsnCloseCase adRsnDeleteCase adRsnFirstChangeCase adRsnMoveCase adRsnRequery入庫(kù)日期礎(chǔ)格辱；進(jìn)貨價(jià).供單位潟嗎號(hào)辦大蝙瑪.Case adRsnResynchCase adRsnUndoAddNewCase adRsnUndoDeleteCase adRsnUndoUpdateCase adRsnUpdateEnd SelectIf bCancel Then adStatus = adStatusCancelEnd SubPrivate Sub cmd

44、Add_Click()On Error GoTo AddErrdatPrimaryRS.Recordset.AddNewExit SubAddErr:MsgBox Err.Description End SubPrivate Sub cmdDelete_Click()On Error GoTo DeleteErrWith datPrimaryRS.Recordset.Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubDeleteErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_

45、Click()只有多用戶應(yīng)用程序需要On Error GoTo RefreshErrdatPrimaryRS.RefreshExit SubRefreshErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click()On Error GoTo UpdateErrdatPrimaryRS.Recordset.UpdateBatch adAffectAllExit SubUpdateErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click()Unload MeEnd Sub出

46、庫(kù)登記模塊的實(shí)現(xiàn)| 4 |E.wE: 1| *1出庫(kù)登記窗口Private Sub Form_Unload(Cancel As Integer)Screen.MousePointer = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long,ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDispl

47、ay As Boolean)錯(cuò)誤處理程序代碼置于此處想要忽略錯(cuò)誤，注釋掉下一行,想要捕獲它們，在此添加代碼以處理它們MsgBox Data error event hit err: & DescriptionEnd SubPrivate Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError AsADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)為這個(gè)reco

48、rdset顯示當(dāng)前記錄位置datPrimaryRS.Caption=Record:&CStr(datPrimaryRS.Recordset.AbsolutePosition)End SubPrivate Sub datPrimaryRS_WillChangeRecord(ByValadReason AsADODB.EventReasonEnum,ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset AsADODB.Recordset)驗(yàn)證代碼置于此處下列動(dòng)作發(fā)生時(shí)該事件被調(diào)用Dim bCa

49、ncel As BooleanSelect Case adReasonCase adRsnAddNewCase adRsnCloseCase adRsnDeleteCase adRsnFirstChangeCase adRsnMoveCase adRsnRequeryCase adRsnResynchCase adRsnUndoAddNewCase adRsnUndoDeleteCase adRsnUndoUpdateCase adRsnUpdateEnd SelectIf bCancel Then adStatus = adStatusCancelEnd SubPrivate Sub cmd

50、Add_Click()On Error GoTo AddErrdatPrimaryRS.Recordset.AddNewExit SubAddErr:MsgBox Err.DescriptionEnd SubEnd SubPrivate Sub cmdDelete_Click()On Error GoTo DeleteErrWith datPrimaryRS.Recordset.Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubDeleteErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdRe

51、fresh_Click()只有多用戶應(yīng)用程序需要On Error GoTo RefreshErrdatPrimaryRS.RefreshExit SubRefreshErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click()On Error GoTo UpdateErrdatPrimaryRS.Recordset.UpdateBatch adAffectAllExit SubUpdateErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click()Unload MeEnd Sub其他關(guān)于添加刪除的記錄的功能實(shí)現(xiàn)都與此類似，在此就