《VB程序设计报告.docxVIP

广州航海学院Visual Basic 程序设计课程大作业题 目 Netflix影碟租借系统 姓 名 学 号 学 院 专业班级 任课教师 成 绩 2016年 1 月1日Netflix影碟租借系统课程设计目的通过本课程的学习和示例的分析，掌握使用Visual Basic开发Windows应用程序的一般方法和特点，理解Windows应用程序的基本概念、主要功能和Windows应用程序开发的基本思想，能够根据实际需要自行开发简单的Windows应用程序，并为今后进一步使用Visual Basic或其他面向对象的可视化开发工具开发Windows应用程序打下基础。问题描述和功能介绍首先科普一下关于Netflix公司，它是美国最大的DVD租借公司，在网上也有业务，现在我就以其为背景，用VB编程设计一个影碟租借系统。程序的开始是用Microsoft Access建立一个含有影碟信息、会员信息的数据库，为.mdb文件，将其与VB程序连接，我在网上找了许多例子和设计案例，决定用Microsoft Access建立自己需要的数据库，然后使用ADO程序对象连接、使用并编辑数据库，从而达到上述的Netflix影碟租借的系统。界面设计及其相应的代码1、建立数据库首先建立一个数据库，打开Microsoft Access建立如下的数据库，里面包含的信息尽可能得多。完成之后将其保存为.mdb文件。（注意，用07版本或以上的Microsoft Access建立数据库时候，新建时候要转换格式，然后输入数据。）2、建立登录界面设置2个标签，2个文本框，2个命令按钮，且每个对象的属性设置如下表所示，文本框：名称名称TextText1txtuser（空白）Text2txtpwd（空白）标签的Caption一个为用户名，对应“txtuser”的文本框，另一个为密码，对应“txtpwd”的文本框。命令按钮的Caption一个为登录，另一个为取消。Form的名称改为login，Caption改成“欢迎使用Netflix影碟租借系统”，为了美观可以插入图片。设计好的界面如下图所示：3、建立新的模块，连接数据库点击“工程”，再点击“添加模块”，并输入以下的代码：（注意，用如下代码连接数据库时候，要打开工程—引用—勾选“Microsoft ActiveX Data Objects2.0 Library”）Option ExplicitPublic conn As New ADODB.Connection 标记连接对象Public select_menu As String 标记所选择的菜单Public userID As String 标记当前用户IDPublic userpow As String 标记用户权限Public video_num As String 要借的影碟的编号（其中，Option Explicit语句的使用，避免键入已有变量时拼错，在变量的范围不是很清楚的代码中使用该语句可以避免混乱，但必须是要在声明所有变量的前提下。）再继续编辑login窗体，输入代码：Option ExplicitDim cnt As Integer 记录确定次数Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(txtuser.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocusElse 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_lo