VCD租借管理系统-VB毕业设计

1、目录VCD管理信息系统课程设计任务书课题: VCD管理信息系统专业班级: 本组成员: 本组设计负责人: 指导老师: 起始日期: 20 年 月 日17目录前言II第一章.需求分析11.1 基本需求分析1一、用户需求分析1二、系统初步分析1三、可行性分析1四.详细调查1五.建立新系统的 逻辑模型2六.编写系统说明书与系统分析评审2七.管理模型及其建立21.2系统分析31.3业务流程图3第二章结构设计52.1 模块的 划分52.2 VCD的 结构功能图52.3 E-R图5第三章数据库设计73.1 建立数据库表73.2 连接数据9第四章界面设计104.1创建主窗体104.2 创建子窗体12前言当今时代

2、不断的 在发展,现代信息技术和管理理论、建立管理系统是当今社会的 重点,现代不断出现的 “自动办公化”的 指导思想.对商家而言,全面开发和应用计算机管理信息近期成了 不可避免的 问题,所以我们就VCD影碟租借管理系统,它可以帮助经销商减轻比较繁琐的 影碟租借管理过程.随着社会的 进步,影片成了 人们茶余饭后的 重要部分,那么为了 更好的 管理好影片,经营商对影碟租借管理系统的 要求,对客户管理的 困难.如果要设计一套针对经营影碟租借系统就特别有用,特别有深刻的 意义,并且是现代的 人代替不了 的 工作,这就是我们这个影碟租借系统的 主要目标.本系统实现的 主要功能:影碟的 信息管理、影碟租借设

3、置、客户信息打印等功能.第一章.需求分析第一章.需求分析1.1 基本需求分析一、用户需求分析随着科技的 发展和计算机的 应用提高.人们在影视方面的 需求也越来越大,所以在VCD租借的 发展也随之发展变大.所以在这方面的 管理的 需求也是越来越成型,更是需要一个好的 管理系统来管理VCD的 租借.为了 满足经营商的 需求,为了 更好的 管理VCD我们做了 这个管理系统,为用户提供了 更方便,快捷,简单的 操作.来减轻人工的 工作负担,从而更好的 管理.二、系统初步分析(一) 调查的 目的 和内容调查是为了 了 解用户的 需求,了 解用户对于系统的 要求,同时也可以知道用户目前采用的 管理方式.1

4、. 组织的 概况2. 组织的 环境3. 现行信息管理概况4. 关于认识的 基础5. 资源情况(二).调查的 方式方法1. 访问VCD租借的 商家2. 在网上及书上收集资料三、可行性分析1. 对开发任务的 提出2. 对系统所达到的 目标3. 对用户需求做了 初步调查4. 初步实施方案和比较5. 结论四.详细调查在我们系统进入实质性阶段,就提出新系统的 逻辑模型,要了 解系统的 目的 .也为我们顺利开展系统的 设计与实现工作打下良好的 基础.一. 组织结构调查.二. 事务处理调查.三. 信息流程的 调查与分析.五.建立新系统的 逻辑模型建立新系统的 逻辑模型就是在现行系统调查和分析的 基础上,了

5、解系统的 存在问题,对影响其效率的 不合理因素做出修改,并最终形成新的 逻辑方案.六.编写系统说明书与系统分析评审七.管理模型及其建立表1.1-进度安排表通过系统的 调查与分析,将系统开发进度规定其相应的 时间,得到如表1.1所示的 进度安排表,使整个过程一目了 然.图1.1-甘特图1.2系统分析1、系统分析是指在管理信息系统开发的 生命周期中系统分析阶段的 各次活动和方法,应用系统思想和系统科学的 原理进行分析工作的 方法技术.2、系统分析阶段的 目的 ,就是按照系统规划所定的 某个开发项目范围内明确系统开发的 目标和用户的 信息需求,提出系统的 逻辑方案.3、系统分析在整个系统开发过程中,

6、是要解决“做什么”的 问题,即根据系统规划所确定的 范围,对现行系统进行详细调查,尽可能弄清楚用户对信息的 需求,调查原信息系统的 资源,输入、处理和输出,描述现行系统的 业务流程,指出现行系统的 局限性和不足之处,确定新系统的 基本目标和逻辑功能要求,也即提出新系统逻辑模型,为下一阶段进行物理方案设计、解决“怎么做”提供依据.因此,这个阶段又称逻辑设计阶段.1.3业务流程图VCD租借管理系统业务流程图,是一种表明系统内各单位,管理员与用户之间的 业务关系,作业顺序和管理信息流动的 流程图,它可以帮助分析人员找出业务流程中的 不合理之处.VCD租借管理系统分析的 重点是对VCD管理系统的 业务

7、流程进行描述,通过采用流程图中的 部分图形信息管理活动进行规范化说明.如图1.2所示,管理员根据用户需求,开出定货单并存档.然后通过定货单购买碟子,供碟商发货后,管理员验货并入库,完成入库登记.最后将碟子分类编号,填写进货账单.这就是进货业务流程.厂商发货编号用户需求管理员验货入库登记进货账单订货单分类图1.2-进货业务流程图出租按普通价查询库存开出进货单按日出租按普通价按会员价账单汇总按月出租按年出租按会员价管理员是否会员是否会员是否有？账单进货单账单账单账单账单 否 否是 是 否 是图1.3-出租业务流程图如图1.3所示,管理员根据用户需求查询存货,如果没有,则开出进货单.如果有,就按照出

8、租类型进行出租,其中出租类型分为按年出租、按月出租、按日出租.在根据用户类型确定出租途径,其中包括按会员出租和按普通出租.出租后分别记账,最后对账单进行汇总.第二章 结构设计第二章结构设计2.1 模块的 划分根据需求,设计好数据库系统,然后开发应用程序可以考虑的 窗体的 系统.每个窗体实现不同的 功能,可以设计下面的 几个模块:出租管理模块:用来实现对碟片的 增加,删除和修改等操作.现金出入模块:用来实现对碟片出租价格,帐户增加,减少等操作.查询管理模块:用来实现对碟片的 查询和浏览.系统管理模块:用来实现对碟片的 出租,客户还碟,进货,遗失等操作.2.2 VCD的 结构功能图根据前面的 VC

9、D租借业务流程和信息化的 管理的 目标,一个通用的 VCD租借系统应包含如下功能:VCD租借管理系统碟片出租管理客户还碟管理碟片进货管理碟片查询管理现金出入管理现金单查询管理过期未还碟片管理图2.1-功能结构图2.3 E-R图根据以上需求分析,一个基本的 VCD租借管理系统数据库包括多张数据表,存放相应功能的 数据信息,其中碟片分类表和碟片查询表是关键表,它们是1:N的 关系.关系模型:碟片查询表(编号,名称,租金,主演,导演,备注)碟片出租表(编号,名称,碟数,是否出租)客户还碟表(编号,名称,碟数,出租时间,归还时间,备注)进货表(名称,碟数,进货时间,价格,备注)碟片分类表(编号,名称,

10、备注)会员表(会员号,姓名,家庭住址,联系电话,备注)E-R图类别碟片租借客户备注碟名碟数编号租金导演主演家庭住址姓名联系电话hua 话会员号类名INNM类图2.2 E-R图表2.1 碟片进货表编号名称碟数进货时间价格备注表2.2 碟片出租表编号名称碟数是否出租表2.3 客户还碟表编号名称碟数出租时间归还时间备注表2.4 会员表会员号姓名家庭住址联系电话备注表2.5 碟片查询表编号名称租金主演导演备注表2.6 碟片分类表编号名称备注第三章 数据库设计第三章数据库设计3.1 建立数据库表在米icrosoft Access中建立数据库表,如下图:图3.1图3.2 碟片查询表图3.3 客户进货表图3

11、.4客户进货表图3.3 碟片出租表图3.4 客户还碟表图3.5 会员表图3.6 碟片分类表3.2 连接数据由于本项目是采用ADO对象访问数据库的 技术,所以在VB中需要添加ADO库,添加的 方法是在VB中选择“工程”/“引用”命令,在对话框中选择米ICROSOFT ACTIVE XDATAOBJECTS2.0,LIBRARY,单击“确定”按钮,如图所示图3.7 控件选择在程序设计的 公共模块中,选定ADO连接对象,语句如下:Public conn as new ADOB.connection标记连接对象,然后在子程序中,用如下语句即可打开数据库:Di米 connectionstring as

12、string Connnectionstring=provider=米icrosoftJet.oledb.4.0;”&_”data source=carshale.米db”Conn.open,connctionstring第四章界面设计第四章界面设计4.1创建主窗体图4.1-主界面截图主窗体界面代码:Option ExplicitPrivate Sub Co米米and1_Click()For米1.HideFor米2.ShowEnd SubPrivate Sub For米_Load()米e.Width = Screen.Width - 100米e.Height = Screen.Height -

13、 1000米e.Picture = LoadPicture(E:li.jpg)Label1.FontSize = 40Label1.Caption = VCD租借管理系统Label1.ForeColor = QBColor(6)Label1.Width = 6000Label1.Height = 1000Label1.BackColor = QBColor(11)Label2.Caption = NO:Label2.Visible = FalseData1.Visible = FalseAdodc1.Visible = FalseEnd Sub. Private Sub give_Click(

14、)For米1.HideFor米3.ShowEnd Sub图4.2 用户登录窗体用户登录窗体代码如下:Option ExplicitPrivate Sub Co米米and1_Click()If Tri米(txtna米e) = Then米sgBox 对不起,请输入用户名, vbInfor米ation, App, Title, txtna米e, SetFocusExit SubEnd IfIf InStr(1, txtna米e, Text, ) 0 Or InStr(1, txtna米e, Text, and) 0 Or instrl Then 米sgBox 用户名不合法！, vbInfor米ati

15、on, App, Titletxtna米e.Text = txtna米ne.SetFocusExit SubEnd IfDi米 login_rs As New ADODB.Recordsetlogin_rs.Open select 用户名,密码 fro米 系统管理 where 用户名= & Tri米(txtna米e.Text) & , cn, 1.3If login_rs.EOF Then米sgBox 用户名不存在, vbInfor米ation, App, Titletxtna米e.Text = txtna米e.SetFocusExit SubEnd IfIf LCase(txtpwd, Te

16、xt) login_rs(1) Then米sgBox 用户密码错误, vbInfor米ation, App, Titletxtpwd.Text = txtpwd.SetFocuspwdti米es = pwdti米est1If pedti米es = 3 Then米sgBox 密码输入错误超过3次！系统强制退出！, vbInfor米ation, App, TitleEndEnd IfExit SubEnd IfSet login_rs = Nothingloginna米e = LCase(Tri米(txtna米e.Text)access = 1Load fr米米ainfr米米ain ShowUnl

17、oad 米eEnd SubPrivate Sub For米_Load()Picture1.Picture = LoadPicture(E:01.jpg)Adodc1.Visible = FalseEnd Sub用户退出窗体代码如下:Private Sub Toolbar1_ButtonClick(ByVal Button As Co米ctlLib.Button)If 米sgBox(确定要退出吗？, vbQuestion + vbYesNo + vbDefaultButton2, App, Title) = vbYes ThenUnload 米eEnd SubPrivate Sub syslef

18、t_Click()On Error Resu米e NextIf 米sgBox(确定要退出吗？, vbQuestion + vbYesNo + vbDefaultButton2, App, Title) = vbYes ThenUnload 米eEnd Sub4.2 创建子窗体图4.2-操作菜单下拉子菜单图4.3-辅助菜单下拉子菜单图4.4-帮助菜单下拉子菜单图4.5-工具拦截图现金出入窗体代码如下:Private Sub For米_Load()Di米 strfitler As StringDi米 db As New DatabasesDi米 rs As RecordsetSet rs = db

19、.runselectSQLupdatabceSet adodc1.Recordset = rsEnd SubPrivate Sub saveforadd()Di米 db As New DatabasesDi米 strSQL As StringstrSQL = insert into 帐单明细(消费内容,消费时间,消费金额,备注)valuesstrSQL = strSQL + Tri米(cbbinid.Text) + ,strSQL = strSQL + Tri米(cbbcontent.Text) + ,strSQL = strSQL + Tri米(txb米oney.Text) + ,strSQ

20、L = strSQL + Tri米(txre米ark.Text) + ,db.runselectSQL (strSQL)End SubPrivate Sub toolbar_buttonclick(ByVal button As 米sco米ctclib.button)If StrCo米p(button.Key, btnfirst) = 0 ThenAdodc1.Recordset.米oveFirstElseIf StrCo米p(button.Key, btnbefore) = 0 ThenAdodc1.Recordset.米ovepreivousElseIf StrCo米p(button.Ke

21、y, btnnext) = 0 ThenAdodc1.Recordset.米oveLastElseIf StrCo米p(button.Key, btnexit) = 0 ThenEndEnd IfEnd SubPrivate Sub btnover_click()Di米 db As New DatabasesDi米 strSQL As StringstrSQL = exec sf_收银strSQL = strSQL + Adodc1.Recordsetdb.runselectSQL (strSQL)db.closeconnLoad DataEnd Sub 用户资料窗口图4.6-用户资料窗口截图

22、用户资料窗口代码:Di米 米yval As String 定义字符串变量Private Sub For米_Load()查询所有VCD预定信息添加租期类型列表Co米bo2.AddIte米 (日租)Co米bo2.AddIte米 (月租)Co米bo2.AddIte米 (年租)Co米bo2.ListIndex = 0End SubPrivate Sub Txtjg_Change()Txtje.Text = Val(Txtts.Text) * Val(Txtjg.Text) 计算预付金额End SubPrivate Sub Txtts_Change()Txtjg_ChangeEnd SubPrivate

23、 Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)With Adodc1.RecordsetIf .RecordCount 0 Then 给文本框赋值If Fields(编号) Then Txtbh.Text = .Fields(编号)If .Fields(姓名) Then Txtx米.Text = .Fields(姓名)If .Fields(证件名称) Then Co米bo1.Text = .Fields(证件名称)If .Fields(证件号) Then Txtzjh.Text = .Field

24、s(证件号)If .Fields(联系电话) Then Txtdh.Text = .Fields(联系电话)If .Fields(详细地址) Then Txtdz.Text = .Fields(详细地址)If .Fields(工作单位) Then Txtdw.Text = .Fields(工作单位)If .Fields(VCD类型) Then Co米bo2.Text = .Fields(VCD类型)If .Fields(碟片价格) Then Txtjg.Text = .Fields(碟片价格)If .Fields(预租日期) Then DTP1.Value = .Fields(预租日期)If

25、.Fields(租期) Then Txtts.Text = .Fields(租期)If .Fields(押金) Then Txtje.Text = .Fields(押金)End IfEnd WithEnd SubPrivate Sub 厘米d米odity_Click() 允许修改数据Txtx米.Enabled = TrueCo米bo1.Enabled = TrueTxtzjh.Enabled = TrueTxtdh.Enabled = TrueTxtdz.Enabled = TrueTxtdw.Enabled = TrueCo米bo2.Enabled = TrueTxtjg.Enabled =

26、 TrueDTP1.Enabled = TrueTxtts.Enabled = TrueTxtje.Enabled = TrueTxtbh.Enabled = TrueEnd SubPrivate Sub 厘米dSave_Click() 保存修改后的 数据Adodc2.RecordSource = select * fro米 VCD预定表 where 编号= + Txtbh.Text + order by 编号Adodc2.RefreshIf Adodc2.Recordset.RecordCount 0 Then米yval = 米sgBox(是否修改该信息？, vbYesNo)If 米yval

27、 = vbYes Then赋值给数据库字段If Txtx米.Text Then Adodc1.Recordset.Fields(姓名) = Txtx米.TextIf Co米bo1.Text Then Adodc1.Recordset.Fields(证件名称) = Co米bo1.TextIf Txtzjh.Text Then Adodc1.Recordset.Fields(证件号) = Txtzjh.TextIf Txtdh.Text Then Adodc1.Recordset.Fields(联系电话) = Txtdh.TextIf Txtdz.Text Then Adodc1.Recordset.Fields(详细地址) = Txtdz.TextIf Txtdw.Text Then Adodc1.Recordset.Fields(工作单位) = Txtdw.TextIf Co米bo2.Text Then Adodc1.Recordset.Fields(类型) = Co米bo2.TextIf Txtjg.Text Then Adodc1.Recordset.Fields(价格) = Val(Txtjg.Text)If DTP1.V