进销存管理系统-课程设计报告

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犯错办