1、2007級課程設計報告課題名稱：進銷存管理系統清點管理管理子系統專業：班級：學號：姓名：指導教師：目錄1.1?2.2-63.6-33.53.61.系統概括現代科技技術日異月新，在不同樣的領域要求各異，從前對庫存清點的統計都是手寫登記，紙制查察，這樣很簡單發生錯誤，致使企事業失去他們所需要的信息，而且會產生錯誤信息誤導決議，現在為了方便決議者認識到更為的確的信息和資料，因此開發這樣的系統方便決議者查問信息及網上閱讀，使各方面的信息都能夠正的確時。系統的功能是將該公司的所有庫存清點信息進行電子統計,依照不同樣的需求成立各樣的報表便于企事業在網上查問庫存的各方面的信息情況,方便決議者認識市場,也能夠

2、方,便管理者對庫存清點的信息進行不同樣的統計。庫存清點管理管理子系統主要實現的是庫存清點信息的錄入，改正，查問以及清點信息的打印等功能，為此，假定要實現各方面的需求，系統的數據必定具有高度的完滿性和正確性，這就要求系統的高度安全性，可保護性，可靠性及靈便性。比方庫存管理系統的管理，管理員在錄入商品的庫存情況的時候或是數據庫出現異樣而產生過錯，可能會影響決議者從網上查問這些商品的庫存情況，這就要求系統擁有高度的安全性，可保護性和可靠性；靈便性指的是系統要擁有富強的功能以適應不同樣層次的客戶不同樣的需求。其余，系統的操作界面要求簡易，平時，以便于操作。用戶對系統的信用，若是由于一次的錯誤就會致使一

3、連串的信息錯誤，因此保證信息的可靠性十分必定的，這樣才能使系統獲得用戶的相信和支持。這樣的系統需要保證可靠性,防備給決議者供給虛假的信息,更保證各部門經過閱讀該系統,進行相應的需求操作。因此，隨著技術張開，公司采用庫存清點信息化已成為趨勢及必定。2.需求剖析本系統經過簡單的數據庫的操作，實現企事業單位的庫存信息的管理。庫存盤點管理管理子系統是一個小型的信息管理系統，數據庫采用SQLServer2005。使用戶和工程人員明確系統的功能、應用范圍。本系統擁有以下功能：1：實現庫存清點管理的信息化管理。2：實現庫存清點管理的基礎要求，如信息增添，查察及刪除。操作方便簡單，且數據牢固性強。：方便的庫存

4、信息查問功能，支持多條件查問。4：數據計算自動達成，盡量減少人工過問。5：富強的報表打印功能。2.1.2開發及運行環境1.硬件環境：CPUCU以上，內存在256M以上。2.軟件環境：WindowsXP操作系統，MicrosoftSQLServers數據庫系統。軟件編程使用MicrosoftVisualBasic6.0中文版。2.程序流程本庫存清點管理管理子系統使用以下的流程進行登岸以及其余的操作：開始界面是始于登岸界面“登錄登錄.frm，當用戶鍵入用戶名和密碼的時候，系統自動到所對應的數據庫“用戶信息表中進行用戶考證。若是輸入正確那么進入系統主界面，就能夠進入到主操作菜單窗體“系統（系統.fr

5、m）中進行操作。在主操作菜單窗體“系統（系統.frm）中，用戶能夠對數據庫中的商品信息、供給商信息及客戶信息等根本信息進行包括：增添，查問，改正等操作，并能夠進行入庫管理，出庫管理及庫存清點。其余，可在“清單報表管理窗口中進行相應的報表打印。主界面入以下列圖所示：2.2業務流程圖庫存清點流程以下：數據詞典4.數據元素條目總編號：1-100編號：100名稱：庫存單編號編碼說明：又名：kcdb說明：庫存單編碼商品編號數據值種類：失散庫存編號種類：數字庫存序號長度：有10關數據:庫存卡數據構造條目數據構造條目名商品入庫卡稱：說商品入庫時明：填寫的卡片構造:入庫序號入庫編號商品編號商品名稱規格計量單位

6、數量單價總金額入庫日期經手人備注信息總編號：2-03編號：006相關的數據流，數據儲藏新商品入庫表商品庫存表數量：每年約2000份數據流條目名稱：庫存信息表總編號.3-02簡要說明：庫存信息的匯編號：005總數據流根源：賬面庫存數據流去處：P2.1,P2,21000份每包括的數據構造：流通量:年銷售的商品商品庫存記錄數據儲藏條目數據儲藏條目名稱：庫存清點明細表總編號.4-05說明：庫存信息匯總編號：A1構造：相關的數據流清點編號P2.1-A1A1-P商品名稱A1-P賬面庫存信息量：150份每年實盤庫存有無復查：有差別數辦理過程條目辦理過程條目名稱打印庫存清點清單總編號：5-009說明宣布庫存清

7、點信息，并說明庫存情況編號：P輸入A1-P輸出P-清點明細表處理查A1庫存顯然表，打印庫存信息表及清點信息表，表現好的能夠保持令人滿意的可加以調整，并注明表現不好的地方，要求改進。外面實體條目外面實體條目總編號.編名稱：職工號：個數：說明：輸出數據流：輸入數據流：P2.1,5一職工薪資表,:表現不06-001001約2000個程序運行流程圖口I庫存管理窗口If盤入出點庫庫庫管管存理理管窗窗理口口窗口系統管理窗口仔清單報表打印窗口該系統的整體構造設計以以下列圖所示：人員信息檔案管理系統包括根本信息管理，銷售信息管理，庫存信息管理，數據報表管理和系統管理等局部。基本信息庫存管理數據銷售管理系統管理

8、管理管理其中，根本信息管理中能夠對商品，供給商，客戶根本信息進行增添，改正，查問和刪除等操基本信息管理商品信息供給商信客戶信息管理息管理管理作，如圖：庫存管理中能夠實現庫存信息，入庫單信息，出庫單信息，清點清單信息的錄入，改正，查等操作，如圖：詢（庫存管理）入庫管理出庫管理清點管理入庫單查出庫單錄i,一f清點清單、清點清單出庫單查詢入改正詢錄入改正查問IF入庫單錄入改正報表預覽報表打印數據報表管理能夠實現清點清單的預覽及打印等操作，如圖:清點清單報表系統管理中主若是用戶查問，增添用戶，改正密碼，數據備份及恢復等的操作,如圖：系統管理_t*f數據備份數據恢復退出系統用戶信息增添用戶改正密碼查問商

9、品信息表字段名數據種類商品編號varchar商品名稱varchar單價varchar計量單位varchar產地varchar供給商名稱varchar備注信息text供給商信息表字段名數據種類供給商編號varchar供給商名稱varchar地點varchar郵政編碼varchar聯系varcgar公司網址varchar聯系人varchar聯系人varcgar開戶銀行varchar銀行賬號varchar備注信息text客戶信息表字段名數據種類客戶編號varchar客戶名稱varchar地點varchar郵政編碼varchar聯系varchar公司網址varcgar長度可否贊同空否是是是是是是長度可

10、否贊同空:否是是是是是是是是是是長度可否贊同空10:否I50是是6是是是單價說明主鍵，獨一表記商品記錄說明主鍵，獨一表記供給商記錄供給商單位全稱說明主鍵，獨一表記客戶記錄1客戶單位全稱聯系人varchar聯系人varcgar開戶銀行varchar銀行賬號varchar備注信息text商品入庫信息表字段名數據種類入庫序號decimal商品編號varchar商品名稱varchar供給商編號varchar供給商名稱varchar規格varchar計量單位varchar數量varchar單價varchar總金額varchar日期datetime經手人varchar備注信息text改正人varchar修

11、他日期datetime商品庫存信息表字段名數據種類庫存序號decimal庫存編號varchar庫存名稱varchar商品編號varchar規格varchar計量單位varchar數量varchar單價varchar總金額varchar日期datetime備注信息text是是是是是長度可否贊同空否否是否是是是是是是是是是是是長度可否贊同空9否是是否是是是是是8是是說明主鍵，獨一表記商品入庫記錄外鍵，對應商品信息表中商品編號外鍵，對應供給商信息表中供給商編號說明主鍵，獨一表記商品庫存記錄外鍵，對應商品信息表中商品編號商品出庫信息表字段名數據種類長度可否贊同空說明出庫序號decimal9否主鍵，獨一

12、表記商品入庫記錄出庫編號varchar10是商品編號varchar10否外鍵，對應商品信息表中商品編號商品名稱varchar50是規格varchar30是計量單位varchar10是數量varchar10是單價varchar50是總金額varchar50是出庫日期datetime8是提貨單位varchar50是提貨人varchar50是經手人varchar20是備注信息text16是改正人varchar20是修他日期datetime8是庫存明細表字段名數據種類長度可否贊同空清點編號varchar10否商品編號varchar10否商品名稱varchar50是規格varchar30是計量單位var

13、char10是單價varchar50是賬面庫存varchar50是實盤庫存varchar50是差別數varchar50是清點人員varchar50是清點日期datetime8是備注信息text16是用戶信息表字段名數據種類長度可否贊同空用戶編號varchar10否用戶密碼varchar10否用戶名稱varchar50是備注信息text16是和輸入設計登錄界面：說明主鍵，獨一表記商品清點記錄外鍵，對應商品信息表中商品編號說明主鍵主界面:商品信息管理的輸出界面以以下列圖:入庫單錄入改正的輸出界面以以下列圖:入庫單信息查問的輸出界面以以下列圖:清點清單錄入改正的輸出界面以以下列圖：數據庫備份與恢復:

14、登錄OptionExplicitDimSQLAsStringDimmsgAsStringDimLoginSucceededAsBooleanDim用戶名稱AsStringPrivateSubCommand1_Click()DimpasswordAsString判斷用戶可否存在用戶名稱=Trim(Text1.Text)取出用戶的IDSQL=select*from用戶信息表where用戶名稱=&用戶名稱&Setrst=SelectSQL(SQL,msg)Ifrst.RecordCount0Thenpassword=Trim(rst.Fields(1)取出該用戶的密碼ElseMsgBox(數據庫操作

15、錯誤！)ExitSubEndIf判斷密碼可否正確Ifpassword=Trim(Text2.Text)ThenLoginSucceeded=TrueUnloadMeElseMsgBox(密碼錯誤！)LoginSucceeded=FalseEndIfEndSubPrivateSubCommand2_Click()設置全局變量為false不提示失敗的登錄LoginSucceeded=FalseUnloadMeEndSubPrivateSubForm_Load()登錄.Enabled=TrueEndSubPrivateSubForm_Unload(CancelAsInteger)LoginSucce

16、eded=FalseUnloadMeEndSub.1進入系統主界面后，對系統進行操作，各代碼以下：3.5.1在根本信息管理界面中，各按鈕的代碼以下以“商品信息管理為例OptionExplicitDimiAsInteger定義整型變量Dimrs1AsNewADODB.Recordset定義數據集對象DimrsAsNewADODB.Recordset定義數據集對象DimSQLAsStringDimmsgAsStringPrivateSubCommand1_Click()IfText1.Text=ThenMsgBox商品編號不同樣意為空！EndIfSQL=SELECT*FROM商品信息表Setrs1

17、=SelectSQL(SQL,msg)新增商品MsgBox增添數據成功！封閉數據集對象UnloadMeEndSubPrivateSubCommand2_Click()EndSubPrivateSubCommand3_Click()查問操作CallLoadDataCallShowDataEndSubPrivateSubShowData()在控件中顯示數據若是存在記錄為控件賦值SQL=SELECT*FROM商品信息表Setrs=SelectSQL(SQL,msg)SetMe.DataGrid1.DataSource=rsIfrs.RecordCount0ThenEndIfEndSubPrivate

18、SubLoadData()查問商品信息裝載數據顯示數據SQL=SELECT*FROM商品信息表Setrs=SelectSQL（SQL,msg）SetMe.DataGrid1.DataSource=rsEndSubPrivateSubControlClear（）重置控件Me.Text1.Text=Me.Text2.Text=Me.Text3.Text=Me.Text4.Text=Me.Text5.Text=Me.Combo1.Text=ombo2.Text=EndSubPrivateSubCommand4_Click（）刪除操作OnErrorGoToErrMsgIfrs.RecordCount0

19、Thenmsg=MsgBox（刪除該條記錄嗎?,vbYesNo）Ifmsg=vbYesThen錯誤辦理rs.DeleteCallLoadData清空控件刪除數據從頭CallControlClear裝載數據設置控件Enable值為不能用MsgBox（成功刪除的數據!）EndIfElseMsgBox（沒有可刪除的數據!）EndIfExitSubErrMsg:MsgBoxErr.Description,vbExclamation,犯錯EndSubPrivateSubForm_Load（）Combo1.AddItem報告犯錯信息（瓶）Combo1.AddItem（公斤）Combo1.AddItem（袋

20、）Combo2.AddItem（吉良公司）Combo2.AddItem（吉林米業）Combo2.AddItem（宏基）Combo2.AddItem（光彩公司）EndSub.1在庫存信息查問界面中，各按鈕的代碼以下:PrivateSubCommand1_Click（）查問操作DimcolNameAsString保留所選擇的查問條件詢詳細的值DimstrWhereAsStringDimcolValueAsString保留所要查colName=Combo1.Text取出條件的值colValue=Text1.Text取出所要查問的值strWhere=where&colName&like%&colVal

21、ue&%SQL=select*from商品庫存信息表&strWhere退出操作EndSubPrivateSubForm_Load（）Combo1.AddItem（庫存序號）Combo1.AddItem（庫存編號）Combo1.AddItem（商品編號）Combo1.AddItem（商品名稱）Combo1.AddItem（日期）Combo1.ListIndex=0EndSub.2.1在入庫單錄入改正界面中，各按鈕的代碼以下:OptionExplicitDimiAsInteger定義整型變量Dimrs1AsNewADODB.Recordset定義數據集對象DimrsAsNewADODB.Recor

22、dset定義數據集對象DimmsgAsStringPrivateSubCommand1_Click（）IfText1.Text=ThenMsgBox入庫序號不同樣意為空！EndIfSQL=SELECT*FROM商品入庫信息表DimSQLAsStringSetrs1=SelectSQL(SQL,msg)新增商品MsgBox增添數據成功！封閉數據集對象UnloadMeEndSubPrivateSubCommand4_Click()EndSubPrivateSubCommand2_Click()查問操作裝載數據CallLoadData顯示數據CallShowDataEndSubPrivateSubS

23、howData()在控件中顯示數據若是存在記錄為控件賦值SQL=SELECT*FROM商品入庫信息表Setrs=SelectSQL(SQL,msg)SetMe.DataGrid1.DataSource=rsIfrs.RecordCount0ThenEndIfEndSubPrivateSubLoadData()查問商品入庫信息SQL=SELECT*FROM商品入庫信息表Setrs=SelectSQL(SQL,msg)SetMe.DataGrid1.DataSource=rsEndSubPrivateSubControlClear()重置控件Me.Text1.Text=Me.Text2.Text=

24、Me.Text3.Text=Me.Text4.Text=Me.Text5.Text=Me.Text6.Text=Me.Text7.Text=Me.Text8.Text=Me.Text9.Text=Me.Text10.Text=Me.Text11.Text=Me.Text12.Text=Me.Combo1.Text=Me.Combo2.Text=EndSubPrivateSubCommand3_Click()刪除操作OnErrorGoToErrMsg錯誤辦理Ifrs.RecordCount0Thenmsg=MsgBox(刪除該條記錄嗎?,vbYesNo)Ifmsg=vbYesThenrs.Del

25、ete刪除數據從頭CallLoadData清空控件裝載數據CallControlClear設置控件Enable值為不能用MsgBox(成功刪除的數據!)EndIfElseMsgBox(沒有可刪除的數據!)EndIfExitSubErrMsg:報告犯錯信息MsgBoxErr.Description,vbExclamation,犯錯EndSubPrivateSubForm_Load（）Combo1.AddItem（吉良公司）Combo1.AddItem（吉林米業）Combo1.AddItem（宏基）Combo1.AddItem（光彩公司）Combo2.AddItem（瓶）Combo2.AddIte

26、m（公斤）Combo2.AddItem（袋）EndSub在改正密碼界面中，“確定按鈕的代碼以下：OptionExplicitDimSQLAsStringDimmsgAsStringPrivateSubCommand2_Click（）退出操作系統.Enabled=TrueUnloadMeEndSubPrivateSubCommandok_Click（）確定操作Dimp1AsStringDimp2AsStringDimp3AsString賦值保留用戶的密碼保留用戶的新密碼保留用戶的確認密碼p1=Trim（Text1.Text）p2=Trim（Text2.Text）p3=Trim（Text3.Tex

27、t）SQL=select*from用戶信息表用戶名稱=&用戶名稱&SQL=SQL&and用戶密碼=&p1&OnErrorGoToErrMsg犯錯辦理Setrst=SelectSQL（SQL,msg）Ifrst.RecordCount0Then若是輸入密碼正確檢查新密碼和確認密碼If（p3p2）ThenMsgBox（兩次輸入的密碼不一致！）ExitSubEndIf接受新的密碼rst.Fields（密碼）=p2MsgBox(更新成功！)ElseMsgBox(用戶名稱或密碼輸入錯誤！)ExitSubEndIfExitSubErrMsg:犯錯信息MsgBoxErr.Description,vbExcl

28、amation,犯錯EndSubPrivateSubcmdCancel_Click()退出操作系統.Enabled=TrueUnloadMeEndSub數據庫備份界面中的“開始備份按鈕的代碼以下：PrivateSubCmd_BackUp_Click()Cmd_backup.Enabled=FalseMe.MousePointer=11IfText1.Text=ThenMsgBox請您選擇數據庫備份的路徑!,64,提示信息ElseDimconnterAsIntegerDimSQL,workarea(6)AsStringProgressBar1.Visible=TrueProgressBar1.M

29、ax=UBound(workarea)Forconnter=LBound(workarea)ToUBound(workarea)workarea(connter)=initialvalue&connterProgressBar1.Value=connter連結數據庫CalljoinsStrCnn.OpenStr1SQL=backupDATABASdEb_kcglTOdisk=&Text1.Text&StrCnn.Execute(SQL)履行SQL語句NextconnterMsgBox數據庫備份成功!,64,提示信息Cmd_backup.Enabled=TrueMe.MousePointer=0

30、EndIfEndSub3.5.6公用模塊設計代碼：PublicFunctionGetConnStr()AsString獲得數據庫連結字符串，用戶能夠在此處設置連結字符串UserID是數據庫用戶ID，Password是登岸密碼InitialCatalog是數據庫名，DataSource是效勞器名稱ConnectionString=Provider=SQLOLEDB;DataSource=WWW-4A31291611D;InitialCatalog=wyx13;UserID=sa;Password=;GetConnStr=ConnectionStringEndFunctionPublicFunct

31、ionOpenConn(ByRefConnAsADODB.Connection)AsBoolean打開數據庫連結，連結成功返回true，犯錯時返回falseSetConn犯錯辦理PublicSubExecuteSQL(ByValSQLAsString,ByRefmsgAsString)履行SQL語句DimConn犯錯辦理判斷SQL語句sTokens=Split(SQL)IfInStr(INSERT,DELETE,UPDATE,UCase(sTokens(0)Then打開數據庫連結IfOpenConn(Conn)ThenConn.ExecuteSQLmsg=sTokens(0)&EndIfEls

32、emsg=SQL語句有誤：EndIfFinally_Exit:Setrst=NothingSetConn=NothingExitSubErrorHandle:&SQL操作履行成功！ResumeFinally_ExitEndSubPublicFunctionSelectSQL(ByValSQL_DimConnDimsTokens()AsString犯錯辦理OnErrorGoToErrorHandle判斷SQL語句sTokens=Split(SQL)IfInStr(SELECT,UCase(sTokens(0)Then打開數據庫連結IfOpenConn(Conn)Thenrst.CursorLoc

33、ation=adUseClientrst.OpenTrim$(SQL),Conn,adOpenDynamic,adLockOptimisticSetSelectSQL=rstmsg=查問到&rst.RecordCount&條記錄!EndIfElsemsg=SQL語句有誤：&SQLEndIfFinally_Exit:Setrst=NothingSetConn=NothingExitFunctionErrorHandle:MsgString=查問錯誤:&_ResumeFinally_ExitEndFunctionPublicFunctionBatchSelectSQL(ByValSQL_DimConnDimsTokens()AsString犯錯辦