《VCD管理信息系统课程设计任务书》
课题: VCD管理信息系统
前言
当今时代不断的在发展，现代信息技术和管理理论、建立管理系统是当今社会的重点，现代不断出现的“自动办公化”的指导思想。对商家而言，全面开发和应用计算机管理信息近期成了不可避免的问题，所以我们就VCD影碟租借管理系统，它可以帮助经销商减轻比较繁琐的影碟租借管理过程。
随着社会的进步，影片成了人们茶余饭后的重要部分，那么为了更好的管理好影片，经营商对影碟租借管理系统的要求，对客户管理的困难。如果要设计一套针对经营影碟租借系统就特别有用，特别有深刻的意义，并且是现代的人代替不了的工作，这就是我们这个影碟租借系统的主要目标。
本系统实现的主要功能：影碟的信息管理、影碟租借设置、客户信息打印等功能。
第一章.需求分析
1.1 基本需求分析
一、用户需求分析
随着科技的发展和计算机的应用提高.人们在影视方面的需求也越来越大,所以在VCD租借的发展也随之发展变大.所以在这方面的管理的需求也是越来越成型,更是需要一个好的管理系统来管理VCD的租借.
为了满足经营商的需求,为了更好的管理VCD我们做了这个管理系统,为用户提供了更方便,快捷,简单的操作.来减轻人工的工作负担,从而更好的管理.
二、系统初步分析
(一) 调查的目的和内容
调查是为了了解用户的需求,了解用户对于系统的要求,同时也可以知道用户目前采用的管理方式.
- 组织的概况
- 组织的环境
- 现行信息管理概况
- 关于认识的基础
- 资源情况
(二).调查的方式方法
- 访问VCD租借的商家
- 在网上及书上收集资料
三、可行性分析
- 对开发任务的提出
- 对系统所达到的目标
- 对用户需求做了初步调查
- 初步实施方案和比较
- 结论
四.详细调查
在我们系统进入实质性阶段,就提出新系统的逻辑模型,要了解系统的目的.也为我们顺利开展系统的设计与实现工作打下良好的基础.
- 组织结构调查.
- 事务处理调查.
- 信息流程的调查与分析.
五.建立新系统的逻辑模型
建立新系统的逻辑模型就是在现行系统调查和分析的基础上,了解系统的存在问题,对影响其效率的不合理因素做出修改,并最终形成新的逻辑方案.
六.编写系统说明书与系统分析评审
七.管理模型及其建立
表1.1-进度安排表
通过系统的调查与分析，将系统开发进度规定其相应的时间，得到如表1.1所示的进度安排表，使整个过程一目了然。
图1.1-甘特图
1.2系统分析
1、系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各次活动和方法，应用系统思想和系统科学的原理进行分析工作的方法技术。
2、系统分析阶段的目的，就是按照系统规划所定的某个开发项目范围内明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。
3、系统分析在整个系统开发过程中，是要解决“做什么”的问题，即根据系统规划所确定的范围，对现行系统进行详细调查，尽可能弄清楚用户对信息的需求，调查原信息系统的资源，输入、处理和输出，描述现行系统的业务流程，指出现行系统的局限性和不足之处，确定新系统的基本目标和逻辑功能要求，也即提出新系统逻辑模型，为下一阶段进行物理方案设计、解决“怎么做”提供依据。因此，这个阶段又称逻辑设计阶段。
1.3业务流程图
VCD租借管理系统业务流程图，是一种表明系统内各单位，管理员与用户之间的业务关系，作业顺序和管理信息流动的流程图，它可以帮助分析人员找出业务流程中的不合理之处。VCD租借管理系统分析的重点是对VCD管理系统的业务流程进行描述，通过采用流程图中的部分图形信息管理活动进行规范化说明。
如图1.2所示，管理员根据用户需求，开出定货单并存档。然后通过定货单购买碟子，供碟商发货后，管理员验货并入库，完成入库登记。最后将碟子分类编号，填写进货账单。这就是进货业务流程。
图1.3-出租业务流程图
如图1.3所示，管理员根据用户需求查询存货，如果没有，则开出进货单。如果有，就按照出租类型进行出租，其中出租类型分为按年出租、按月出租、按日出租。在根据用户类型确定出租途径，其中包括按会员出租和按普通出租。出租后分别记账，最后对账单进行汇总。
第二章．结构设计
2.1 模块的划分
根据需求，设计好数据库系统，然后开发应用程序可以考虑的窗体的系统。每个窗体实现不同的功能，可以设计下面的几个模块：
出租管理模块：用来实现对碟片的增加，删除和修改等操作。
现金出入模块：用来实现对碟片出租价格，帐户增加，减少等操作。
查询管理模块：用来实现对碟片的查询和浏览。
系统管理模块：用来实现对碟片的出租，客户还碟，进货，遗失等操作。
2.2 VCD的结构功能图
根据前面的VCD租借业务流程和信息化的管理的目标,一个通用的VCD租借系统应包含如下功能:
图2.1-功能结构图
2.3 E-R图
根据以上需求分析，一个基本的VCD租借管理系统数据库包括多张数据表，存放相应功能的数据信息，其中碟片分类表和碟片查询表是关键表，它们是1：N的关系。
关系模型：
碟片查询表（编号，名称，租金，主演，导演，备注）
碟片出租表（编号，名称，碟数，是否出租）
客户还碟表（编号，名称，碟数，出租时间，归还时间，备注）
进货表（名称，碟数，进货时间，价格，备注）
碟片分类表（编号，名称，备注）
会员表（会员号，姓名，家庭住址，联系电话，备注）
E-R图
图2.2 E-R图
表2.1 碟片进货表
编号
名称
碟数
进货时间
价格
备注
表2.2 碟片出租表
编号
名称
碟数
是否出租
表2.3 客户还碟表
编号
名称
碟数
出租时间
归还时间
备注
表2.4 会员表
会员号
姓名
家庭住址
联系电话
备注
表2.5 碟片查询表
编号
名称
租金
主演
导演
备注
表2.6 碟片分类表
编号
名称
备注
第三章．数据库设计
3.1 建立数据库表
在Microsoft Access中建立数据库表，如下图：
图3.2 碟片查询表
图3.3 客户进货表
3.2 连接数据
由于本项目是采用ADO对象访问数据库的技术，所以在VB中需要添加ADO库，添加的方法是在VB中选择“工程”/“引用”命令，在对话框中选择MICROSOFT ACTIVE XDATAOBJECTS2.0，LIBRARY，单击“确定”按钮，如图所示
图3.7 控件选择
在程序设计的公共模块中，选定ADO连接对象，语句如下：
Public conn as new ADOB.connection’标记连接对象，然后在子程序中，用如下语句即可打开数据库：
Dim connectionstring as string
Connnectionstring=’provider=Microsoft
Jet.oledb.4.0;”&_”data source=carshale.mdb”
Conn.open,connctionstring
第四章．界面设计
4.1创建主窗体
图4.1-主界面截图
主窗体界面代码：
Option Explicit
Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Form_Load()
Me.Width = Screen.Width - 100
Me.Height = Screen.Height - 1000
Me.Picture = LoadPicture("E:\li.jpg")
Label1.FontSize = 40
Label1.Caption = "VCD租借管理系统"
Label1.ForeColor = QBColor(6)
Label1.Width = 6000
Label1.Height = 1000
Label1.BackColor = QBColor(11)
Label2.Caption = "NO:"
Label2.Visible = False
Data1.Visible = False
Adodc1.Visible = False
End Sub.
Private Sub give_Click()
Form1.Hide
Form3.Show
End Sub
图4.2 用户登录窗体
用户登录窗体代码如下：
Option Explicit
Private Sub Command1_Click()
If Trim(txtname) = "" Then
MsgBox "对不起，请输入用户名", vbInformation, App, Title, txtname, SetFocus
Exit Sub
End If
If InStr(1, txtname, Text, "") <> 0 Or InStr(1, txtname, Text, "and") <> 0 Or instrl Then MsgBox "用户名不合法！", vbInformation, App, Title
txtname.Text = ""
txtnamne.SetFocus
Exit Sub
End If
Dim login_rs As New ADODB.Recordset
login_rs.Open "select 用户名，密码 from 系统管理 where 用户名=" & Trim(txtname.Text) & "", cn, 1.3
If login_rs.EOF Then
MsgBox "用户名不存在", vbInformation, App, Title
txtname.Text = ""
txtname.SetFocus
Exit Sub
End If
If LCase(txtpwd, Text) <> login_rs(1) Then
MsgBox "用户密码错误", vbInformation, App, Title
txtpwd.Text = ""
txtpwd.SetFocus
pwdtimes = pwdtimest1
If pedtimes >= 3 Then
MsgBox "密码输入错误超过3次！系统强制退出！", vbInformation, App, Title
End
End If
Exit Sub
End If
Set login_rs = Nothing
loginname = LCase(Trim(txtname.Text))
access = 1
Load frmmain
frmmain Show
Unload Me
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture("E:\01.jpg")
Adodc1.Visible = False
End Sub
用户退出窗体代码如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
If MsgBox("确定要退出吗？", vbQuestion + vbYesNo + vbDefaultButton2, App, Title) = vbYes Then
Unload Me
End Sub
Private Sub sysleft_Click()
On Error Resume Next
If MsgBox("确定要退出吗？", vbQuestion + vbYesNo + vbDefaultButton2, App, Title) = vbYes Then
Unload Me
End Sub
4.2 创建子窗体
图4.2-操作菜单下拉子菜单
现金出入窗体代码如下：
Private Sub Form_Load()
Dim strfitler As String
Dim db As New Databases
Dim rs As Recordset
Set rs = db.runselectSQLupdatabce
Set adodc1.Recordset = rs
End Sub
Private Sub saveforadd()
Dim db As New Databases
Dim strSQL As String
strSQL = "insert into 帐单明细(消费内容，消费时间，消费金额，备注)values"
strSQL = strSQL + Trim(cbbinid.Text) + ","
strSQL = strSQL + Trim(cbbcontent.Text) + ","
strSQL = strSQL + Trim(txbmoney.Text) + ","
strSQL = strSQL + Trim(txremark.Text) + ","
db.runselectSQL (strSQL)
End Sub
Private Sub toolbar_buttonclick(ByVal button As mscomctclib.button)
If StrComp(button.Key, "btnfirst") = 0 Then
Adodc1.Recordset.MoveFirst
ElseIf StrComp(button.Key, "btnbefore") = 0 Then
Adodc1.Recordset.Movepreivous
ElseIf StrComp(button.Key, "btnnext") = 0 Then
Adodc1.Recordset.MoveLast
ElseIf StrComp(button.Key, "btnexit") = 0 Then
End
End If
End Sub
Private Sub btnover_click()
Dim db As New Databases
Dim strSQL As String
strSQL = "exec sf_收银"
strSQL = strSQL + Adodc1.Recordset
db.runselectSQL (strSQL)
db.closeconn
Load Data
End Sub
用户资料窗口
图4.6-用户资料窗口截图
用户资料窗口代码：
Dim myval As String '定义字符串变量
Private Sub Form_Load()
'查询所有VCD预定信息
'添加租期类型列表
Combo2.AddItem ("日租")
Combo2.AddItem ("月租")
Combo2.AddItem ("年租")
Combo2.ListIndex = 0
End Sub
Private Sub Txtjg_Change()
Txtje.Text = Val(Txtts.Text) * Val(Txtjg.Text) '计算预付金额
End Sub
Private Sub Txtts_Change()
Txtjg_Change
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
With Adodc1.Recordset
If .RecordCount > 0 Then
'给文本框赋值
If Fields("编号") <> "" Then Txtbh.Text = .Fields("编号")
If .Fields("姓名") <> "" Then Txtxm.Text = .Fields("姓名")
If .Fields("证件名称") <> "" Then Combo1.Text = .Fields("证件名称")
If .Fields("证件号") <> "" Then Txtzjh.Text = .Fields("证件号")
If .Fields("联系电话") <> "" Then Txtdh.Text = .Fields("联系电话")
If .Fields("详细地址") <> "" Then Txtdz.Text = .Fields("详细地址")
If .Fields("工作单位") <> "" Then Txtdw.Text = .Fields("工作单位")
If .Fields("VCD类型") <> "" Then Combo2.Text = .Fields("VCD类型")
If .Fields("碟片价格") <> "" Then Txtjg.Text = .Fields("碟片价格")
If .Fields("预租日期") <> "" Then DTP1.Value = .Fields("预租日期")
If .Fields("租期") <> "" Then Txtts.Text = .Fields("租期")
If .Fields("押金") <> "" Then Txtje.Text = .Fields("押金")
End If
End With
End Sub
Private Sub CmdModity_Click() '允许修改数据
Txtxm.Enabled = True
Combo1.Enabled = True
Txtzjh.Enabled = True
Txtdh.Enabled = True
Txtdz.Enabled = True
Txtdw.Enabled = True
Combo2.Enabled = True
Txtjg.Enabled = True
DTP1.Enabled = True
Txtts.Enabled = True
Txtje.Enabled = True
Txtbh.Enabled = True
End Sub
Private Sub CmdSave_Click() '保存修改后的数据
Adodc2.RecordSource = "select * from VCD预定表 where 编号='" + Txtbh.Text + "'order by 编号"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
myval = MsgBox("是否修改该信息？", vbYesNo)
If myval = vbYes Then
'赋值给数据库字段
If Txtxm.Text <> "" Then Adodc1.Recordset.Fields("姓名") = Txtxm.Text
If Combo1.Text <> "" Then Adodc1.Recordset.Fields("证件名称") = Combo1.Text
If Txtzjh.Text <> "" Then Adodc1.Recordset.Fields("证件号") = Txtzjh.Text
If Txtdh.Text <> "" Then Adodc1.Recordset.Fields("联系电话") = Txtdh.Text
If Txtdz.Text <> "" Then Adodc1.Recordset.Fields("详细地址") = Txtdz.Text
If Txtdw.Text <> "" Then Adodc1.Recordset.Fields("工作单位") = Txtdw.Text
If Combo2.Text <> "" Then Adodc1.Recordset.Fields("类型") = Combo2.Text
If Txtjg.Text <> "" Then Adodc1.Recordset.Fields("价格") = Val(Txtjg.Text)
If DTP1.Value <> "" Then Adodc1.Recordset.Fields("预租日期") = DTP1.Value
If Txtts.Text <> "" Then Adodc1.Recordset.Fields("预租天数") = Val(Txtts.Text)
If Txtje.Text <> "" Then Adodc1.Recordset.Fields("预付金额") = Val(Txtje.Text)
If Txtbh.Text <> "" Then Adodc1.Recordset.Fields("编号") = Txtbh.Text
Adodc1.Recordset.Update '更新记录
Adodc2.Refresh
'设置控件无效
Txtxm.Enabled = False
Combo1.Enabled = False
Txtzjh.Enabled = False
Txtdh.Enabled = False
Txtdz.Enabled = False
Txtdw.Enabled = False
Combo2.Enabled = False
Txtjg.Enabled = False
DTP1.Enabled = False
Txtts.Enabled = False
Txtje.Enabled = False
Txtbh.Enabled = False End If
Else MsgBox "没有要修改的信息！" End If
End Sub
Private Sub CmdEnd_Click()
End
End Sub
致谢
感谢给我们这次机会，将所学的理论知识应用于实践当中。让我们深刻体会到理论与实践相结合的重要性。感谢老师在此次课程设计过程中，帮助我们确定设计课题，指定参考文献，提供信息来源，并对我们细心的技术指导和帮助，让我们在设计过程中轻松解决困难，使得设计工作顺利完成。感谢小组成员的团队合作的精神，其间各尽其职，使设计工作能够顺利开展。
扫一扫
1793
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
