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

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

庫存管理系統(tǒng)設(shè)計分析可行性報告研究本套應(yīng)用程序名稱為“庫存管理系統(tǒng)”，主要用于倉庫貨品信息的管理，系統(tǒng)包括倉庫管理、入庫、出庫、一些統(tǒng)計查詢和報表等幾部分組成。庫存管理系統(tǒng)需滿足倉庫管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計不同用戶的操作權(quán)限和登陸方法。對于一個倉庫來說，最大的功能就是存儲貨品，所以倉庫管理就是對貨品信息，倉庫信息，短線貨品及超儲貨品的管理，用戶可以根據(jù)實際情況對各種貨品信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫等。當(dāng)然，倉庫中貨品入庫也是常有的事，入庫管理操作就是對于貨品入庫情況的管理，用戶可以方便地輸入一些貨品的信息。有了貨品的入庫，自然也就有貨品的出庫，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對一些出庫貨品的管理，也很方便數(shù)據(jù)的輸入。倉庫貨品的信息量大，數(shù)據(jù)安全性和保密性要求高。本系統(tǒng)實現(xiàn)對貨品信息的管理和總體的統(tǒng)計等，倉庫信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨品的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。報表是一個數(shù)據(jù)庫中最重要的功能之一，有了報表才能清楚地知道貨品的出入庫情況，在數(shù)據(jù)報表功能中包括出庫報表，庫存報表及經(jīng)辦人員報表等一些基本信息的打印，方便簡潔。本系統(tǒng)基本涵蓋了庫存管理的主要需求，具有完善細(xì)致的功能、友好的用戶界面、強(qiáng)大的數(shù)據(jù)處理功能和完備的安全機(jī)制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能?！裣到y(tǒng)特色：1.設(shè)置系統(tǒng)用戶登陸功能，即時對系統(tǒng)數(shù)據(jù)進(jìn)行安全設(shè)置與保護(hù)。2.友好的用戶界面，業(yè)務(wù)操作簡單，進(jìn)入系統(tǒng)即能使用。3.成熟先進(jìn)的技術(shù)和系統(tǒng)構(gòu)架，采用先進(jìn)的數(shù)據(jù)庫訪問方式，數(shù)據(jù)更安全，性能更穩(wěn)定。4.強(qiáng)大的數(shù)據(jù)處理能力和開放的數(shù)據(jù)接口，選用具有大型數(shù)據(jù)庫安全機(jī)制的數(shù)據(jù)庫系統(tǒng)，提供各種級別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，確保數(shù)據(jù)的安全可靠。5.系統(tǒng)每種操作都可以通過菜單來進(jìn)行。操作快捷、方便。易懂易會。系統(tǒng)集輸入、維護(hù)、查詢、統(tǒng)計和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。庫存管理系統(tǒng)倉庫管理庫存管理系統(tǒng)倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數(shù)據(jù)管理打印、查詢系統(tǒng)貨品信息管理貨品庫存管理短線貨品管理超儲貨品管理出庫登記管理貨品出庫年度統(tǒng)計收貨單位年度收貨金額統(tǒng)計盤存錄入貨品出入庫期間匯總表倉庫信息管理供貨單位管理收貨單位管理經(jīng)辦人員管理 基本模塊與功能：1.系統(tǒng)包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對整個數(shù)據(jù)庫進(jìn)行備份，以確保數(shù)據(jù)的安全性。幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息；2.庫存管理貨品信息管理：對倉庫里的貨品進(jìn)行登記；貨品庫存管理：管理倉庫的庫存情況；短線貨品管理：對倉庫里短線的貨品進(jìn)行登記，以便及時采購補(bǔ)貨；超儲貨品管理：對倉庫里超儲的貨品進(jìn)行登記，控制庫存量，減少進(jìn)貨；3.入庫管理入庫登記管理：能對貨品的入庫登記，刪除，更改等；入庫期間統(tǒng)計：貨品入庫期間年度的統(tǒng)計；供貨單位期間供貨金額統(tǒng)計：對貨品供應(yīng)的金額進(jìn)行統(tǒng)計；4.出庫管理對貨品出庫期間的年度統(tǒng)計，出庫登記，及收獲單位金額統(tǒng)計等；5.盤存管理對盤存貨品信息的盤存錄入；6.綜合管理可根據(jù)同一貨品的出入庫情況，對庫存情況的匯總；7.附項管理對供貨單位情況，經(jīng)辦人員，收貨單位情況，倉庫信息進(jìn)行登記管理，可進(jìn)行添加，刪除等操作；8.歷史數(shù)據(jù)管理對歷史庫存，歷史出庫，歷史出庫情況進(jìn)行管理；9.打印與查詢可根據(jù)輸入的條件，對貨品的入庫信息，庫存信息等進(jìn)行簡單查詢和組合查詢。據(jù)流程圖：登陸庫存管理系統(tǒng)登陸庫存管理系統(tǒng)驗證用戶信息系統(tǒng)主窗體倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數(shù)據(jù)管理打印、查詢系統(tǒng)貨品入庫單經(jīng)辦人員報表貨品出庫單數(shù)據(jù)備份備份輸出庫存匯總圖4－1庫存管理系統(tǒng)數(shù)據(jù)流程圖密碼錯誤匯總計算貨品信息管理數(shù)據(jù)流程圖：貨品登記貨品登記基本信息錄入貨品基本信息管理貨品調(diào)配匯總出庫貨品信息管理入庫貨品信息管理貨品其他信息管理貨品信息管理數(shù)據(jù)流程圖數(shù)據(jù)庫設(shè)計本庫存管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的，所以只需建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)結(jié)構(gòu)表描述如下：貨品信息表字段名數(shù)據(jù)類型字段長度是否為空貨品編碼文本5貨品名稱文本10類別文本8型號文本4單位文本2倉庫編碼文本5存放倉庫文本12入庫計劃單價貨幣出庫計劃單價貨幣原始庫存數(shù)字長整型默認(rèn)貨位文本5警戒底線庫存數(shù)字長整型警戒高線庫存數(shù)字長整型表1 貨品信息表表1 貨品信息表入庫登記表字段名數(shù)據(jù)類型字段長度是否為空入庫日期日期/時間入庫單號文本10貨物編碼文本5數(shù)量數(shù)字長整型進(jìn)貨價貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表2 入庫登記表表2 入庫登記表出庫登記表字段名數(shù)據(jù)類型字段長度是否為空出庫日期日期/時間出庫單號文本10貨物編碼文本5貨物名稱文本10數(shù)量數(shù)字長整型單價貨幣出貨價貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表3 貨品出庫表表3 貨品出庫表倉庫信息表字段名數(shù)據(jù)類型字段長度是否為空倉庫編號文本5倉庫名稱文本12存貨種類文本2存貨價值貨幣表4 倉庫信息表表4 倉庫信息表供貨單位信息表（收貨單位表）字段名數(shù)據(jù)類型字段長度是否為空單位編號文本5單位名稱文本50單位地址文本50電話文本15聯(lián)系人文本8表5 供貨單位信息表表5 供貨單位信息表經(jīng)辦人員表字段名數(shù)據(jù)類型字段長度是否為空編號文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6 經(jīng)辦人員表表6 經(jīng)辦人員表用戶表字段名數(shù)據(jù)類型字段長度是否為空UserID文本10userPWD文本6表7 用戶表表7 用戶表另外，我們還建立了幾張查詢表，用以存放部分用于計算的統(tǒng)計信息，以便查詢?！袢霂斓怯浗y(tǒng)計表 入庫登記_合計●貨品入庫年度統(tǒng)計表 入庫登記_n●供貨單位年度供貨金額統(tǒng)計表 入庫登記_w●庫存匯總表 庫存 ●出庫登記統(tǒng)計表 出庫登記_合計●貨品出庫年度統(tǒng)計表 出庫登記_h●收貨單位年度收貨金額統(tǒng)計表 出庫登記_d入庫登記_合計表與出庫登記_合計分別是以入庫登記表和出庫登記表為基礎(chǔ)的，所以此處不再描述；庫存匯總表主要由出庫表和入庫表建立關(guān)系獲得。入庫登記_n字段名數(shù)據(jù)類型字段長度是否為空貨物名稱文本10入庫日期日期/時間年度數(shù)量數(shù)字長整型表8入庫登記_n表8入庫登記_n入庫登記_w字段名數(shù)據(jù)類型字段長度是否為空供貨單位文本50入庫日期日期/時間年度供貨總額數(shù)字長整型表9入庫登記_w表9入庫登記_w庫存匯總字段名數(shù)據(jù)類型字段長度是否為空貨物編碼文本5入庫日期日期/時間貨物名稱文本10數(shù)量（入庫）數(shù)字長整型進(jìn)貨價貨幣數(shù)量（出庫）數(shù)字長整型庫存數(shù)量數(shù)字長整型表10庫存匯總表表10庫存匯總表出庫登記_h字段名數(shù)據(jù)類型字段長度是否為空貨物名稱文本10出庫日期日期/時間年度數(shù)量數(shù)字長整型表11出庫登記_h表11出庫登記_h出庫登記_d字段名數(shù)據(jù)類型字段長度是否為空收貨單位文本50出庫日期日期/時間年度金額總額數(shù)字長整型表12出庫登記_d表12出庫登記_d應(yīng)用程序設(shè)計程序結(jié)構(gòu)本應(yīng)用程序由33個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，庫存匯總，打印及查詢等窗體組成。通過運(yùn)行程序首先進(jìn)入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進(jìn)入主窗體，在主窗體上有10個菜單項，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)，庫存管理，入庫管理，出庫管理，盤存管理，綜合管理，附項管理，歷史數(shù)據(jù)管理，打印和查詢。需要哪個功能的時候就點哪個菜單，相對應(yīng)的窗體會自動彈出。程序源代碼程序?qū)崿F(xiàn)的部分代碼如下：●公共模塊Publicdate1AsStringPublicdate2AsStringPublicgUserNameAsString'保存用戶名'添加執(zhí)行SQL語句的函數(shù)PublicFunctiontransactSQL(ByValsqlAsString)AsADODB.RecordsetDimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.Connection'創(chuàng)建連接Setrs=NewADODB.Recordset'創(chuàng)建記錄集OnErrorGoToTransactSQL_ErrorstrConnection="Provider=Microsoft.jet.oledb.4.0;DataSource=E:\庫存管理\kucun.mdb"strArray=Split(sql)con.OpenstrConnection'打開連接IfStrComp(UCase$(strArray(0)),"select",vbTextCompare)=0Thenrs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimisticSettransactSQL=rs'返回記錄集iflag=1Elsecon.Executesql'執(zhí)行命令iflag=1EndIfTransactSQL_Exit:Setrs=NothingSetcon=NothingExitFunctionTransactSQL_Error:MsgBox"查詢錯誤："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunction●主窗體的程序代碼主窗體界面主窗體界面PrivateSuba1_Click()Form1.ShowEndSubPrivateSuba2_Click()DimfAddAsNewfrmAddUserfAdd.ShowfAdd.ZOrder0EndSubPrivateSuba3_Click()DimfChangePWDAsNewfrmChangePWDfChangePWD.ShowEndSubPrivateSuba4_Click()frmAbout.ShowEndSubPrivateSuba5_Click()'調(diào)入數(shù)據(jù)備份Loadmain_sjbfmain_sjbf.Showmain.Enabled=FalseEndSubPrivateSuba6_Click()'調(diào)入數(shù)據(jù)恢復(fù)Loadmain_sjhfmain_sjhf.Showmain.HideEndSubPrivateSubb1_Click()frm貨品信息.ShowEndSubPrivateSubb12_Click()sql="select*from貨品信息orderby貨品編碼"frmProInfo.createList(sql)frmProInfo.ShowEndSubPrivateSubb2_Click()frm貨品庫存.ShowEndSubPrivateSubB3_Click()frm超儲貨品.ShowEndSubPrivateSubb4_Click()frm短線貨品.ShowEndSubPrivateSubc1_Click()frm入庫登記.ShowEndSubPrivateSubc2_Click()frm貨品入庫年度統(tǒng)計.ShowEndSubPrivateSubc3_Click()frm供貨單位供貨分類金額統(tǒng)計.ShowEndSubPrivateSubc4_Click()frm供貨單位年度供貨金額統(tǒng)計.ShowEndSubPrivateSubCommand1_Click()date1=Text1.Text&"/"&Text3.Text&"/"&Text2.Textdate2=Text6.Text&"/"&Text4.Text&"/"&Text5.TextText7.Text=date1EndSubPrivateSubd1_Click()frm出庫登記.ShowEndSubPrivateSubd2_Click()frm貨品出庫年度統(tǒng)計.ShowEndSubPrivateSubd3_Click()frm收貨單位期間收貨統(tǒng)計.ShowEndSubPrivateSubd4_Click()frm收貨單位年度收貨金額統(tǒng)計.ShowEndSubPrivateSube1_Click()frm盤存錄入.ShowEndSubPrivateSube2_Click()frm盤存表.ShowEndSubPrivateSubf1_Click()frm貨品出入?yún)R總表.ShowEndSubPrivateSubg1_Click()frm經(jīng)辦人員.ShowEndSubPrivateSubg2_Click()frm供貨單位.ShowEndSubPrivateSubg3_Click()frm倉庫信息.ShowEndSubPrivateSubg5_Click()Form6.ShowEndSubPrivateSubh1_Click()frm歷史庫存.ShowEndSubPrivateSubh2_Click()frm歷史入庫.ShowEndSubPrivateSubh3_Click()frm歷史出庫.ShowEndSubPrivateSubi1_Click()DataReport1.ShowEndSubPrivateSubi2_Click()DataReport2.ShowEndSubPrivateSubi3_Click()DataReport3.ShowEndSubPrivateSubj1_Click()Form2.ShowEndSubPrivateSubj2_Click()Form3.ShowEndSubPrivateSubj3_Click()Form4.ShowEndSubPrivateSubj4_Click()Form5.ShowEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsComctlLib.Button)SelectCaseButton.KeyCaseIs="rk"'調(diào)入入庫登記c1_ClickCaseIs="ck"'調(diào)入出庫登記d1_ClickCaseIs="kchz"'調(diào)入庫存匯總f1_ClickCaseIs="zhcx"'調(diào)入組合查詢j4_ClickCaseIs="sjbf"'調(diào)入數(shù)據(jù)備份a5_ClickEndSelectEndSubPrivateSubx_Click()EndEndSub●登陸模塊的實現(xiàn)PrivateSubcmdLogin_Click()denlu_name=txtUserName.Textdenlu_pass=txtPassword.TextDimmycnAsNewADODB.ConnectionDimmyrsAsNewADODB.RecordsetSetmyrs=NewADODB.Recordsetmycn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=kucun.mdb;"myrs.Open"SELECT*FROM[用戶]whereuserID='"+denlu_name+"';",mycn,adOpenKeyset,adLockOptimisticIfmyrs.BOF=TrueAndmyrs.EOF=TrueThenMsgBox"查無此人",,"登陸信息"ElseIfmyrs("userPWD")=denlu_passThen''''''''''''''''''''''''''''''''''''''''''MsgBox"身份正確",,"登陸信息"main.ShowUnloadMe'''''''''''''''''''''''''''''''''''''''''''''''''''ElseMsgBox"密碼不正確",,"登陸信息"EndIfEndIfEndSub●添加用戶模塊的實現(xiàn)OptionExplicitPrivateSubCommand1_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(UserName.Text)=""Then'判斷用戶名稱是否為空MsgBox"請輸入用戶名稱!",vbOKOnly+vbExclamation,"警告"ExitSubUserName.SetFocusElsesql="select*from用戶whereUserID='"&UserName&"'"Setrs=transactSQL(sql)Ifrs.EOF=FalseThen'判斷是否已經(jīng)存在用戶MsgBox"這個用戶已經(jīng)存在！請重新輸入用戶名稱！",vbOKOnly+vbExclamation,"警告"UserName.SetFocusUserName.Text=""PassWord.Text=""ConfirmPWD.Text=""ExitSubElseIfTrim(PassWord.Text)<>Trim(ConfirmPWD.Text)Then'判斷兩次密碼是否相同MsgBox"兩次輸入的密碼不一致，請重新輸入密碼！",vbOKOnly+vbExclamation,"警告"PassWord.Text=""ConfirmPWD.Text=""PassWord.SetFocusExitSubElseIfTrim(PassWord.Text)=""Then'判斷密碼是否為空MsgBox"密碼不能為空！",vbOKOnly+vbExclamation,"警告"PassWord.Text=""ConfirmPWD=""PassWord.SetFocusElse'添加用戶sql="insertinto用戶(UserID,UserPWD)values('"&UserNamesql=sql&"','"&PassWord&"')"transactSQL(sql)MsgBox"添加成功！",vbOKOnly+vbExclamation,"添加結(jié)果"'重新設(shè)置初始化為空UserName.Text=""PassWord.Text=""ConfirmPWD.Text=""UserName.SetFocusEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()UserName.Text=""PassWord.Text=""ConfirmPWD.Text=""EndSub●修改用戶密碼的實現(xiàn)OptionExplicitPublicgUserNameAsStringPrivateSubCommand1_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(OldPWD.Text)=""Then'判斷是否輸入舊密碼MsgBox"請輸入舊密碼！",vbOKOnly+vbExclamation,"警告"OldPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)=""Then'判斷是否輸入新密碼MsgBox"請輸入新密碼！",vbOKOnly+vbExclamation,"警告"NewPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)<>Trim(ConfirmPWD.Text)Then'判斷兩次密碼是否相同MsgBox"兩次密碼不同！",vbOKOnly+vbExclamation,"警告"NewPWD.Text=""ConfirmPWD.Text=""NewPWD.SetFocusElse'修改密碼sql="update用戶setUserPWD='"&NewPWD&"'whereUserID='"sql=sql&gUserName&"'"transactSQL(sql)MsgBox"密碼已經(jīng)修改！",vbOKOnly+vbExclamation,"修改結(jié)果"UnloadMeEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()OldPWD.Text=""NewPWD.Text=""ConfirmPWD.Text=""EndSub●數(shù)據(jù)備份模塊的實現(xiàn)PrivateSubForm_Activate()'賦值給text1Text1.Text="A"EndSubPrivateSubCommand1_Click()'確認(rèn)數(shù)據(jù)備份Me.MousePointer=11YesNo=MsgBox("準(zhǔn)備好了嗎？",vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe.MousePointer=11MkDir(Text1.Text&":\數(shù)據(jù)備份")FileCopyApp.Path&"\kucun.mdb",Text1.Text&":\數(shù)據(jù)備份\kucun"&Date&".mdb"Me.MousePointer=0MsgBox"數(shù)據(jù)已備份完畢。"errprompt:Me.MousePointer=0SelectCaseErr.NumberCase57MsgBox"磁盤已滿！",vbCriticalCase70MsgBox"磁盤寫保護(hù)！",vbCriticalEndSelectEndSubPrivateSubCommand2_Click()Loadmainmain.Showmain.Enabled=TrueUnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSub●數(shù)據(jù)恢復(fù)模塊的實現(xiàn)PrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_Click()Text1.Text=Dir1.Path&"\"&File1.FileNameEndSubPrivateSubCommand1_Click()'恢復(fù)指定路徑下的數(shù)據(jù)庫IfText1.Text=""ThenMsgBox"請選擇要恢復(fù)的數(shù)據(jù)！"ElseMe.MousePointer=11FileCopyDir1.Path&"\"&File1.FileName,App.Path&"\kucun.mdb"Me.MousePointer=0MsgBox"數(shù)據(jù)已恢復(fù)完畢！"EndIfEndSubPrivateSubCommand2_Click()main.ShowUnloadMeEndSub對于貨品信息的瀏覽，主要采用了MSFlexGrid控件，它是一種Active控件，該控件提供了表格式界面，處理數(shù)據(jù)相當(dāng)靈活，具有只讀數(shù)據(jù)綁定、對表格數(shù)據(jù)進(jìn)行顯示和操作、數(shù)據(jù)分組排序、Data控件賦值、文本自動換行等功能。但它無法對數(shù)據(jù)進(jìn)行動態(tài)輸入，只能提供瀏覽功能。圖5－2貨品信息界面圖5－2貨品信息界面具體代碼如下：OptionExplicitPrivateSubCommand1_Click()rsGrid.RefreshEndSubPrivateSubForm_Load()DimsqlAsStringsql="select*from貨品信息orderby貨品編碼"createList(sql)EndSubPublicSubcreateList(sqlAsString)DimrsAsNewADODB.RecordsetDimiAsIntegerDimrsGirdAsMSFlexGrid'設(shè)置表頭rsGrid.TextMatrix(0,0)="貨品編碼"rsGrid.TextMatrix(0,1)="貨品名稱"rsGrid.TextMatrix(0,2)="類別"rsGrid.TextMatrix(0,3)="型號"rsGrid.TextMatrix(0,4)="單位"rsGrid.TextMatrix(0,5)="倉庫編碼"rsGrid.TextMatrix(0,6)="存放倉庫"rsGrid.TextMatrix(0,7)="入庫計劃單價"rsGrid.TextMatrix(0,8)="出庫計劃單價"rsGrid.TextMatrix(0,9)="原始庫存"rsGrid.TextMatrix(0,10)="默認(rèn)貨位"rsGrid.TextMatrix(0,11)="警戒底線庫存"rsGrid.TextMatrix(0,12)="警戒高線庫存"Fori=0To12'設(shè)置所有表格對齊方式rsGrid.ColAlignment(i)=4NextiFori=0To11'設(shè)置每列寬度rsGrid.ColWidth(i)=1400NextirsGrid.ColWidth(12)=2000Setrs=transactSQL(sql)Ifrs.EOF=FalseThen'顯示信息內(nèi)容rsGrid.Rows=1WhileNotrs.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.TextMatrix(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)rsGrid.TextMatrix(rsGrid.Rows-1,11)=rs(11)rsGrid.TextMatrix(rsGrid.Rows-1,12)=rs(12)rs.MoveNextWendrs.CloseEndIfEndSub●貨品入庫登記模塊的實現(xiàn)入庫登記窗口入庫登記窗口PrivateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSubPrivateSubdatPrimaryRS_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)'錯誤處理程序代碼置于此處'想要忽略錯誤，注釋掉下一行'想要捕獲它們，在此添加代碼以處理它們MsgBox"Dataerroreventhiterr:"&DescriptionEndSubPrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'為這個recordset顯示當(dāng)前記錄位置datPrimaryRS.Caption="Record:"&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'驗證代碼置于此處'下列動作發(fā)生時該事件被調(diào)用DimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNewCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateEndSelectIfbCancelThenadStatus=adStatusCancelEndSubPrivateSubcmdAdd_Click()OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdDelete_Click()OnErrorGoToDeleteErrWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdRefresh_Click()'只有多用戶應(yīng)用程序需要OnErrorGoToRefreshErrdatPrimaryRS.RefreshExitSubRefreshErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdClose_Click()UnloadMeEndSub●出庫登記模塊的實現(xiàn)出庫登記窗口出庫登記窗口PrivateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSubPrivateSubdatPrimaryRS_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)'錯誤處理程序代碼置于此處'想要忽略錯誤，注釋掉下一行'想要捕獲它們，在此添加代碼以處理它們MsgBox"Dataerroreventhiterr:"&DescriptionEndSubPrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'為這個recordset顯示當(dāng)前記錄位置datPrimaryRS.Caption="Record:"&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'驗證代碼置于此處'下列動作發(fā)生時該事件被調(diào)用DimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNewCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateEndSelectIfbCancelThenadStatus=adStatusCancelEndSubPrivateSubcmdAdd_Click()OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdDelete_Click()OnErrorGoToDeleteErrWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdRefresh_Click()'只有多用戶應(yīng)用程序需要OnErrorGoToRefreshErrdatPrimaryRS.RefreshExitSubRefreshErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExi