碟片管理系统目的与实现

碟片管理系统目的与实现 学号： 姓名：赵海淑 1系统开发的目的 碟片出租与还碟片，主要统计每天的客人、出租量、和房间量。但却是件繁 琐而且易出错的事情，工作量也比较大，而且要求登记住户以及查询房间要在很 短的时间内完成。所以我们运用到计算机辅助登记，能实现对大量的信息进行检 验和统计，高效的显示出结果，同时也避免了人工（手工）处理时容易产生的错 误。 数据处理手工操作，工作量大，出错率高，出错后不易更改。就此问题，我 认为有必要建立一个碟片出租管理系统，使碟片出租管理工作系统化，程序化。 提高了信息处理的速度和准确性，能够及时、准确、有效的查询和登记出租及还 碟片情况。 此外，开发此系统还有以下目的： （1）了解采用B/S结构，应用Microsoft office access。 （2）掌握SQL Server大型的数据库。 （3）学会使用一些开发系统的工具。 （4）培养自学能力以及相互合作的精神。 2系统功能设计 系统提供权限，只提供给专门管理登记人员，避免客户信息外露，做到绝对 的保密。其可以操作的功能有，碟片管理（添加、删除、修改、查询碟片类别及 碟片信息）、客人管理、碟片出租管理（借碟片管理和还碟片管理）、系统管理 2.1系统功能模块 管理员功能模块 碟片类别管理 添加碟片类别 修改碟片类别 删除碟片类别 管 碟片管理 添加碟片信息 理 碟片信息管理 修改碟片信息 员 删除碟片信息 功 查询碟片信息 能 添加客人类别 客人类别管理 修改客人类别 模 客人管理 删除客人类别 块 添加客人信息 客人信息管理 修改客人信息 删除客人信息 查询客人信息 碟片出租管理 租碟片管理 添加租出碟片信息 查询租出碟片信息 还碟片管理 添加还碟片信息 系统管理 添加管理员 修改密码 退出系统 3．数据库、设计与实现 数据库是本系统的基础，是所有数据存储的物理空间。本系统的后台数据库 采用微软公司的Microsoft office access，它是一种功能强大的关系型数据库管理系统，在众多数据库管理系统中，Microsoft office access 以其超卓的性能价格比 受到广泛的关注，加之微软新产品在我国已有广泛的市场，软件基础环境好，且 选用的操作系统、Web服务器和ASP.net中间件技术，都是微软公司的新产品，兼容性好，相互结合紧密。因此选用Microsoft office access 作为本系统的数据 库服务器。 概念结构的主要特点是能真实、充分地反映现实世界；易于理解；易于更改； 易于向关系、网状、层次等各种数据模型转换。 音乐 yy 内地电视剧 nd 港台电视剧 gtd 日韩电视剧 rhd 欧美电视剧 omd 爱情片 aiq 恐怖片 kb 喜剧片 xj 动画片 dh 科幻片 kh 武侠片 wx yy-900 刘德华 音乐 2002-6-1 否 kh-60 变种DNA 科幻片 2009-7-1 是 gtd-314 宫心计 港台电视剧 2009-12-1 是 nd-414 蜗居 内地电视剧 2009-12-18 否 xj-21 家有喜事 喜剧片 2009-4-1 否 kb-90 人鬼神 恐怖片 2008-1-1 否 wx-500 英雄 武侠片 2007-1-1 否 7 003 张三 kh-60 变种DNA 2009-5-10 2009-5-20 8 002 李四 gtd-314 宫心计 2009-12-10 2009-12-20 学生 18 7 7 工人 10 10 12 教师 7 4 4 王五 001 男 学生 云师大 62779476 2003-5-4 0 张三 003 女 工人 学校 62779477 2003-5-5 1 李四 002 男 教师 农大 2003-5-8 1 王强 123 system 李颖 246 guest 顾曼 321 system 4界面设计目标 根据用户使用习惯和需求设计制作界面；设计以美观、简捷、实用、人性化 为原则；避免使用浏览器兼容性问题的语句； 1用户登录 用户登录界面Login.aspx的设计比较简单，仅用了两个文本框和两个个命 令按钮。一个文本框用于输入用户名，另一个文本框用于输入登录密码，页面获 得的信息通过Login.aspx.cs进行验证。用户名和密码都正确，就读取登录信息， 登录主页面；如果用户名或者密码错误，则拒绝登录，显示错误警告。 2管理员界面 当用户名和密码都正确时，管理员进入默认界面 3碟片管理 房间管理模块能对所有碟片进行查询、添加、修改、删除等操作，各功能实 现代码请参见附录查、增、删、改代码; 4客人管理 通过住户管理模块功能，可以对客人类别及信息进行查询、修改、删除、添加等操作， 各功能实现代码可参见附录查、增、删、改代码; 5碟片出租管理 （1）、查询及添加出租的碟片信息界面 (2)、添加还碟片信息界面 5、实现代码 If Trim(txtuser.Text) = "" Then '判断输入的用户名是否为空 MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else '检验密码是否正确 If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me Form1.Show Else MsgBox "密码不正确", vbOKOnly + vbExclamation, "" txtpwd.SetFocus 查、增、删、改代码： ： Private Sub Command1_Click() Dim rs_findDV As New ADODB.Recordset Dim sql As String If Check1.Value = vbChecked Then sql = "碟片名称='" & Trim(Text1.Text & " ") & "'" End If If Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "类别='" & Trim(Combo1.Text & " ") & "'" Else sql = sql & "and 碟片名称='" & Trim(Combo1.Text & " ") & "'" End If End If End If If Check5.Value = vbChecked Then If Trim(sql) = "" Then sql = "碟片编号='" & Trim(Text4.Text & " ") & "'" Else sql = sql & "and 碟片编号='" & Trim(Text4.Text & " ") & "'" End If End If If Trim(sql) = "" Then MsgBox "请选择查询方式！", vbOKOnly + vbExclamation Exit Sub End If sql = "select * from 碟片信息 where " & sql rs_findDV.CursorLocation = adUseClient rs_findDV.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_findDV 'rs_findDV.Close End Sub } Private Sub Command1_Click() Dim rs_addDV As New ADODB.Recordset Dim sql As String If Trim(Combo1.Text) = "" Then MsgBox "请选择碟片种类", vbOKOnly + vbExclamation, "" Combo1.SetFocus Exit Sub End If If Trim(Text1.Text) = "" Then MsgBox "碟片编号不能为空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = "" Then MsgBox "碟片名称不能为空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit Sub End If If Not IsDate(Text5.Text) Then MsgBox "请按照yyyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, "" Text5.SetFocus Exit Sub End If If Not IsDate(Text6.Text) Then MsgBox "请按照yyyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, "" Text6.SetFocus Exit Sub End If sql = "select * from 碟片信息 where 碟片编号='" & Text1.Text & "'" rs_addDV.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_addDV.EOF Then rs_addDV.AddNew rs_addDV.Fields(0) = Trim(Text1.Text) rs_addDV.Fields(1) = Trim(Text2.Text) rs_addDV.Fields(2) = Trim(Combo1.Text) rs_addDV.Fields(3) = Trim(Text3.Text) rs_addDV.Fields(4) = Trim(Text4.Text) rs_addDV.Fields(5) = Trim(Text5.Text) rs_addDV.Fields(6) = Trim(Text6.Text) rs_addDV.Fields(7) = "否" rs_addDV.Update MsgBox "添加碟片信息成功！", vbOKOnly, "" rs_addDV.Close Else MsgBox "碟片编号重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_addDV.Close Exit Sub End If End Sub ： Private Sub cmddel_Click() Dim answer As String On Error GoTo delerror answer = MsgBox("确定要删除吗？", vbYesNo, "") If answer = vbYes Then DataGrid1.AllowDelete = True rs_DV.Delete rs_DV.Update DataGrid1.Refresh MsgBox "成功删除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = False Else Exit Sub End If delerror: If Err.Number <> 0 Then MsgBox Err.Description End If End Sub Private Sub cmdupdate_Click() If Not IsNull(DataGrid1.Bookmark) Then rs_DV.Update End If cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功！", vbOKOnly + vbExclamation, "" End Sub