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

《VB课程设计商品进销存管理系统》由会员分享，可在线阅读，更多相关《VB课程设计商品进销存管理系统（28页珍藏版）》请在装配图网上搜索。

1、 课程设计说明书 No 28商品进销存管理系统1.课程设计的目的本系统的主要目标就是进一步培养我们综合应用 Visual Basic 进行程序设计的能力。通过完成一个小型的管理系统,我们能达到具备设计功能较复杂的应用程序的能力。学会利用计算机解决实际问题的初步能力,具体掌握的基本能力有Visual Basic 各种语句的综合使用能力、有关控件的使用能力、设计数据库管理系统的综合能力，为以后的实际应用奠定基础。本系统是商品进销存管理系统，它可以很好的支持销售公司的事物处理，减轻事务处理人员的劳动强度，提高工作效率。该系统可以实现销售前台管理，市场信息管理，库存管理，商品管理，打印报表管理以及系统

2、用户及其权限的权利功能。本系统是采用Visual Basic6.0高级语言进行程序编制，以Access数据库为程序数据库。2.系统总体设计2.1设计思路本系统对企业中常见的采购、库存、销售等企业活动及相关供应商和客户等基本信息进行管理。2.2设计方法1、前台销售管理。 在这个前台销售管理系统中，包括了商品浏览，商品查询以及销售报表这几个模块，商品浏览主要是对该商场内的商品进行浏览，如可以通过前台管理的浏览窗体的按钮对商品信息进行浏览，商品查询功能模块主要是对该商场库存中存在的商品进行查询，查看都有哪些商品以及具体的某类商品的信息资料。销售报表模块主要是对前台销售的商品进行日常统计，以便于商场的

3、管理。2、商场信息管理。在商场信息管理系统中，主要是对商场的信息进行编辑和修改等功能操作，如修改原来商场的名称，地址以及联系电话，联系人。3、库存管理。在这个管理系统中主要包括商品入库和商品出库两个功能模块。商品入库模块即对系统中的库存商品进行管理，如添加新的入库商品，修改原来库存中的商品，甚至删除库存中的商品。商品退货可以理解为商品出库管理，该功能模块与商品入库功能模块相似，可以对退货的商品进行管理。4、商品管理。在这个商品管理系统中，包括商品大类管理，商品小类管理，供应商管理以及商品信息管理4个主要的管理功能模块。商品大类管理模块对商品的大类进行管理，如对商品大类进行添加，删除，和修改等操

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

5、户管理 客户管理图1 系统功能图2.3数据库设计在一个商品进销存管理系统中，数据库的地位是非常重要的，是一个系统正常运行的基础。本系统的数据库是采用Microsoft公司的Access 2000设计的。在数据库的设计过程中，首先是收集、分析需求；再从需求抽象出一般的实体、关系和他们的属性；再将这些实体、关系和属性按照一定的规则转化为二元表结构。本系统中共有五个数据表：商品分类表。用于给商品分类，主要包括商品编号和名称。表1 商品分类表字段名字段说明数据类型长度(字节)必填字段主键Catcode分类编号自动编号长整型YESYESCategory分类名称文本26YESNO客户信息表。记录了客户的基

6、本资料，主要包括客户编号，供应商地址，客户地址和电话号码等。表2 客户信息表字段名字段说明数据类型长度(字节)必填字段主键Supcode客户编号自动编号长整型YESYESSupplier供应商地址文本50YESNOAddress客户地址文本50YESNOTelno电话号码文本50YESNOContact联系方式备注YESNO商品入库表。主要记录有关商品入库的资料，包括入库编号，商品编号，分类编号，供应商编号，描述信息，单价，数量，入库日期，修改日期，用户编号。可以方便查询商场商品的入库的有管信息。表3 商品入库表字段名字段说明数据类型长度（字节）必填字段主键DelId入库编号自动编号长整型YE

7、SYESRefno退货单号文本50YESNOSku商品编号文本50YESNOCatcode分类编号数字长整型YESNOSubcatcode子类编号数字长整型YESNOSupcode供应商编号数字长整型YESNODescrip描述信息文本50YESNOPrice单价货币标准YESNOQty数量数字长整型YESNODateEntry入库日期日期/时间YESNODatePost修改日期日期/时间YESNOUsercode用户编号数字长整型YESNO商品信息表。记录商品的有关信息，包括商品编号，供应商编号和名称，分类编号和名称，子类编号和名称，商品有关说明，入库数量，进货价和实际售出价，进货日期和售出

8、日期等有关信息，可以方便查询有关商品的各种信息，有利于更好的管理商品。表4 商品信息表字段名字段说明数据类型长度(字节)必填字段主键Sku商品编号文本50YESYESSupCode供应商编号数字长整型YESNOSupplier供应商名称文本50YESNOCatCode分类编号数字长整型YESNOCategory分类名称文本50YESNOSubCatcode子类编号数字长整型YESNOSubCategory子类名称文本50YESNODescrip商品说明备注NONOPrice建议价货币标准YESNOStack入库数量数字长整型YESNOpicture图片字节数组OLE对象YESNOimPrice

9、进货价货币货币YESNOrealPrice实际售出价货币货币YESNOpicture1图片字节数组OLE对象YESNObarcode商品条码文本50YESNOimDate进货日期日期/时间YESNOoutDate售出日期日期/时间YESNOGold含金量文本50YESNOBillNum发票号码文本50YESNOcerNum证书编号文本50YESNOBuyer客户名称文本50YESNOifSale是否已经销售数字长整型YESNOStock是否有库存备注NONO退货信息表。反映了退货所包含的相关信息，主要有返回编号，退货单号，商品编号及描述，商品分类编号，价格和数量等相关信息。可以使管理员清楚掌握

10、返回的商品的信息。表5 退货信息表字段名字段说明数据类型长度(字节)必填字段主键Return返回编号自动编号长整型YESYESRefno退货编号文本50YESNOSku商品编号文本50YESNODescrip商品描述文本50YESNOSupCode供应商编号数字长整型YESNOCatcode分类编号数字长整型YESNOSubcatcode子类编号数字长整型YESNOPrice单价文本50YESNOQty数量数字长整型YESNODateEntry退货日期日期/时间YESNODatePost修改日期日期/时间YESNOUserCode用户编号数字长整型NONO4.应用软件的开发与实习4.1.登录模

11、块此模块的功能是检查管理员是否有进入系统的权限。包括两个Command控件,两个Text控件和两个Lable控件。图4.1登录模块界面4.2主页面模块此模块是系统服务器端的主要控制界面，通过菜单的选择，可以控制系统的所有功能。 主界面的设计步骤：1.设计主界面控件布局：在主界面的布局中使用了工具栏（ToolBar）、状态栏（StateBar）、图象列表（ImageList）等控件。2.图象列表的设置：与工具栏连接，把图片信息添加到工具栏。3.工具栏的设置： 给工具栏添加按钮4.状态栏的设置：显示当前日期、当前时间。状态栏的使用可以美化界面。5添加菜单：菜单的使用是为了更好的给用户提供功能指引。

12、图4.2主页面模块界面为防止不法用户的随便进入。在用户名下拉列表中选择你的姓名，在用户密码中输入你的密码，按“确定”按钮，如果用户名称和用户密码匹配，就可以进入本系统了。图4.3系统登录窗口4.3前台销售模块点击“前台销售”，弹出一个”商品销售管理菜单”，便可查询卖出的商品的相应信息。Option ExplicitDim blnEdit As BooleanDim fileName As StringPrivate Sub cboCategory_Click() Dim strTemp strTemp = & CStr(cboCategory.Text) & On Error Resume N

13、ext rsCategory.MoveFirst On Error GoTo ErrorNotOnFile:rsCategory.Find Category = & strTemp, 0, adSearchForwardIf rsCategory!Category = CStr(cboCategory.Text) Then lblCatcode.Caption = rsCategory!catcode LoadSubCat load subcategory End If On Error GoTo 0 Err.Clear Exit SubErrorNotOnFile: DoEvents On

14、Error GoTo 0Err.ClearEnd Sub图4.4商品销售管理窗口4.4商场信息模块点击商场信息就可以查询商场的信息。Option ExplicitPrivate Sub cmdCancel_Click() cmdSave.Enabled = False cmdCancel.Enabled = False cmdEdit.Enabled = True Frame2.Enabled = False LoadStoreEnd SubPrivate Sub cmdEdit_Click() cmdEdit.Enabled = False Frame2.Enabled = True cmd

15、Save.Enabled = True cmdCancel.Enabled = True txtName.SetFocusEnd SubPrivate Sub cmdExit_Click() Unload MeEnd Sub图4.5商场信息窗口4.5库存管理模块点击库存管理就可以查询商品入库和商品退货的所有信息。点击主菜单“库存管理”“商品入库”，系统自动弹出“商品入库”列表。单击“商品退货”按钮，弹出商品退货详细信息。Option ExplicitDim blnAdd As BooleanDim intSalCount As IntegerDim lngIndex As LongPrivat

16、e Sub cmdAdd_Click() blnAdd = True blnStatus False Cleartxt If ListView3.ListItems.count = 0 Then txtRef.SetFocus Else txtSku.SetFocus End IfEnd Sub图4.6库存管理子页面4.6商品查询模块点击商品查询就可以查询商品和供应商的所有信息。Option ExplicitDim blnEdit As BooleanDim lngIndex As LongPublic Sub LoadCat() Dim itm As ListItem ListView1.L

17、istItems.Clear If Not rsCategory.RecordCount = count Then cmdOkChange.Enabled = True End IfEnd SubPrivate Sub txtNewPass_Validate(KeepFocus As Boolean) Dim count As Integer Dim SearchStr As String Dim MyStr As String count = Len(txtNewPass.Text) If txtNewPass = txtCurrentPass.Text Then SendKeys home

18、+end KeepFocus = True MsgBox New password cant be the same as old, vbCritical + vbOKOnly, New Password SendKeys home+end Exit Sub End If If count MINIMUM_PASSWORD_LENGTH Then SendKeys home+end KeepFocus = True MsgBox Your password must be at least 8 characters., vbApplicationModal, New Password Send

19、Keys home+end Exit Sub End If Dim midstr, midpassstr, newmidstr As String midstr = txtCurrentPass.Text midpassstr = midstr newmidstr = Mid(midstr, 3, 4) SearchStr = txtNewPass.Text MyStr = InStr(1, SearchStr, newmidstr, vbTextCompare) If MyStr 0 Then KeepFocus = True MsgBox The password can not cont

20、ain similiar words from old password., vbCritical, New Password. SendKeys home+end Exit Sub End IfEnd SubPrivate Sub txtCurrentPass_Validate(KeepFocus As Boolean) If txtCurrentPass UserPassword Then KeepFocus = True MsgBox Your currrent password is invalid, vbCritical + vbOKOnly, Current Password Se

21、ndKeys Home+End txtCurrentPass.SetFocus End IfEnd SubPrivate Sub txtFullName_KeyPress(KeyAscii As Integer) udp_Rtrn KeyAsciiEnd SubPrivate Sub txtNewPass_KeyPress(KeyAscii As Integer) udp_Rtrn KeyAsciiEnd SubPrivate Sub txtCurrentPass_KeyPress(KeyAscii As Integer) udp_Rtrn KeyAsciiEnd SubPrivate Sub

22、 cmdOk_Click() Dim blnFoundPass As Boolean Dim task As String If to many tries we want to get rid of this user. If Len(Trim(txtUserID.Text) = 0 Then MsgBox 用户名不存在, vbCritical + vbOKOnly, Invalid User ID Exit Sub End If If Len(Trim(txtPassword.Text) = 0 Then MsgBox 密码不正确, vbCritical + vbOKOnly, Login

23、 SendKeys home+end txtPassword.SetFocus Exit Sub End If Tries = Tries + 1 If Tries = NUM_TRIES Then nope, otta hear, you have gotta go. MsgBox 你输入三次密码错误, 系统退出!., vbApplicationModal, Point Of Sale System End End If strSearch = CStr(txtUserID.Text) blnFoundPass = FindUser If blnFoundPass = True Then P

24、icture2.Visible = False Call PassCheck UserID = txtUserID.Text StatusBar1.Panels(1).Text = 当前用户为： & txtFullName.Text End IfEnd SubPrivate Sub cmdOkChange_Click() Dim blnFoundPass As BooleanOn Error Resume Next strSearch = CStr(txtUser.Text) blnFoundPass = FindUser If blnFoundPass = False Then Pictur

25、e2.Visible = False Call PassCheck UserID = txtUserID.Text StatusBar1.Panels(1).Text = 当前用户为： & txtFullName.Text Else MsgBox 用户名不存在! txtUser.SetFocus Exit Sub End If If txtCurrentPass.Text Text1.Text Then MsgBox 原始密码错误！ txtCurrentPass.SetFocus Exit Sub End If If txtNewPass = txtNewPass1 Then rsUser.U

26、pdate UserPassword, txtNewPass.Text If UserTaskLevel = 1 Then frmMain.Toolbar1.Buttons.Item(11).Enabled = True CoolBar1.Visible = True cmdOk.Default = False blnLogin = True Tries = 0 ElseIf UserTaskLevel = 2 Then frmMain.Toolbar1.Buttons.Item(11).Enabled = False CoolBar1.Visible = True cmdOk.Default

27、 = False blnLogin = True Tries = 0 Else Picture1.Visible = False Beep Beep Beep frmMain.Toolbar1.Buttons.Item(3).Enabled = False frmMain.Toolbar1.Buttons.Item(5).Enabled = False frmMain.Toolbar1.Buttons.Item(7).Enabled = False frmMain.Toolbar1.Buttons.Item(9).Enabled = False frmMain.Toolbar1.Buttons.Item(11).Enabled = False frmMain.Toolbar1.Buttons.Item(13).Enabled = False CoolBar1.Visible = True frmSell.Show 1 CoolBar1.Visible = Fal