VB图书管理系统方案设计书论文报告.docVIP

VB综合实验报告 系 别：信息系 专 业：应用电子技术 学生姓名：张立朋 指导教师：徐香坤 2011年 4 月 20 日一.实验题目： 图书借阅系统 二.实验目的： 1．灵活运用运用各种控件和各种语法规则，程序结构。 2．学会利用数组解决实际问题。熟练运用循环和选择语句对数组操作。 3. 理解过程和函数的概念，掌握子过程的创建和调用以及函数过程的创建和调用 三.实验要求： 独立设计用户界面，设置相应属性，编写相关代码。 四.实验内容： 本模块是管理员登录系统时的一个版面，点击“确定”按钮即可进入下一个页面，主页面如图1.1所示： 图 1.1 代码如下： Private Sub cmdOK_Click() Unload Me form2.Show End Sub Private Sub Form_Load() Timer1.Enabled = True Label1.Caption = 图书借阅系统 Label1.AutoSize = True Label1.FontSize = 20 Label1.FontBold = True End Sub Private Sub Timer1_Timer() If Label1.Left Width Then Label1.Left = Label1.Left + 20 Else Label1.Left = 0 End If End Sub 本模块主要是图书管理系统的登陆界面，用户输入正确的用户名，密码，验证码才能进入下一界面；如果三项中有输入错误的，则系统会显示相应的提示，并且禁止用户进入该系统。主页面如图1.2所示： 图 1.2 代码如下： Dim vCode As String Private Sub Command1_Click() If text1.Text = 123456 And text2.Text = 123456 And Text3.Text = vCode Then Load frmMain: frmMain.Show Unload form2 Else If text1.Text = 123456 And text2.Text = 123456 And Text3.Text vCode Then MsgBox 验证码错误 Else: MsgBox 账号或密码错误 End If text1.Text = text2.Text = Text3.Text = text1.SetFocus drawvc End If End Sub Private Sub drawvc() 显示校验码 Dim i, vc, px, py As Long Dim r, g, b As Byte Randomize 初始化随机种子 生成随机校验码 vc = CLng(8999 * Rnd + 1000) vCode = vc 显示校验码 Picture1.Cls Picture1.Print vc 添加噪点（防止自动图像识别） For i = 0 To 2000 画2000个噪点 画点随机位置 px = CLng(Picture1.Width * Rnd) py = CLng(Picture1.Height * Rnd) 画点随机颜色 r = CByte(255 * Rnd) g = CByte(255 * Rnd) b = CByte(255 * Rnd) Picture1.Line (px, py)-(px + 1, py + 1), RGB(r, g, b) Next End Sub Private Sub Command2_Click() Unload form2 End Sub Private Sub cmdOK_Click() If text1.Text = 123456 And text2.Text = 123456 And Text3.Text = vCode Then Load form3: form3.Show Unload form2 Else If text1.Text = 123456 And text2.Text = 123456 And Text3.Text vCode Then MsgBox 验证码错误 Else: MsgBox 账号或密码错误 End If text1.Text = text2.Text = Text3.Text = text1.SetFocus drawvc End If End Sub 本模块是图书借阅系统的总模块，包括图书管理，借阅证管理，图书借阅管理，系统管理和退出五大块，而且每个块中又包含相应的子模块。同时模块底部还显示日期和时间。如图1.