VB课设-销售管理系统(共21页)

《VB课设-销售管理系统(共21页)》由会员分享，可在线阅读，更多相关《VB课设-销售管理系统(共21页)（21页珍藏版）》请在装配图网上搜索。

1、精选优质文档-倾情为你奉上摘 要近年来，计算机技术日趋成熟，数据库技术不断发展，管理信息系统的应用已延伸到社会的各个领域。结合管理信息系统的开发方法及步骤，以此为理论基础，开发出一个小型的信息管理系统化妆品销售系统。 销售管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,决定使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能

2、化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键词：数据库；Visual Basic6.0；化妆品销售管理 目 录专心-专注-专业第一章、绪论现代科学的发展，使计算机进入了几乎一切领域。从科学研究到工农业生产，从企业生产管理到家庭生活，各行各业都广泛地使用着计算机。当今社会的数据信息管理离不开计算机技术的支持。如何实现对数据信息快捷、有效、实用的管理，是软件开发业追求的目标。 随着改革开放给中国经济带来高速发展的同时,大批的中小企业遇到了前所未有的挑战跟机遇。为了利润最大化,为提高工作效率,为减少劳动冗余,人们将业务与计

3、算机结合,有了信息管理系统的诞生。随着计算机信息处理的加快，人们越来越认同这种管理系统所带来的便捷与高效。小型化妆品销售公司及店铺都在积极尝试信息化带来的丰硕成果，不断更新观念，摈弃传统观念的束缚，尝试着采用更方便快捷的信息管理系统。化妆品销售管理系统与传统手工记录的方式相比，消除了重复劳动带来的冗余工作量，效率更加高效，灵活的工作方式给从业着提供了更多的选择空间，规范考核绩效，评估方法等实施规范。同时，避免了手工操作带来的烦琐，效率低下的缺点。我前台采用visul basic软件,后台数据库采用access关系型数据库管理系统，对所需数据进行保存与处理。本系统要实现的功能有基础数据设置，入库

4、管理，出库管理，库存管理，营业统计，数据管理等功能模块。其中基础数据设置负责对化妆品基本信息的录入；入库管理负责对采购化妆品的登记与查询，采购退货登记与查询；出库管理负责销售化妆品的登记与查询，销售退货登记与查询；库存管理负责库存查询，库存预警，库存损益；营业统计负责营业统计，销售化妆品排行榜，每日结帐，历史帐单查询；数据管理负责数据库的备份与恢复，用户管理与口令修改，界面设置。通过对上述功能的实现，满足化妆品市场的需求。第二章、系统分析和设计2.1对本系统的功能分析在对化妆品销售行业的组织结构及职能充分调查了解后，依据对化妆品销售行业的数据流动特点的分析，现在可以进行系统的功能分析，根据软件

5、工程的原理，需求分析的任务是确定系统必须完成的工作。经过详细的调研分析之后，可以得出化妆品销售系统必须具备的功能下：1、库存管理功能：应该包括商品入库、库存退回、入库明细查询；2、销售管理功能：应该包括商品售出、售出商品退回；3、销售查询功能：应该包括销售情况查询、赠送情况查询；2.2对本系统的数据结构设计本系统中，用户先登录到系统中，输入用户名判定密码表中是否有此用户，这是个验证过程，通过验证才能确定登录。使用本系统可以方便地管理商品名称、商品代码、产地、功能、保质期、生产日期和价格等基本信息，及时调整资料的最新信息，提高汽车租赁管理的管理水平，从而使化妆品管理真正实现无纸化。本系统实现的功

6、能主要包括：用户管理，系统用户登录后，进入管理界面，可以对库存管理、销售管理、销售查询进行增、删、改的操作。系统操作流程图如下：化妆品管理系统库存管理销售管理销售查询退 出商品入库商品售出库存退回入库明细查询售出商品退出销售情况查询赠送情况查询2.3 数据库设计商品库存：表商品名称商品数量商品售价12346110425大象100120欧莱雅40380 入库明细：表商品名称入库时间数量备注大象200912181001234620091218111112346200912185退回欧莱雅0商品销售：表商品名称销售日期商品售价商品数量1234620091218251第三章、系统实现3.1登录窗口登录

7、窗口主要应用于用户登录、输入密码等功能。登陆界面主要程序：Private Sub Command1_Click() Dim MPassword As String Adodc1.RecordSource = select * from 密码表 where username = & Text1.Text & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MPassword = Adodc1.Recordset.Fields(password) If Text2.Text = MPassword Then 判断数据的密码是否正确 Nam

8、e1 = Text1.Text main.Show frm_Main.Show Unload Me Else MsgBox 密码不正确,请您确认后重新输入, , 提示信息 Text2.Text = Text2.SetFocus End IfElse MsgBox 对不起 没有此用户的信息, , 提示信息 Text1.Text = Text2.Text = End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() Adodc1.RecordSource = select * from 密码表 Adodc1

9、.Refresh If Adodc1.Recordset.RecordCount 0 Then ListView1.Enabled = True ListView1.ListItems.Clear i = 1 Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False Key = Adodc1.Recordset.Fields(username) Set itmX = ListView1.ListItems.Add(, , Key, i) i = i + 1 Adodc1.Recordset.MoveNext Loop El

10、se ListView1.Enabled = False End IfEnd SubPrivate Sub ListView1_Click() Text1.Text = ListView1.SelectedItem Adodc1.Refresh Text2.SetFocusEnd Sub3.2化妆品销售系统界面用户在登录后首页后会看到化妆品销售系统界面，分为五大部分，分别是：库存管理、销售管理、销售查询、帮助、退出。主要代码： Private Sub Form_Load()End SubPrivate Sub 关于_Click(Index As Integer)gy.Show 1End Sub

11、Private Sub 库存查询_Click(Index As Integer)kccx.Show 1End SubPrivate Sub 库存退回_Click(Index As Integer)spth.Show 1End SubPrivate Sub 日查询_Click(Index As Integer)Dim db As DatabaseDim rs As Recordsetsl = 0zj = 0yl = 0Set db = OpenDatabase(App.Path & db1.mdb)Set rs = db.OpenRecordset(select * from 商品销售 wher

12、e 销售日期 like & Date & ) If rs.EOF Or rs.BOF Then MsgBox (当日没商品售出) Else rcx.Show 1 End IfEnd SubPrivate Sub 入库明细查询_Click()rkmx.Show 1End SubPrivate Sub 商品入库_Click(Index As Integer)sprk.Show 1End SubPrivate Sub 商品售出_Click(Index As Integer)spcs.Show 1End SubPrivate Sub 商品退回_Click(Index As Integer)spth.S

13、how 1End SubPrivate Sub 售出商品退回_Click()scspth.Show 1End SubPrivate Sub 退出_Click(Index As Integer)Unload MeEnd SubPrivate Sub 销售情况查询_Click(Index As Integer)rcx.Show 1End SubPrivate Sub 赠送情况查询_Click()zscx.Show 1End Sub3.3查询窗口查询窗口是按照分类来查询，通过在TextBox里输入想要查询的方式，再点击下边对应的按钮，就能显示想要查询的信息。Private Sub Command1_

14、Click()Unload MeEnd SubPrivate Sub Command2_Click()If Combo4.Text = Then cb4 = *Else cb4 = Combo4.TextEnd IfIf Combo1.Text = Then cb1 = *Else cb1 = Combo1.TextEnd IfIf Combo2.Text = Then cb2 = *Else cb2 = Combo2.TextEnd IfIf Combo3.Text = Then cb3 = *Else cb3 = Combo3.TextEnd If Dim db As DatabaseDi

15、m rs As Recordsetsl = 0zj = 0Set db = OpenDatabase(App.Path & db1.mdb)Set rs = db.OpenRecordset(select * from 商品销售 where 商品名称 like & cb4 & and year(销售日期) like & cb1 & and Month(销售日期) like & cb2 & and day(销售日期) like & cb3 & ) If rs.EOF Or rs.BOF Then MsgBox (没有符合条件的记录!) Else With MSFlexGrid1 .FormatS

16、tring = |商品名称|商品售价|商品售出数量|售出时间|合计 .ColWidth(0) = 0 .ColWidth(1) = 2000 .ColWidth(2) = 1300 .ColWidth(3) = 1300 .ColWidth(4) = 2000 .ColWidth(5) = 1300 .Rows = 1Wi: hj = 0 hj = rs(商品售价) * rs(商品数量) .AddItem vbTab & rs(商品名称) & vbTab & rs(商品售价) & vbTab & rs(商品数量) & vbTab & rs(销售日期) & vbTab & hj sl = sl

17、+ rs(商品数量) zj = zj + hj rs.MoveNext If Not (rs.EOF Or rs.BOF) Then GoTo Wi End If .AddItem vbTab & 合计 & vbTab & zj & vbTab & sl & vbTab & & vbTab & zj End WithEnd IfEnd SubPrivate Sub Form_Load() Dim ra As Recordset Dim db As Database Set db = OpenDatabase(App.Path & db1.mdb) Set ra = db.OpenRecords

18、et(select * from 商品库存 ) If ra.BOF Or ra.EOF Then GoTo en End If With Combo4Wi1: .AddItem ra(商品名称) ra.MoveNext If Not (ra.EOF Or ra.BOF) Then GoTo Wi1 End If End Withen:With MSFlexGrid1 .FormatString = |商品名称|商品售价|商品售出数量|售出时间|合计 .ColWidth(0) = 0 .ColWidth(1) = 2000 .ColWidth(2) = 1300 .ColWidth(3) = 1

19、300 .ColWidth(4) = 2000 .ColWidth(5) = 1300 .Rows = 1End WithEnd SubPublic lj As BooleanPrivate Sub Check1_Click() lj = Not lj Combo2.Visible = ljEnd SubPrivate Sub Combo1_Click(Index As Integer) Dim ra As Recordset Set db = OpenDatabase(App.Path & db1.mdb) Set ra = db.OpenRecordset(select * from 商品

20、库存 where 商品名称 like & Combo1(0).Text & ) Text2(1).Text = ra(商品售价)End SubPrivate Sub Command1_Click(Index As Integer)If Combo1(0) = Then MsgBox (请选择商品名称) GoTo enEnd IfIf Not IsNumeric(Trim(Text2(1) Then MsgBox (请输入正确的商品单价) Text2(1).Text = Text2(1).SetFocus GoTo en1End IfDim db As DatabaseDim ra As Rec

21、ordsetDim rs As RecordsetDim rs1 As RecordsetDim sql As StringSet db = OpenDatabase(App.Path & db1.mdb)Set ra = db.OpenRecordset(select * from 商品库存 where 商品名称 like & Combo1(0).Text & ) If ra(商品数量) = 0 Then MsgBox (商品已全部售出！) GoTo en End Ifra.Editra(商品数量) = ra(商品数量) - 1ra.UpdateSet rs = db.OpenRecords

22、et(select * from 商品销售 where 商品名称 like & Combo1(0).Text & and 销售日期 like & Date & )If rs.EOF Or rs.BOF Then rs.AddNew rs(商品名称) = Combo1(0).Text rs(商品售价) = Text2(1).Text rs(商品数量) = 1 rs(销售日期) = DateElse rs.Edit rs(商品数量) = rs(商品数量) + 1End Ifrs.UpdateMsgBox (商品出售成功！)If lj Then Set ra = db.OpenRecordset(s

23、elect * from 商品库存 where 商品名称 like & Combo2.Text & ) ra.Edit ra(商品数量) = ra(商品数量) - 1 ra.Update aaa = 0 aaa = ra(商品售价) Set rs = db.OpenRecordset(select * from 赠送情况 where 商品名称 like & Combo2.Text & and 赠送日期 like & Date & ) If rs.EOF Or rs.BOF Then rs.AddNew rs(商品名称) = Combo2.Text rs(赠送数量) = 1 rs(赠送日期) =

24、 Date rs(商品售价) = aaa Else rs.Edit rs(赠送数量) = rs(赠送数量) + 1 End If rs.UpdateElseEnd If en:Combo1(0).Text = en1:Text2(1).Text = End SubPrivate Sub Command2_Click(Index As Integer)Unload MeEnd SubPrivate Sub Text1_Change(Index As Integer)End SubPrivate Sub Form_Load()lj = False Dim ra As Recordset Dim d

25、b As Database Set db = OpenDatabase(App.Path & db1.mdb) Set ra = db.OpenRecordset(select * from 商品库存 ) If ra.BOF Or ra.EOF Then MsgBox (请先入库) GoTo en End If With Combo1(0)Wi1: .AddItem ra(商品名称) ra.MoveNext If Not (ra.EOF Or ra.BOF) Then GoTo Wi1 End If End With Set db = OpenDatabase(App.Path & db1.m

26、db) Set ra = db.OpenRecordset(select * from 商品库存 ) With Combo2Wi2: .AddItem ra(商品名称) ra.MoveNext If Not (ra.EOF Or ra.BOF) Then GoTo Wi2 End If End Withen:End Sub Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()If Combo4.Text = Then cb4 = *Else cb4 = Combo4.TextEnd IfIf Combo

27、1.Text = Then cb1 = *Else cb1 = Combo1.TextEnd IfIf Combo2.Text = Then cb2 = *Else cb2 = Combo2.TextEnd IfIf Combo3.Text = Then cb3 = *Else cb3 = Combo3.TextEnd If Dim db As DatabaseDim rs As Recordsetsl = 0zj = 0Set db = OpenDatabase(App.Path & db1.mdb)Set rs = db.OpenRecordset(select * from 赠送情况 w

28、here 商品名称 like & cb4 & and year(赠送日期) like & cb1 & and Month(赠送日期) like & cb2 & and day(赠送日期) like & cb3 & ) If rs.EOF Or rs.BOF Then MsgBox (没有符合条件的记录!) Else With MSFlexGrid1 .FormatString = |商品名称|商品售价|商品赠送数量|赠送时间|合计 .ColWidth(0) = 0 .ColWidth(1) = 2000 .ColWidth(2) = 1300 .ColWidth(3) = 1300 .ColW

29、idth(4) = 2000 .ColWidth(5) = 1300 .Rows = 1Wi: hj = 0 hj = 0 - rs(商品售价) * rs(赠送数量) .AddItem vbTab & rs(商品名称) & vbTab & rs(商品售价) & vbTab & rs(赠送数量) & vbTab & rs(赠送日期) & vbTab & hj sl = sl + rs(赠送数量) zj = zj + hj rs.MoveNext If Not (rs.EOF Or rs.BOF) Then GoTo Wi End If .AddItem vbTab & 合计 & vbTab &

30、zj & vbTab & sl & vbTab & & vbTab & zj End WithEnd IfEnd SubPrivate Sub Form_Load() Dim ra As Recordset Dim db As Database Set db = OpenDatabase(App.Path & db1.mdb) Set ra = db.OpenRecordset(select * from 商品库存 ) If ra.BOF Or ra.EOF Then GoTo en End If With Combo4Wi1: .AddItem ra(商品名称) ra.MoveNext If

31、 Not (ra.EOF Or ra.BOF) Then GoTo Wi1 End If End Withen:With MSFlexGrid1 .FormatString = |商品名称|商品售价|商品售出数量|售出时间|合计 .ColWidth(0) = 0 .ColWidth(1) = 2000 .ColWidth(2) = 1300 .ColWidth(3) = 1300 .ColWidth(4) = 2000 .ColWidth(5) = 1300 .Rows = 1End WithEnd Sub结论通过这几周的学习和摸索。我终于完成了这个“化妆品销售系统”。通过开发过程，我比较深入

32、的掌握了visual Basic6.0的使用方法，对数据库的理解也更加深刻了。由始至终的开发过程，让我深刻体会到软件工程这门学科对于程序开发的重要性。一个工程的开发，编程过程并不最重要的，对于那些书里掌握编程语言的软件开发者来说，一个工程的代码实现，并不难做到。真正重要的反而是那些在编程之前所需做的工作。从软件的需求分析到系统设计，每一步都很重要，一个高质量的软件，从一开始就在扎扎实实的做好需求分析，为后续的系统设计和实现打下良好的基础。本系统界面美观，设计合理，能够实现预计的功能，但系统的容错性还不是很完善。这也暴露出我的编程能力还有待提高。今后我会继续努力学习，不断充实自己，提高自己。 总的来说，本系统的设计是符合用户要求的，可以为用户使用。参考文献1张莉 SQL Server数据库原理及应用教程 清华大学出版社 1999年2杨正洪 数据库技术 高等教育出版社 2001年3郎彦主编 数据库原理与应用 高等教育出版社 1999年4陶恂 Visual Basic数据库编程机械工业出版社2004年