VB课程设计-商品进销存管理系统

课程设计说明书商进存理统

No

1程计目本系统的主要目标就是进一步培养我们综合应用进行程序设计的能力。通过完成一个小型的管理系统,我们能达到具备设计功能较复杂的应用程序的能力。学会利用计算机解决实际问题的初步能力,具体掌握的基本能力有VisualBasic各种语句的综合使用能力、有关控件的使用能力、设计数据库管理系统的综合能力，为以后的实际应用奠定基础。本系统是商品进销存管理系统，它可以很好的支持销售公司的事物处理，减轻事务处理人员的劳动强度，提高工作效率。该系统可以实现销售前台管理，市场信息管理库存管理品管理打印报表管理以及系统用户及其权限的权利功能。本系统是采用Visual高级语言进行程序编制，以Access数据库为程序数据库。统体计2.1计路本系统对企业中常见的采购、库存、销售等企业活动及相关供应商和客户等基本信息进行管理。2.2计法1、前台销管理。

在这个前台销售管理系统中，包括了商品浏览，商品查询以及销售报表这几个模块，商品浏览主要是对该商场内的商品进行浏览，如可以通过前台管理的浏览窗体的按钮对商品信息进行浏览商品查询功能模块主要是对该商场库存中存在的商品进行查询，查看都有哪些商品以及具体的某类商品的信息资料。销售报表模块主要是对前台销售的商品进行日常统计，以便于商场的管理。2、商场信管理。在商场信息管理系统中，主要是对商场的信息进行编辑和修改等功能操作，如修改原来商场的名称，地址以及联系电话，联系人。3、库存管。在这个管理系统中主要包括商品入库和商品出库两个功能模块。商品入库模块即对系统中的库存商品进行管理，如添加新的入库商品，修改原来库存中的商品，甚至删除库存中的商品。商品退货可以理解为商品出库管理，该功能模块与商品入库功能模块相似，可以对退货的商品进行管理。4、商品管。在这个商品管理系统中，包括商品大类管理，商品小类管理，供应商管理以及商品信息管理4个主要的管理功能模块品大类管理模块对商品的大类进行管理，如对商品大类进行添加，删除，和修改等操作。商品小类管理同商品大类管理沈阳大学

课程设计说明书

No

2相似，用于对商品的小类进行添加，删除和修改操作。供应商管理主要对提供给商场商品的货物提供商信息进行管理，商品信息管理对商场中的具体的商品信息进行管理。5．报表打。在这个管理系统中，包括入库报表和销售报表两个功能模块。本管理系统用来实现对各种报表进行统一集中的管理，该系统数据由其他几个管理系统提供，不必手工输入，从而提高了工作效率。6.用户管理用户管理功能模块用于对系统中的用户进行管理如添加新用户编辑用户信息，设置用户权限。7.客户管理。客户管理功能模块对该商场的客户进行统一管理。商品进销存管理系统前

商台销售管

场信息管

库存管理

商品管理

报表管理

用户管理

客户管理理

理图系统能2.3据设在一个商品进销存管理系统中，数据库的地位是非常重要的，是一个系统正常运行的基础。本系统的数据库是采Microsoft公司的Access2000设计的。在数据库的设计过程中，首先是收集、分析需求；再从需求抽象出一般的实体、关系和他们的属性；再将这些实体、关系和属性按照一定的规则转化为二元表结构。本系统中共有五个数据表：①商品分类表。用于给商品分类，主要包括商品编号和名称。表商品类字段名Catcode

字段说明分类编号分类名称

数据类型自动编号文本

长度(字节)长整型26

必填字段YESYES

主键YESNO沈阳大学

课程设计说明书

No

3②客户信息表。记录了客户的基本资料，主要包括客户编号，供应商地址，客户地址和电话号码等。表客户息字段名SupcodeTelnoContact

字段说明客户编号供应商地址客户地址电话号码联系方式

数据类型自动编号文本文本文本备注

长度(字节)长整型505050

必填字段YESYESYESYESYES

主键YESNONONONO③商品入库表。主要记录有关商品入库的资料，包括入库编号，商品编号，分类编号，供应商编号，描述信息，单价，数量，入库日期，修改日期，用户编号。可以方便查询商场商品的入库的有管信息。表商品库字段名DelIdRefnoSkuCatcodeSubcatcodeSupcodeDescripPriceDatePost

字段说明入库编号退货单号商品编号分类编号子类编号供应商编号描述信息单价数量入库日期修改日期用户编号

数据类型自动编号文本文本数字数字数字文本货币数字日期/时间日期/时间数字

长度（字节）长整型5050长整型长整型长整型50标准长整型长整型

必填字段YESYESYESYESYESYESYESYESYESYESYESYES

主键YESNONONONONONONONONONONO④商品信息表。记录商品的有关信息，包括商品编号，供应商编号和名称，分类编号和名称，子类编号和名称，商品有关说明，入库数量，进货价和实际售出价，进货日期和售出日期等有关信息以方便查询有关商品的各种信息利于更好的管理商品。沈阳大学

课程设计说明书表商品息

No

4字段名SkuDescripPriceStackpictureimPricebarcodeoutDateGoldBillNumBuyerifSaleStock

字段说明商品编号供应商编号供应商名称分类编号分类名称子类编号子类名称商品说明建议价入库数量图片字节数组进货价实际售出价图片字节数组商品条码进货日期售出日期含金量发票号码证书编号客户名称是否已经销售是否有库存

数据类型文本数字文本数字文本数字文本备注货币数字OLE对象货币货币OLE对象文本日期/时间日期/时间文本文本文本文本数字备注

长度(字节)50长整型50长整型50长整型50标准长整型货币货币5050505050长整型

必填字段YESYESYESYESYESYESYESNOYESYESYESYESYESYESYESYESYESYESYESYESYESYESNO

主键YESNONONONONONONONONONONONONONONONONONONONONONO⑤退货信息表。反映了退货所包含的相关信息，主要有返回编号，退货单号，商品编号及描述，商品分类编号，价格和数量等相关信息。可以使管理员清楚掌握返回的商品的信息。沈阳大学

课程设计说明书表退货息

No

5字段名RefnoSkuDescripCatcodeSubcatcodePriceDatePostUserCode

字段说明返回编号退货编号商品编号商品描述供应商编号分类编号子类编号单价数量退货日期修改日期用户编号

数据类型自动编号文本文本文本数字数字数字文本数字日期/时间日期/时间数字

长度(字节)长整型505050长整型长整型长整型50长整型长整型

必填字段YESYESYESYESYESYESYESYESYESYESYESNO

主键YESNONONONONONONONONONONO用件开与习录块此模块的功能是检查管理员是否有进入系统的权限包括两个Command件,两个Text控件和两个控件。图4.1登录模界4.2页模此模块是系统服务器端的主要控制界面，通过菜单的选择，可以控制系统的所有功沈阳大学

课程设计说明书

No

6能。主界面的设计步骤：设计主界面控件布局：在主界面的布局中使用了工具栏（态列表（等控件。图象列表的设置：与工具栏连接，把图片信息添加到工具栏。工具栏的设置：给工具栏添加按钮状态栏的设置：显示当前日期、当前时间。状态栏的使用可以美化界面。5添加菜单：菜单的使用是为了更好的给用户提供功能指引。图4.2主页面块面为防止不法用户的随便进入。在用户名下拉列表中选择你的姓名，在用户密码中输入你的密码，按“确定”按钮，如果用户名称和用户密码匹配，就可以进入本系统了。沈阳大学

课程设计说明书

No

7图4.3系统登窗4.3台售块点击“前台销售出一个”商品销售管理菜单可查询卖出的商品的相应信息。ExplicitDimDimfileNameAsStringPrivatecboCategory_Click()DimstrTempstrTemp"'"&CStr(cboCategory.Text)&"'"OnErrorNextrsCategory.MoveFirstOnError="&strTemp,0,If=Then=LoadSubCat'loadsubcategoryEndIfOnError0沈阳大学

课程设计说明书

No

8Err.ClearExitSubDoEventsOnError0Err.ClearEnd图4.4商品销管窗4.4场息块点击商场信息就可以查询商场的信息。ExplicitPrivate=False=FalsecmdEdit.Enabled=TrueFrame2.Enabled=FalseEndPrivatecmdEdit_Click()沈阳大学

课程设计说明书

No

9cmdEdit.Enabled=FalseFrame2.Enabled==True=TruetxtName.SetFocusEndPrivatecmdExit_Click()UnloadMeEnd图4.5商场信窗4.5存理块点击库存管理就可以查询商品入库和商品退货的所有信息击主菜库存管理”“商品入库系统自动弹出“商品入库”列表。单击“商品退货”按钮，弹出商品退货详细信息。ExplicitDimAsDimintSalCountAsDimlngIndexLongPrivatecmdAdd_Click()blnAdd沈阳大学

课程设计说明书blnStatusFalseCleartxtIfListView3.ListItems.count=txtRef.SetFocusEndIfEnd

No

图4.6库存管子面4.6品询块点击商品查询就可以查询商品和供应商的所有信息。ExplicitDimDimlngIndexLongSubLoadCat()DimitmListView1.ListItems.ClearIfrsCategory.RecordCountrsCategory.MoveFirstUntilIfThenSetitm=IfIsNull(rsCategory!catcode)Then=rsCategory.MoveNext沈阳大学

课程设计说明书

No

DoEventsLoopEnd图4.7商品查子面4.7表印块点击报表打印就可以打印所有日期销售和所有库存信息这两张报表。ExplicitPrivatecmdClose_Click()blnSaleReport=UnloadMeEnd图4.8报表打的页4.8户理块用户管理界面可以实现对用户的密码修改、权限分配、删除、添加的功能。Explicit沈阳大学

课程设计说明书

No

DimAsString,strSQlAsStringDimDimAsPrivateblnStatusTrueEndPrivatecmdChange_Click()blnStatusFalsetxtUserFirstName.SetFocus=EndPrivatecmdClose_Click()UnloadMeEnd4.9用户权管窗沈阳大学

课程设计说明书4.9户理块点击客户管理就可以查询客户的相关信息。ExplicitDimDimlngIndexLongPrivateblnStatusTrueIfLoadSupplierEnd

No

图4.10客管窗计会在期末课程设计中，我所选择的是设计一个商品进销存管理系统，这对我来说是一次尝试与创新的过程，也可以说是一个挑战的过程，毕竟以前没有作过，缺少经验。在做系统的过程中，首先查阅有关资料，最后确定设计方案，然后设计并制作，实施过程中我深刻的认识到认真执行管理系统软件标准的重要性我们由于对管理系统软件相关的标准和规范不太了解，缺少行为操作准则，所以在设计中手法比较生硬，主与沈阳大学

课程设计说明书次也没能很好把握住，这些方面通过这次我们都要加强了解。

No

整个系统按照软件开发的一般方法，对其进行了需求分析，系统总体设计，详细设计，并用VisualBasic6.0给出了其实现。另外，通过运用数据库分析与建模的理论对本系统所需要的数据进行了分析使我对使用建立数据库的概念模型并对其转换为逻辑模型，对其进行优化有了深刻的认识。另外，通过使用Visual开发实现本系统使我对使用Visual6.0开发应用程序有了很大的提高其是对使用Vb6.0开发数据库程序有了很深的认识。考献[1]曹华李华志强.Visual程序设计教程北京械工业出版社2002.1：105—245[2]张晓黎、张魏VisualBasic据库应用系统开发与实例北京：人民邮电出版社，232—[3]张晓黎张魏.程序设计实用教（第二版北京人民邮电出版社，：224—[4]张树兵VisualBasic6.0入门与提高[M].北京：清华大学出版社1999—13沈阳大学

课程设计说明书录源序码ExplicitDimrsSalekoAsDimxxyyAsDimAsDimAsString*91DimAsPrivateEndEndPrivatecmdCancelChange_Click()Me'EndPicture1.Visible=Picture2.Visible=TrueEndPrivatecmdChange_Click()Picture1.Visible=TruePicture2.Visible==EndPrivateText1.DataSourcersUserText1.DataField==(Me.Height-/Frame1.Left/DimitmXAsListItemitmXlstMaintenance.ListItems.Add(1,"Cat","品大类",5)

No沈阳大学

课程设计说明书itmXlstMaintenance.ListItems.Add(2,"Sub",商品子类"1,1)itmXlstMaintenance.ListItems.Add(3,"Sup",供应商,4)itmXlstMaintenance.ListItems.Add(4,"商品信息",3,itmXlstMaintenance.ListItems.Add(5,"Ret","界面"2,2)itmXlstInventory.ListItems.Add(1,"Del",商品入"2,2)itmXlstInventory.ListItems.Add(2,"Sup",商退货"3,3)itmXlstInventory.ListItems.Add(3,主界面",4,itmXlstReport.ListItems.Add(1,入库报表"2,2)itmXlstReport.ListItems.Add(2,销售报表"4,4)itmXlstReport.ListItems.Add(3,"Ret",主界面1,1)picMaintenance.Top(Me.HeightpicMaintenance.Height)/picMaintenance.Left=-/2picInventory.Top=(Me.Height-/2picInventory.LeftpicInventory.Width)/=(Me.Height-Picture3.Height)/2=(Me.Width-Picture3.Width)2EndPrivate=100'(Me.Height-/Frame1.Left/picMaintenance.Top(Me.HeightpicMaintenance.Height)/picMaintenance.Left=-/2picInventory.Top=(Me.Height-/2picInventory.LeftpicInventory.Width)/=(Me.Height-Picture3.Height)/2=(Me.Width-Picture3.Width)2CoolBar1.Left=(Me.Width-CoolBar1.Width)/2EndPrivateLoadInventory

No沈阳大学

课程设计说明书

No

EndPrivatelstInventory_MouseMove(ButtonAsShiftAsInteger,XYAsSingle)xx=Xyy=YEndPrivatelstMaintenance_Click()EndPrivatelstReport_Click()LoadReportEndPrivateAsInteger,AsInteger,XAsYSingle)xx=Xyy=YEndPrivateTimer1_Timer()intCount=intCount+1IfintCount=DoEventsStatusBar1.Panels(1).Text=状:请待数据打开进.intCount==TrueintCount==0StatusBar1.Panels(1).Text=状:请登录"EndIfEndPrivateToolbar1_ButtonClick(ByValAsMSComctlLib.Button)Select沈阳大学

课程设计说明书LoadInvent11:LoadUser13:15:EndEndPrivatetxtUserID.Text=""txtFullName.Text=""txtPassword.Text=""CoolBar1.Visible=EndPrivateAsIfKeyAsciivbKeyEscapeResumeNextEndEndIfKeyAsciiEndPrivateDimblnFoundAsBooleanIfblnLogin=ThentxtUserID.Text==CStr(txtUserID.Text)

No沈阳大学

课程设计说明书

No

FindUserIftxtFullName.TextrsUser!UserFirstname&""&&"."&="UserIDnotfound!",vbCritical+vbOKOnly,"InvalidID"txtFullName.Text=""ExitSubEndIfEndIfEndSubOnErrorNextDimPasswordDimDimUserExpireDimIDAsStringDimAs=WithfrmMainIf=Then'rsUser!UserPasswordThenPasswordUserTaskLevel=1)=IfDEFAULT_PASSWORDThen沈阳大学

课程设计说明书

No

"的密码是默认密码，必须被修改！vbApplicationModal,needsExitSub=0EndIfIf=1Then=TrueCoolBar1.Visible=True=0==CoolBar1.Visible=True=0BeepBeepBeepfrmMain.Toolbar1.Buttons.Item(3).Enabled=frmMain.Toolbar1.Buttons.Item(5).Enabled=frmMain.Toolbar1.Buttons.Item(7).Enabled=frmMain.Toolbar1.Buttons.Item(9).Enabled=frmMain.Toolbar1.Buttons.Item(11).Enabled=frmMain.Toolbar1.Buttons.Item(13).Enabled=沈阳大学

课程设计说明书CoolBar1.Visible=True=0'NUM_TRIES=0EndIf

No

"密不正确",vbCritical+vbOKOnly,"InvalidPassword"txtPassword.SetFocusEndIfEndWithEndFindUser()DimstrTempstrTemp"'"&strSearch&"'"OnErrorNextOnErrorrsUser.Find"UserId="&strTemp,0,adSearchForwardIfrsUser!UserIDFindUser'foundOnError0Err.ClearExit'txtUserID.SetFocus'SendKeysIDnot=""FindUserfoundDoEventsOnError0沈阳大学

课程设计说明书

No

Err.ClearEndPrivatetxtNewPass1_Change()DimAsStringDimcountIfcount1>=countcmdOkChange.EnabledEndIfEnd'PrivateSubtxtNewPass_Validate(KeepFocusAsDimAsIntegerDimSearchStrAsStringDimMyStrAsStringcountIf==True"Newsameasold",vbCritical+vbOKOnly,ExitSubEndIfIf<MINIMUM_PASSWORD_LENGTH=True"Yourpasswordmustat8vbApplicationModal,"NewPassword"ExitSubEndIf沈阳大学

课程设计说明书Dimmidstr,midpassstr,newmidstrAsmidstr=Mid(midstr,MyStrInStr(1,SearchStr,vbTextCompare)If<>0Then

No

=Truepasswordcannotcontainsimiliar"NewExitSubEndIfEndPrivateBoolean)If<>UserPassword=True"Yourcurrrentisinvalid",+vbOKOnly,"Current"{Home}+{End}"EndIfEndPrivateAsKeyAsciiEndPrivateKeyAsciiEndPrivatetxtCurrentPass_KeyPress(KeyAsciiKeyAscii沈阳大学

课程设计说明书

No

EndPrivateDimblnFoundPassAsDimAsString'IftomanytriesweridofIf="户名不存在"vbCritical+vbOKOnly,"InvalidID"ExitSubEndIfIfLen(Trim(txtPassword.Text))=0Then"码不正确"vbCritical+vbOKOnly,txtPassword.SetFocusExitSubEndIf=Tries1Ifyouhavegotta"输入三次密码错误,系退出!.",vbApplicationModal,"PointOfSaleEndEndIf=CStr(txtUserID.Text)blnFoundPassFindUserIf=True=FalsePassCheckUserID=txtUserID.TextStatusBar1.Panels(1).Text="当用户为："&txtFullName.TextEndIfEndPrivatecmdOkChange_Click()沈阳大学

课程设计说明书DimblnFoundPassAsOnErrorNext=blnFoundPassFindUserIf=Then=FalsePassCheck'UserID='StatusBar1.Panels(1).Text="当前用户为："&txtFullName.Text"户名不存在!"txtUser.SetFocusExitSubEndIfIf"始密码错误"ExitSubEndIfIf=txtNewPass1ThenrsUser.Update"UserPassword",If=1ThenfrmMain.Toolbar1.Buttons.Item(11).Enabled=TrueCoolBar1.Visible=True=0