可视化编程课程设计vb影碟出租管理系统设计论文.doc
可视化编程技术 课程设计（论文）题目： 影碟出租管理系统 20 / 22目 录第1章 课程设计目的与要求11.1 课程设计目的11.2 课程设计的实验环境11.3 课程设计的预备知识11.4 课程设计要求1第2章 课程设计容22.1 系统功能设计22.2 系统详细设计22.3 系统运行与测试17第3章 课程设计总结19参考文献20第1章 课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完可视化编程技术课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法与基本技巧。1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。软件：Microsoft Visual Basic 6.0 Microsoft Access 20031.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识与常用技巧。1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第2章 课程设计容2.1系统功能设计2.1.1 系统功能分析影碟出租管理系统主要用于辅助音像店完成影碟出租管理方面的相关功能，包括：（1） 会员管理。主要是对会员信息进行添加、修改、删除和查询。（2） 类别管理。主要完成影碟类别的添加、修改、删除和列表显示。（3） 影碟管理。主要完成影碟信息的添加、修改、删除和查询。（4） 租借管理。主要完成影碟的出租、归还和租借信息查询。2.1.2 系统功能模块设计（如图2.1） 影碟出租管理系统租借查询 添加 结算设置用户登陆修改密码退出出租影碟返还影碟影碟查询会员查询退碟查询影碟入店新入会员日结算月结算影碟类别会员级别管理员 图2.1 系统功能模块图2.2系统详细设计2.2.1登陆模块设计1.界面设计该模块使用的控件有Frame、CommandButton、TextBox、Label。（如图2.2）图2.2登录模块2.代码设计;Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error Resume NextMkDir App.Path & "tablefile"MkDir App.Path & "montablefile"End SubPrivate Sub Label1_Click()End SubPrivate Sub text1_keypress(keyascii As Integer)If keyascii = "13" ThenText2.SetFocusEnd IfEnd SubPrivate Sub text2_keypress(keyascii As Integer)If keyascii = "13" ThenCommand1.SetFocusEnd IfEnd Sub2.2.2 管理系统模块设计1.界面设计：该模块使用的控件有Frame、CommandButton、TextBox、Label（如图2.3）图2.3 影碟出租管理系统模块2.代码设计：Private Sub MdAddCD_Click()On Error Resume NextAddCD.ShowEnd SubPrivate Sub MdAddVip_Click()On Error Resume NextAddVip.ShowEnd SubPrivate Sub Mdcancel_Click()CancelLent.ShowEnd SubPrivate Sub MdCancelF_Click()findCL.ShowEnd SubPrivate Sub MdCDFind_Click()FindCD.ShowEnd SubPrivate Sub MdCDType_Click()CDtype.ShowEnd SubPrivate Sub MdCheck_Click()Checkfrm.ShowEnd SubPrivate Sub MdDay_Click()DayRec.ShowEnd SubPrivate Sub MdDel_Click()FindDel.ShowEnd SubPrivate Sub MdDELCD_Click()DelLentCD.ShowEnd SubPrivate Sub MdExit_Click()If MsgBox("你确定要退出吗？", vbInformation + vbYesNo, "退出") = vbYes Then EndEnd IfEnd SubPrivate Sub MDIForm_unload(cancel As Integer)If MsgBox("你确定要退出吗？", vbInformation + vbYesNo, "退出") = vbYes Then EndElse cancel = 1End IfEnd SubPrivate Sub MdInfo_Click()frmAbout.ShowEnd SubPrivate Sub MdLentCD_Click()LentCD.ShowEnd SubPrivate Sub MdMon_Click()MonthTable.ShowEnd SubPrivate Sub MdOut_Click()If MsgBox("你确定要注销吗？", vbInformation + vbYesNo, "注销") = vbYes Then MdZj.Enabled = False Mdse.Enabled = False MdAdd.Enabled = False MdJsuan.Enabled = False MdSet.Enabled = False MDIForm1.StatusBar1.Panels(3) = ""End IfEnd SubPrivate Sub MdPass_Click()EditPas.ShowEnd SubPrivate Sub MdReturn_Click()ReturnCD.ShowEnd SubPrivate Sub MdRVip_Click()ReVip.ShowEnd SubPrivate Sub Mdsec_Click()frm .ShowEnd SubPrivate Sub MdUseSet_Click()FrmUseSet.ShowEnd SubPrivate Sub MdVipF_Click()FindVip.ShowEnd SubPrivate Sub MdVip_Click()VipType.ShowEnd SubPrivate Sub mdiform_load()StatusBar1.Panels(1) = App.Title & " V" & App.Major & "." & App.Minor & "." & App.RevisionEnd SubPrivate Sub MdZhuC_Click()frmREG.ShowEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(4) = NowEnd Sub2.2.3会员基本信息模块设计1.界面设计：使用的控件有Frame、Label、TextBox、Data。（如图2.4）图2.4 会员基本信息模块Private Sub Form_Load()Dim SQL As StringDim i As IntegerAdodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" _ & App.Path & "cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxt"Adodc1.CursorLocation = adUseClientAdodc1 mandType = adCmdTextAdodc2.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" _ & App.Path & "cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxt"Adodc2.CursorLocation = adUseClientAdodc2 mandType = adCmdTextFor i = 0 To 5 FindVip.DataGrid1.Col = i Text1(i).Text = FindVip.DataGrid1.TextNextSQL = "select cdinfo.影碟编号,cdinfo.影碟名称,cdinfo.光碟数量,cdinfo.借出次数," _ & "cdinfo.影碟类别,cdinfo.入店时间 from cdinfo,viplentinfo where cdinfo.影碟编号=viplentinfo.影碟编号 and viplentinfo.会员编号='" & Text1(0).Text & "' and viplentinfo.还碟时间 is null"Adodc2.RecordSource = SQLSet DataGrid2.DataSource = Adodc2Adodc2.RefreshLabel10.Caption = Adodc2.Recordset.RecordCount & " "SQL = "select cdinfo.影碟编号,cdinfo.影碟名称,cdinfo.光碟数量,cdinfo.借出次数," _ & "cdinfo.影碟类别,cdinfo.入店时间 from cdinfo,viplentinfo where cdinfo.影碟编号=viplentinfo.影碟编号 and viplentinfo.会员编号='" & Text1(0).Text & "' "Adodc1.RecordSource = SQLSet DataGrid1.DataSource = Adodc1Adodc1.RefreshLabel8.Caption = Adodc1.Recordset.RecordCount & " "End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub2.2.4影碟出租模块设计1.界面设计：使用的控件有Frame、TextBox、Label、CommandButton（如图2.5）图2.5影碟出租模块2.代码设计：Private Sub txtcdid_keypress(keyascii As Integer)Dim SQL As StringIf keyascii = "13" And TxtCDId.Text <> "" Then SQL = "select * from cdinfo,cdtype where cdinfo.影碟类别=cdtype.影碟类别 and 影碟编号=""" & TxtCDId.Text & """" OpenDBFile OpenRS (SQL) If Not gRst.EOF Then If gRst("是否借出") = -1 Then MsgBox "对不起，该影碟已经借出，请从新选择！", vbInformation + vbOKOnly, "信息" TxtCDId.Text = "" TxtCDId.SetFocus TxtCDName.Text = "" TxtCDle.Text = "" TxtM.Text = "" TxtSum.Text = "" TxtDATE.Text = "" TxtYj.Text = "" CloseRS Exit Sub End If TxtCDName.Text = gRst("影碟名称") TxtCDle.Text = gRst("cdinfo.影碟类别") TxtM.Text = gRst("影碟价格") TxtSum.Text = gRst("光碟数量") TxtDATE.Text = gRst("借出天数") Else MsgBox "对不起，你输入的影碟编号不存在！", vbInformation + vbOKOnly, "信息" TxtCDId.Text = "" TxtCDId.SetFocus CloseRS Exit Sub End If CloseRS TxtYj.SetFocusElseIf keyascii = "13" And TxtCDId.Text = "" Then MsgBox "对不起，请输入影碟编号，并按回车键！", vbInformation + vbOKOnly, "警告" TxtCDId.Text = "" TxtCDId.SetFocusEnd IfEnd Sub2.2.5会员查询模块设计1.界面设计：使用的控件有Frame、TextBox、Option、Check、Label、CommandButton、Data。（如图2.6）图2.6会员查询模块代码设计：Private Sub Option1_Click()Label1.Caption = "按编号查询"Text1.SetFocusLabel2.Visible = FalseEnd SubPrivate Sub Option2_Click()Label1.Caption = "按查询"Text1.SetFocusLabel2.Visible = FalseEnd SubPrivate Sub Option3_Click()Label1.Caption = "按级别查询"Text1.SetFocusLabel2.Visible = FalseEnd SubPrivate Sub Option4_Click()Label1.Caption = "按时间查询"Text1.SetFocusLabel2.Visible = TrueEnd SubPrivate Sub Option5_Click()Dim SQL As StringLabel2.Visible = FalseSQL = "select * from vipinfo"Adodc1.RecordSource = SQLSet DataGrid1.DataSource = Adodc1Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Then Command3.Enabled = True Command4.Enabled = True Command6.Visible = TrueElse Command3.Enabled = False Command4.Enabled = False Command6.Visible = FalseEnd IfEnd SubPrivate Sub text1_keypress(keyascii As Integer)If keyascii = "13" And Text1.Text <> "" Then Dim SQL As String If Check1.Value = 0 Then If Option1.Value = True Then SQL = "select * from vipinfo where 会员ID='" & Text1.Text & "'" End If If Option2.Value = True Then SQL = "select * from vipinfo where 会员='" & Text1.Text & "'" End If If Option3.Value = True Then SQL = "select * from vipinfo where 会员级别='" & Text1.Text & "'" End If If Option4.Value = True Then SQL = "select * from vipinfo where 办理日期=#" & Text1.Text & "#" End If ElseIf Check1.Value = 1 Then If Option1.Value = True Then SQL = "select * from vipinfo where 会员ID like '%" & Text1.Text & "%'" End If If Option2.Value = True Then SQL = "select * from vipinfo where 会员 like '%" & Text1.Text & "%'" End If If Option3.Value = True Then SQL = "select * from vipinfo where 会员级别 like '%" & Text1.Text & "%'" End If If Option4.Value = True Then SQL = "select * from vipinfo where 办理日期 like '%" & Text1.Text & "%'" End If End If Adodc1.RecordSource = SQL Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 If Adodc1.Recordset.RecordCount <= 0 Then MsgBox "对不起数据库中没有你需要的信息！", vbInformation + vbOKOnly, "信息" Text1.Text = "" Text1.SetFocus Command3.Enabled = False Command4.Enabled = False Command6.Visible = False Else Command3.Enabled = True Command4.Enabled = True Command6.Visible = True End IfElseIf keyascii = "13" And Text1.Text = "" Then MsgBox "请输入需要查找的关键字！", vbInformation + vbOKOnly, "信息" Text1.SetFocusEnd IfEnd Sub2.2.6碟片类别添加模块设计1.界面设计使用的控件有Frame、TextBox、Label、CommandButton。（如图2.7）图2.7碟片类别添加模块2.代码设计：Private Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_Change(Index As Integer)For Index = 1 To 3 If Index <> 2 Then Text1(Index).Text = Format(Text1(Index).Text, "0.00") End IfNextEnd Sub2.2.7 数据库访问技术利用ADO(ActiveX Data Objects)进行编程：建立连接：dim conn as new adodb.connectiondim rs as new adodb.recordsetdim strstr = App.PathIf Right(str, 1) <> "" Thenstr = str + ""End Ifstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "tsl.mdb"conn.open strrs.cursorlocation=aduseclientrs.open "数据表名",conn,adopenkeyset.adlockpessimistic用完之后关闭数据库：conn.closeset conn=nothing 2.3 系统运行与测试运行系统，输入了错误的登陆密码，系统弹出警告！（如图2.8-图2.9）图2.8图2.9输入正确的密码，进入影碟出租管理系统！(如图2.10)图2.10第3章 课程设计总结一周的课设很快就过去了，随着时间的流逝我也一点点的完成了我的课设作业，看似简单的东西却也费了我很大的力气。不过在查找了不少资料之后我也是把它搞定了，并且在这个过程中我的知识又增加了很多，有些以前不太熟的操作和技术现在也能很好的掌握了。我课设设计的容是影碟出租管理系统，该系统主要用于辅助音像店完成影碟出租管理方面的相关功能。主要完成会员管理、类别管理、影碟管理和租借管理。在设计过程中基本将全部的控件都运用上了，从开始的不熟练，到后来的游刃有余。我很庆幸有这次课设的机会，让我将知识的学习和运用上全面结合在了一起。同时我也要感老师和同学在这个设计过程中对我的知道和帮助，没有他们的帮助我也很难顺利的完成本次课设。参考文献1翼英.VisualBasic课程设计.清华大学.2008.12黄淼云.VB6.0办公自动化编程.：国防工业， 2003.43康博.Visual Basic 6.0中文版高级应用.：人民邮电，2007.24甘雷.中文Access2002标准教程.：希望电子，2002.95林立军.Visual Basic 6.0数据库开发.:电子科技大学, 2000.96徐安东 飞 刑晓怡，Visual Basic数据库应用开发教程，清华大学7王亚宁.VB.NET程序设计.：西南师大学，2006.88黄振轩.VB程序设计与数据库.山东：山东科学技术,2007.99晶.中文 VB6.0程序设计中国电力 2007.810 炳文.精通VISUAL BASIC 6.0入门与提高.：人民邮电, 2001.2
