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

商品进销存管理系统1.课程设计的目的本系统的主要目标就是进一步培养我们综合应用 Visual Basic 进行程序设计的能力。通过完成一个小型的管理系统,我们能达到具备设计功能较复杂的应用程序的能力。学会利用计算机解决实际问题的初步能力,具体掌握的基本能力有Visual Basic 各种语句的综合使用能力、有关控件的使用能力、设计数据库管理系统的综合能力，为以后的实际应用奠定基础。本系统是商品进销存管理系统，它可以很好的支持销售公司的事物处理，减轻事务处理人员的劳动强度，提高工作效率。该系统可以实现销售前台管理，市场信息管理，库存管理，商品管理，打印报表管理以及系统用户及其权限的权利功能。本系统是采用Visual Basic6.0高级语言进行程序编制，以Access数据库为程序数据库。2.系统总体设计2.1设计思路本系统对企业中常见的采购、库存、销售等企业活动及相关供应商和客户等基本信息进行管理。2.2设计方法1、前台销售管理。 在这个前台销售管理系统中，包括了商品浏览，商品查询以及销售报表这几个模块，商品浏览主要是对该商场内的商品进行浏览，如可以通过前台管理的浏览窗体的按钮对商品信息进行浏览，商品查询功能模块主要是对该商场库存中存在的商品进行查询，查看都有哪些商品以及具体的某类商品的信息资料。销售报表模块主要是对前台销售的商品进行日常统计，以便于商场的管理。2、商场信息管理。在商场信息管理系统中，主要是对商场的信息进行编辑和修改等功能操作，如修改原来商场的名称，地址以及联系电话，联系人。3、库存管理。在这个管理系统中主要包括商品入库和商品出库两个功能模块。商品入库模块即对系统中的库存商品进行管理，如添加新的入库商品，修改原来库存中的商品，甚至删除库存中的商品。商品退货可以理解为商品出库管理，该功能模块与商品入库功能模块相似，可以对退货的商品进行管理。4、商品管理。在这个商品管理系统中，包括商品大类管理，商品小类管理，供应商管理以及商品信息管理4个主要的管理功能模块。商品大类管理模块对商品的大类进行管理，如对商品大类进行添加，删除，和修改等操作。商品小类管理同商品大类管理相似，用于对商品的小类进行添加，删除和修改操作。供应商管理主要对提供给商场商品的货物提供商信息进行管理，商品信息管理对商场中的具体的商品信息进行管理。5报表打印。在这个管理系统中，包括入库报表和销售报表两个功能模块。本管理系统用来实现对各种报表进行统一集中的管理，该系统数据由其他几个管理系统提供，不必手工输入，从而提高了工作效率。6. 用户管理。用户管理功能模块用于对系统中的用户进行管理，如添加新用户，编辑用户信息，设置用户权限。7. 客户管理。客户管理功能模块对该商场的客户进行统一管理。商品进销存管理系统前台销售管理商场信息管理 库存管理 商品管理 报表管理 用户管理 客户管理图1 系统功能图2.3数据库设计在一个商品进销存管理系统中，数据库的地位是非常重要的，是一个系统正常运行的基础。本系统的数据库是采用Microsoft公司的Access 2000设计的。在数据库的设计过程中，首先是收集、分析需求；再从需求抽象出一般的实体、关系和他们的属性；再将这些实体、关系和属性按照一定的规则转化为二元表结构。本系统中共有五个数据表：商品分类表。用于给商品分类，主要包括商品编号和名称。表1 商品分类表字段名字段说明数据类型长度(字节)必填字段主键Catcode分类编号自动编号长整型YESYESCategory分类名称文本26YESNO客户信息表。记录了客户的基本资料，主要包括客户编号，供应商地址，客户地址和电话号码等。表2 客户信息表字段名字段说明数据类型长度(字节)必填字段主键Supcode客户编号自动编号长整型YESYESSupplier供应商地址文本50YESNOAddress客户地址文本50YESNOTelno电话号码文本50YESNOContact联系方式备注YESNO商品入库表。主要记录有关商品入库的资料，包括入库编号，商品编号，分类编号，供应商编号，描述信息，单价，数量，入库日期，修改日期，用户编号。可以方便查询商场商品的入库的有管信息。表3 商品入库表字段名字段说明数据类型长度（字节）必填字段主键DelId入库编号自动编号长整型YESYESRefno退货单号文本50YESNOSku商品编号文本50YESNOCatcode分类编号数字长整型YESNOSubcatcode子类编号数字长整型YESNOSupcode供应商编号数字长整型YESNODescrip描述信息文本50YESNOPrice单价货币标准YESNOQty数量数字长整型YESNODateEntry入库日期日期/时间YESNODatePost修改日期日期/时间YESNOUsercode用户编号数字长整型YESNO商品信息表。记录商品的有关信息，包括商品编号，供应商编号和名称，分类编号和名称，子类编号和名称，商品有关说明，入库数量，进货价和实际售出价，进货日期和售出日期等有关信息，可以方便查询有关商品的各种信息，有利于更好的管理商品。表4 商品信息表字段名字段说明数据类型长度(字节)必填字段主键Sku商品编号文本50YESYESSupCode供应商编号数字长整型YESNOSupplier供应商名称文本50YESNOCatCode分类编号数字长整型YESNOCategory分类名称文本50YESNOSubCatcode子类编号数字长整型YESNOSubCategory子类名称文本50YESNODescrip商品说明备注NONOPrice建议价货币标准YESNOStack入库数量数字长整型YESNOpicture图片字节数组OLE对象YESNOimPrice进货价货币货币YESNOrealPrice实际售出价货币货币YESNOpicture1图片字节数组OLE对象YESNObarcode商品条码文本50YESNOimDate进货日期日期/时间YESNOoutDate售出日期日期/时间YESNOGold含金量文本50YESNOBillNum发票号码文本50YESNOcerNum证书编号文本50YESNOBuyer客户名称文本50YESNOifSale是否已经销售数字长整型YESNOStock是否有库存备注NONO退货信息表。反映了退货所包含的相关信息，主要有返回编号，退货单号，商品编号及描述，商品分类编号，价格和数量等相关信息。可以使管理员清楚掌握返回的商品的信息。表5 退货信息表字段名字段说明数据类型长度(字节)必填字段主键Return返回编号自动编号长整型YESYESRefno退货编号文本50YESNOSku商品编号文本50YESNODescrip商品描述文本50YESNOSupCode供应商编号数字长整型YESNOCatcode分类编号数字长整型YESNOSubcatcode子类编号数字长整型YESNOPrice单价文本50YESNOQty数量数字长整型YESNODateEntry退货日期日期/时间YESNODatePost修改日期日期/时间YESNOUserCode用户编号数字长整型NONO4.应用软件的开发与实习4.1.登录模块此模块的功能是检查管理员是否有进入系统的权限。包括两个Command控件,两个Text控件和两个Lable控件。图4.1登录模块界面4.2主页面模块此模块是系统服务器端的主要控制界面，通过菜单的选择，可以控制系统的所有功能。 主界面的设计步骤：1.设计主界面控件布局：在主界面的布局中使用了工具栏（ToolBar）、状态栏（StateBar）、图象列表（ImageList）等控件。2.图象列表的设置：与工具栏连接，把图片信息添加到工具栏。3.工具栏的设置： 给工具栏添加按钮4.状态栏的设置：显示当前日期、当前时间。状态栏的使用可以美化界面。5添加菜单：菜单的使用是为了更好的给用户提供功能指引。图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 Next 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 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 cmdSave.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 LongPrivate 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.ListItems.Clear If Not rsCategory.RecordCount < 1 Then rsCategory.MoveFirst Do Until rsCategory.EOF If Not IsNull(rsCategory!catcode) Then Set itm = ListView1.ListItems.Add(, , rsCategory!catcode) If Not IsNull(rsCategory!catcode) Then itm.SubItems(1) = rsCategory!Category rsCategory.MoveNext DoEvents LoopEnd Sub图4.7商品查询子页面4.7报表打印模块点击报表打印就可以打印所有日期销售和所有库存信息这两张报表。Option ExplicitPrivate Sub cmdClose_Click() blnSaleReport = False blnDelReport = False Unload MeEnd Sub图4.8报表打印的子页面4.8用户管理模块用户管理界面可以实现对用户的密码修改、权限分配、删除、添加的功能。Option ExplicitDim newdate As String, strSQl As StringDim blnEdit As BooleanDim blnAdd As BooleanPrivate Sub cmdCancel_Click() ClearText blnStatus TrueEnd Sub Private Sub cmdChange_Click()blnStatus FalsetxtUserFirstName.SetFocus blnEdit = TrueEnd SubPrivate Sub cmdClose_Click() Unload MeEnd Sub4.9用户权限管理窗口4.9客户管理模块点击客户管理就可以查询客户的相关信息。Option ExplicitDim blnEdit As BooleanDim lngIndex As LongPrivate Sub cmdCancel_Click() ClearText blnStatus TrueIf Not rsCategory.EOF Then rsCategory.MoveNextLoadSupplierEnd Sub图4.10客户管理窗口5.设计体会在期末课程设计中，我所选择的是设计一个商品进销存管理系统，这对我来说是一次尝试与创新的过程，也可以说是一个挑战的过程，毕竟以前没有作过，缺少经验。 在做系统的过程中，首先查阅有关资料，最后确定设计方案，然后设计并制作，实施过程中我深刻的认识到认真执行管理系统软件标准的重要性，我们由于对管理系统软件相关的标准和规范不太了解，缺少行为操作准则，所以在设计中手法比较生硬，主与次也没能很好把握住，这些方面通过这次我们都要加强了解。整个系统按照软件开发的一般方法，对其进行了需求分析，系统总体设计，详细设计，并用Visual Basic 6.0给出了其实现。另外，通过运用数据库分析与建模的理论对本系统所需要的数据进行了分析，使我对使用E/R图建立数据库的概念模型，并对其转换为逻辑模型，对其进行优化有了深刻的认识。另外，通过使用Visual basic 6.0来开发实现本系统，使我对使用Visual basic 6.0开发Windows应用程序有了很大的提高，尤其是对使用Vb6.0 开发数据库程序有了很深的认识。6.参考文献1曹华、邱李华、郭志强.Visual Basic程序设计教程.北京：机械工业出版社，2002.1： 1052452张晓黎、张魏.Visual Basic数据库应用系统开发与实例.北京：人民邮电出版社，2003.8: 2323473张晓黎、张魏.Visual Basic程序设计实用教程（第二版）.北京：人民邮电出版社，2003.8：2243414 张树兵. Visual Basic6.0 入门与提高M. 北京：清华大学出版社，1999：98137.附录源程序代码Option ExplicitDim rsSaleko As ADODB.RecordsetDim xx As Double, yy As DoubleDim intCount As IntegerDim strLine As String * 91Dim Tries As IntegerPrivate Sub cmdCancel_Click() EndEnd SubPrivate Sub cmdCancelChange_Click() 'Unload Me 'End Picture1.Visible = False Picture2.Visible = TrueEnd SubPrivate Sub cmdChange_Click() Picture1.Visible = True Picture2.Visible = False txtUser.Text = txtUserID.TextEnd SubPrivate Sub Form_Load() Set Text1.DataSource = rsUser Text1.DataField = "UserPassword" Frame1.Top = (Me.Height - Frame1.Height) / 3 Frame1.Left = (Me.Width - Frame1.Width) / 2 Timer1.Enabled = True Dim itmX As ListItem Set itmX = lstMaintenance.ListItems.Add(1, "Cat", "商品大类", 5, 5) Set itmX = lstMaintenance.ListItems.Add(2, "Sub", "商品子类", 1, 1) Set itmX = lstMaintenance.ListItems.Add(3, "Sup", "供应商", 4, 4) Set itmX = lstMaintenance.ListItems.Add(4, "Itm", "商品信息", 3, 3) Set itmX = lstMaintenance.ListItems.Add(5, "Ret", "主界面", 2, 2) Set itmX = lstInventory.ListItems.Add(1, "Del", "商品入库", 2, 2) Set itmX = lstInventory.ListItems.Add(2, "Sup", "商品退货", 3, 3) Set itmX = lstInventory.ListItems.Add(3, "Ret", "主界面", 4, 4) Set itmX = lstReport.ListItems.Add(1, "Re1", "入库报表", 2, 2) Set itmX = lstReport.ListItems.Add(2, "Re2", "销售报表", 4, 4) Set itmX = lstReport.ListItems.Add(3, "Ret", "主界面", 1, 1) picMaintenance.Top = (Me.Height - picMaintenance.Height) / 2 picMaintenance.Left = (Me.Width - picMaintenance.Width) / 2 picInventory.Top = (Me.Height - picInventory.Height) / 2 picInventory.Left = (Me.Width - picInventory.Width) / 2 Picture3.Top = (Me.Height - Picture3.Height) / 2 Picture3.Left = (Me.Width - Picture3.Width) / 2End SubPrivate Sub Form_Resize() Frame1.Top = 100 '(Me.Height - Frame1.Height) / 5 Frame1.Left = (Me.Width - Frame1.Width) / 2 picMaintenance.Top = (Me.Height - picMaintenance.Height) / 2 picMaintenance.Left = (Me.Width - picMaintenance.Width) / 2 picInventory.Top = (Me.Height - picInventory.Height) / 2 picInventory.Left = (Me.Width - picInventory.Width) / 2 Picture3.Top = (Me.Height - Picture3.Height) / 2 Picture3.Left = (Me.Width - Picture3.Width) / 2 CoolBar1.Left = (Me.Width - CoolBar1.Width) / 2End SubPrivate Sub lstInventory_Click() LoadInventoryEnd SubPrivate Sub lstInventory_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) xx = X yy = YEnd SubPrivate Sub lstMaintenance_Click() LoadMaintenanceEnd SubPrivate Sub lstReport_Click() LoadReportEnd SubPrivate Sub lstReport_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) xx = X yy = YEnd SubPrivate Sub Timer1_Timer() intCount = intCount + 1 If intCount = 1 Then DoEvents StatusBar1.Panels(1).Text = "状态: 请等待数据打开进程." ElseIf intCount = 2 Then Picture1.Enabled = True intCount = 0 Timer1.Enabled = False Me.MousePointer = 0 StatusBar1.Panels(1).Text = "状态 :请登录" End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1: LoadSale Case 3: LoadStore Case 5: LoadInvent Case 7: LoadMaint Case 9: LoadRep Case 11: LoadUser Case 13: loadCus Case 15: End End SelectEnd SubPrivate Sub txtUserID_DblClick() txtUserID.Text = "" txtFullName.Text = "" txtPassword.Text = "" CoolBar1.Visible = False cmdOk.Default = False blnLogin = FalseEnd SubPrivate Sub txtUserID_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyEscape Then 'On Error Resume Next End End If udp_Rtrn KeyAsciiEnd SubPrivate Sub txtUserID_LostFocus() Dim blnFound As Boolean If blnLogin = False Then txtUserID.Text = udfUpperName(txtUserID.Text) strSearch = CStr(txtUserID.Text) blnFound = FindUser If blnFound = True Then txtFullName.Text = rsUser!UserFirstname & " " & rsUser!UserMiddleInitial & ". " & rsUser!UserLastname lblUsercode.Caption = rsUser!usercode cmdOk.Default = True Else MsgBox "User ID not found!", vbCritical + vbOKOnly, "Invalid ID" txtUserID.SetFocus SendKeys "home+end" txtFullName.Text = "" Exit Sub End If End IfEnd SubSub PassCheck()On Error Resume Next Dim Password As String Dim UserTask As String Dim UserExpire As String Dim ID As String Dim newdate As Date Password = Text1.Text 'rsUser!UserPassword With frmMain If .txtPassword.Text = Password Then 'rsUser!UserPassword Then UserPassword = Password UserTaskLevel = Left(rsUser!UserTaskLevel, 1) UserExpireDate = rsUser!UserExpireDate If UserPassword = DEFAULT_PASSWORD Then .Picture1.Visible = True MsgBox "你的密码是默认密码，必须被修改！.", vbApplicationModal, "Password needs changed" .Picture2.Visible = False txtCurrentPass.SetFocus blnLogin = True Exit Sub Tries = 0 End If If UserTaskLevel = 1 Then .Toolbar1.Buttons.Item(11).Enabled = True CoolBar1.Visible = True cmdOk.Default = False blnLogin = True Tries = 0 ElseIf UserTaskLevel = 2 Then .Toolbar1.Buttons.Item(11).Enabled = False CoolBar1.Visible = True cmdOk.Default = False blnLogin = True Tries = 0 Else 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 Tries = 0 ' NUM_TRIES = 0 End If Else MsgBox "密码不正确！", vbCritical + vbOKOnly, "Invalid Password" SendKeys "home+end" txtPassword.SetFocus End If End WithEnd SubPublic Function FindUser() As Boolean Dim strTemp strTemp = "'" & strSearch & "'" On Error Resume Next rsUser.MoveFirst On Error GoTo ErrorNotOnFile: rsUser.Find "UserId = " & strTemp, 0, adSearchForward If rsUser!UserID = strSearch Then FindUser = True 'found On Error GoTo 0 Err.Clear Exit FunctionErrorNotOnFile: 'txtUserID.SetFocus 'SendKeys "home+end" 'Ms