VB音像信息管理系统-课程设计.doc

VB音像信息管理系统-课程设计VB音像信息管理系统课程设计的背景音像信息管理系统.本项目的提出者和开发者是音像信息店与管理系统的开发者,用户是各种音像信息,音像市.本系统实现了音像信息,管理的信息化,并能向顾客提供各种图音像信息,对经理人提供各种有关音像信息,管理的信息,以及动态的销售行情.本系统能够与互联网相连来实现图音像的网上销售.2 数据库设计2.1 数据需求音像信息与管理系统:系统指对顾客提供的各种服务,包括查询服务,留言服务,会员管理系统.管理系统指向音像信息经理人提供信息,向销售人员以及管理员提供所求信息.本系统是基于数据库对音像信息的销售,管理进行统一管理的软件.通过对几个音像信息的调查，可以得知现有的音像信息有如下的不足与缺陷。第一，顾客在购音像前对本音像信息的查询，在原有的条件下，顾客买音像需要耗费大量的时间去音像架去查音像，并且往往不满意，那么就需要一个系统能够方便顾客的查询，如果可能的话，还应能方便互联网上的网民上网查询。第二，顾客在购买音像后，音像信息能方便的做出相应的记录，并且打印出相应的记录。系统可以模仿现有的超市系统。第三，由于现有的音像信息方式仍然有效，那么我们应方便音像架的管理，让管理音像架的管理员对音像架有一个清晰的了解，知道有什么，缺什么音像，做到适时的对音像架增加音像，并让管理员做出相应记录。第四，经理人需要对本音像信息音像的销售有一个清楚的了解，如一个月一次的销售报表等，还有经理人还能通过本系统实现对管理员的管理，对购音像做出决定，对本音像信息的帐目进行管理等等。第五，负责供音像的管理员对经理人决定的进音像定货单进行管理与保存，对实际到货进行查验，记录，生成到货单等等。第六，对加入本音像信息的会员进行统一管理，实现优惠购音像，与音像信息经理人进行交流等等。2.3 E-R模型设计2.3.1 数据流程首先需要建立一个系统数据库，再设计主模块的系统信息窗口，也就是主界面。接着，进行权限验证模块设计，设计系统的保密工作，允许合乎条件的人员进入本系统管理。对本系统的管理进行登记，修改及维护。使该系统不受到破坏。再着，设计系统的模块调用窗口，在该窗口里分有“文件”、“库存操作”、“出售操作”、“出租操作”、“用户管理”、“打印”、“帮助”等功能菜单。在本系统开发中，我们要用到表单向导生成器，完成系统的登记管理。 最后，我们需要添加代码，将有关连的表单链接起来，实现运行。这样，商品销售管理系统的大致框架就完成了。系统功能流程图如下： 图1系统功能流程图2.3.2系统的E-R模型所有工作都是围绕着音像信息的库存进行的，库存有两个属性“总库存量”和“总实洋”，围绕着库存有两个关系“入库”和“出库”，与“库存”之间是一对一联系。有两种单子需要入库处理，分别是“进货单”和“销售退货单”，它们与“入库”之间是一对多联系;有两种单子需要出库处理，分别是“批销单”和“进货退货单”，它们与“出库”之间也是一对多联系。实体“进货单”、“销售退货单”、“批销单”和“进货退货单”有着共同的属性分别是“单号”、“数量”和“实洋”。实体“销售退货单”和“批销单”与“客户”是多对多联系;实体“进货单”和“进货退货单”与“供应商”也是多对多联系。“客户”与“供应商”有着共同的属性分别是“名称”和“联系方式”。图2音像进出货管理E-R图2.4 设计数据库2.4.1 创建数据库1打开MSSQL工具“查询分析器”2在查询窗口中键入下列SQL语句create database BookSystem执行上述SQL语句即可新建一名为BookSystem的数据库2.4.2 创建数据表在项目制作中，需要用到一个数据库：shujuzunku.mdb，共有5个数据表。结构分别如674VB音像信息管理系统1chushou数据表： 字段名类型字段宽度小数位数Bh文本型10mingcheng文本型20shuliang文本型50danjia文本型14jingbanren文本型16beizhu文本型1002chuzu数据表：字段名类型字段宽度小数位数Bianhao文本型20mingcheng文本型20shulian文本型50kehumame文本型8Yajing货币型自动zujing货币型自动Chuzuriqi日期/时间Jingbanren文本型16Beizhu文本型1003库存表：字段名类型字段宽度小数位数音像编号文本型音像名文本型数量数字长整型单位数字长整型进货时间日期/时间型4音像进货表：字段名类型字段宽度小数位数图音像编号文本型音像名文本型数量数字长整型单价数字长整型进货时间日期/时间型5音像退货表：字段名类型字段宽度小数位数音像编号文本型音像名文本型数量数字长整型单价数字长整型出版社文本型作者文本型出版日期日期/时间型进货时间日期/时间型6音像销售表：字段名类型字段宽度小数位数音像编号文本型音像名文本型数量数字长整型单价数字长整型出版社文本型作者文本型出版日期日期/时间型销售时间日期/时间型7音像退货表：字段名类型字段宽度小数位数音像编号文本型音像名文本型数量数字长整型单价数字长整型退货时间日期/时间型VB音像信息管理系统3 总体设计从系统业务流程图中可以看出，系统以销售员为中心，各种从客户那里得到的数据经过处理后送销售员进行处理，销售员再把整理后的数据表分别送给会计和管理员，管理员再根据这些信息向供应商定货。详细的业务流程如图所示。图3系统业务流程图4 详细设计审核相对于供应商的入库单和相对于客户的出库单。所以分为入库处理和出库处理，处理完的数据存入数据库中。对处理完的数据进行浏览，打印。详细的数据流图如图。图4数据流图1用户登录界面为了加强系统数据的安全性，避免产生数据非法操作和失秘等情况的发生，本系统特别设置了些登陆界面。只有合法的用户经过系统验证后才能正常使用本系统，本系统默认的用户名和密码都是0，这也是系统管理员的身份。 图5管理员登录界面2系统主界面： 图6系统主界面从主界面中我们可以大致看出本系统所具体的基本功能，为了美化本系统，特设置了一张背景图片，系统共有个菜单项，九个快捷按钮。5 运行结果1音像销售：图7音像销售在这个主界面中，我们可以对图音像的销售进行管理，如根据图音像的编号，音像名等相关的音像信息，并可以对不同的音像实行不同的折扣进行处理，具备高度的灵活性和实用性。2音像入库：图8音像入库本系统为了保证系统的一致性，各个界面具有相似性，可以根据图音像编号、音像名、折扣等相关信息对音像的进货情况进行管理，从而对整个音像信息的库存情况也有详细有准确的统计。3出售退货：图9音像退货在音像信息的日常经营中，因为音像的质量等问题，以及销售情况不理想等情况是时有发生的，因此就有必要设计此模块，对这些音像进行管理。4销售查询：图10出售查询在音像信息的经营管理中，销售一项是重中之重，只有销售才有效益，本模块的设计可以对本店目前的音像情况进行销售查询，从而可以对不同种类的音像的市场销售情况进行一个直观的总结，从而明确哪些音像好卖，那些音像滞销，从而对以后的音像的进货情况进行调整，有利于生产经营。5库存查询：图11库存查询本模块的设计是为了防止音像的积压，及时对库存进行管理。VB音像信息管理系统设计体会音像信息管理系统 基本开发完毕，整个设计可以实现登记、查询、打印等功能。由于毕业设计时间较短、本人的水平有限，本系统设计得不够精确、完整，界面也不是很美观，系统出错处理不是很好，整个系统中的代码过于简单，这些都有待进一步的改善。但本次的毕业设计，使我学得了很多的知识，给我今后的工作和学习都有一定的帮助。通过对本课程设计的制作，是我对VB有了更深的了解，并且对VB窗体及其窗体的各个控件有了更深的了解，是我能够灵活的运用VB的command控件、lable控件、commobox控件以及SStab等基本控件。通过这个课程设计，是我能充分运用VB的各个窗体实现相应的功能，以及各个窗体之间的调用，这是之前我在学习VB的一个难点，通过本实验是我弄明白了它们之间的联系。经过这次设计，让我学会了VB与数据库之间的连接，这不仅提高了我的VB水平，更加补充了数据库方面的知识，受益匪浅。参考文献1 林卓然vb语言程序设计M北京：电子工业出版社P34-552 武马群Visual Basic程序设计M北京：北京工业大学出版社P67-903 萨师煊,王珊. 数据库系统概论(第三版)M. 北京:高教出版社，20004 郑人杰,殷人昆,陶永雷. 实用软件工程(第二版)M. 北京:清华大学出版社，19975 陈元春. Visual Basic数据库编程M. 北京：清华大学出版社,2004 6 龚沛曾. Visual Basic简明教程M. 北京：高等教育出版社,2003主要源程序清单用户管理：Dim mimashuru As StringDim tdatabase As Database 定义数据库变量Dim ttable As Recordset 定义表变量Private Sub Command1_Click()Dim mmm As StringIf Text1.Text = Then 如果为空不能创建用户 xx = MsgBox(你没有输入用户名！, vbOKOnly + vbCritical, 添加用户错误)Elsettable.Edit 不为空查找库中有没有相同的用户名ttable.Updatettable.MoveLastttable.MoveFirstFor i = 0 To ttable.RecordCount - 1 If ttable.Fields(tname) = Text1.Text Then 如果找到用户名相等的记录,给一提示并转到后面 xx = MsgBox(此用户已经存在！, vbOKOnly + vbCritical, 添加用户错误) GoTo mm End If ttable.MoveNextNext iIf Text2.Text = Then 判断是否用默认密码加入库中 mimashuru = 2004Else mimashuru = Text2.TextEnd Ifttable.AddNewttable.Fields(tname) = Text1.Textttable.Fields(tpassword) = mimashuruttable.UpdateData1.RefreshList1.AddItem Text1.Textmm: 如果找到库中有相同记录转到此处，也可以顺序执行到此处Text1.Text = Text2.Text = End IfText1.SetFocusEnd SubPrivate Sub Command2_Click()Dim qqq As StringIf List1.ListIndex 0 Then 从数据库中把用户名加入窗体的Combo1控件中 ttable.MoveLast ttable.MoveFirst For i = 0 To ttable.RecordCount - 1 List1.AddItem ttable.Fields(tname) ttable.MoveNext Next i End IfList1.ListIndex = 0End Sub出售音像查询：Private Sub Command1_Click()If Option1.Value = True ThenData1.DatabaseName = App.Path + shujuzunku.mdbData1.RecordSource = select bianhao as 编号,mingcheng as 名称,shuliang as 数量,danjia as 单价,chushouriqi as 出售日期,jingbanren as 经办人,beizhu as 备注 from chushou Data1.RefreshEnd IfIf Option2.Value = True ThenData1.DatabaseName = App.Path + shujuzunku.mdbData1.RecordSource = select bianhao as 编号,mingcheng as 名称,shuliang as 数量,danjia as 单价,chushouriqi as 出售日期,jingbanren as 经办人,beizhu as 备注 from chushou where bianhao= + Text1.Text + Data1.RefreshEnd IfIf Option4.Value = True ThenData1.DatabaseName = App.Path + shujuzunku.mdbData1.RecordSource = select bianhao as 编号,mingcheng as 名称,shuliang as 数量,danjia as 单价,chushouriqi as 出售日期,jingbanren as 经办人,beizhu as 备注 from chushou where chushouriqi= + Label1.Caption + Data1.RefreshEnd IfIf Option3.Value = True ThenData1.DatabaseName = App.Path + shujuzunku.mdbData1.RecordSource = select bianhao as 编号,mingcheng as 名称,shuliang as 数量,danjia as 单价,chushouriqi as 出售日期,jingbanren as 经办人,beizhu as 备注 from chushou where jingbanren= + Combo1.Text + Data1.RefreshEnd IfIf Data1.Recordset.RecordCount = 0 Then MSFlexGrid1.AddItem 无此条件的记录MSFlexGrid1.ColWidth(0) = 1500MSFlexGrid1.ColWidth(1) = 2000MSFlexGrid1.ColWidth(2) = 1200MSFlexGrid1.ColWidth(3) = 1200MSFlexGrid1.ColWidth(4) = 1500MSFlexGrid1.ColWidth(5) = 1500MSFlexGrid1.ColWidth(6) = 2200End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DTPicker1_Change()qq = DTPicker1.ValueIf Mid$(qq, 3, 1) = - Thenqq = 20 + qqLabel1.Caption = qqElseLabel1.Caption = DTPicker1.ValueEnd IfEnd SubPrivate Sub Form_Load()chchaform.Left = 70chchaform.Top = 1350chchaform.Width = 11800chchaform.Height = 6000Set db = OpenDatabase(App.Path + shujuzunku.mdb, False, False, )Set tb = db.OpenRecordset(tuser, dbOpenDynaset) 打开数据库和表VB音像信息管理系统If tb.RecordCount 0 Then 从数据库中把用户名加入窗体的Combo1控件中 tb.MoveLast tb.MoveFirst For i = 0 To tb.RecordCount - 1 Combo1.AddItem tb.Fields(tname) tb.MoveNext Next i Combo1.Text = yunhuEnd IfEnd SubPrivate Sub Option1_Click()If Option1.Value = True ThenText1.Enabled = FalseLabel1.Enabled = FalseDTPicker1.Enabled = FalseCombo1.Enabled = FalseText1.Text = Label1.Caption = End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenText1.Enabled = TrueLabel1.Enabled = FalseDTPicker1.Enabled = FalseCombo1.Enabled = FalseText1.Text = Label1.Caption = End IfEnd SubPrivate Sub Option3_Click()If Option3.Value = True ThenText1.Enabled = FalseLabel1.Enabled = FalseDTPicker1.Enabled = FalseCombo1.Enabled = TrueText1.Text = Label1.Caption = End IfEnd SubPrivate Sub Option4_Click()If Option4.Value = True ThenText1.Enabled = FalseLabel1.Enabled = TrueDTPicker1.Enabled = TrueCombo1.Enabled = FalseText1.Text = Label1.Caption = End IfEnd Sub出售录入：Private Sub Command1_Click()If Text1.Text = ThenMsgBox (编号不能为空)Exit SubEnd If If Text2.Text = Or Text2.Text = 0 Then MsgBox (出售的数量不能为空值和零) Exit Sub End If X = Len(Text2.Text) For i = 1 To X Y = Mid$(Text2.Text, i, 1) If Asc(Y) 57 Or Asc(Y) 57 Or Asc(Y) 48) And Asc(Y) 46 Then MsgBox (单价不能为字符) Exit Sub End IfNext iSet db = OpenDatabase(App.Path + shujuzunku.mdb, False, False, )Set tb = db.OpenRecordset(shujukbb, dbOpenDynaset) tb.MoveLast tb.MoveFirst For i = 0 To tb.RecordCount - 1 If Text1.Text = tb.Fields(bianhao) Then Exit For Else MsgBox (库中无此记录) GoTo ttttVB音像信息管理系统 End If tb.MoveNext Next iSet db = OpenDatabase(App.Path + shujuzunku.mdb, False, False, )Set tb = db.OpenRecordset(chushou, dbOpenDynaset) tb.AddNew tb.Fields(bianhao) = Trim(Text1.Text) tb.Fields(mingcheng) = Label11.Caption If Text2.Text = Then Text2.Text = 0 tb.Fields(shuliang) = Text2.Text tb.Fields(danjia) = Text3.Text tb.Fields(chushouriqi) = Label10.Caption tb.Fields(jingbanren) = Label9.Caption tb.Fields(beizhu) = Text5.Text tb.Update MsgBox (商品： + Label11.Caption + 已经出售成功！对方付现金： + Text4.Text + ，合计： + Str(Val(Text2.Text) * Val(Text3.Text) + ，找零： + Str(Val(Text4.Text) - Val(Text2.Text) * Val(Text3.Text)Set db = OpenDatabase(App.Path + shujuzunku.mdb, False, False, )Set tb = db.OpenRecordset(yejicha, dbOpenDynaset)tb.MoveFirsttb.Edittb.Fields(kucongshu) = Str(Val(tb.Fields(kucongshu) - Val(Text2.Text)tb.Fields(kongcongjia) = Str(Val(tb.Fields(kongcongjia) - (Val(Text2.Text) * Val(Text3.Text)tb.Fields(chushoushu) = Str(Val(tb.Fields(chushoushu) + Val(Text2.Text)tb.Fields(chushoujia) = Str(Val(tb.Fields(chushoujia) + (Val(Text2.Text) * Val(Text3.Text)tb.UpdateSet db = OpenDatabase(App.Path + shujuzunku.mdb, False, False, )Set tb = db.OpenRecordset(shujukbb, dbOpenDynaset) tb.MoveLast tb.MoveFirst For i = 0 To tb.RecordCount - 1 If Text1.Text = tb.Fields(bianhao) Then tb.Edit tb.Fields(shuliang) = Str(Val(tb.Fields(shuliang) - Val(Text2.Text) tb.Update Exit For End If tb.MoveNext Next itttt:Text1.Text = Text2.Text = Text3.Text = Label11.Caption = Text5.Text = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Label9.Caption = yunhuqq = DateIf Mid$(qq, 3, 1) = - Thenqq = 20 + qqEnd IfLabel10.Caption = qqchshouform.Left = 70chshouform.Top = 1800chshouform.Width = 11