《VB实训报告》word版

1、.学 期： 2010/2011 专 业： 计算机信息管理 班 级： 计信1001 姓 名：高培翔、付楠、曹春涛 指导教师： 韩天成 内蒙古机电职业技术学院信息与管理工程系VB课 程 设 计 报 告 评 语专 业班 级学号姓 名成绩计算机信息管理计信10011040110107高培翔题目传说会员酒吧管理（点歌）系统总体评价评阅人（签字） 年 月 日VB课 程 设 计 报 告 评 语专 业班 级学号姓 名成绩计算机信息管理计信10011040110140付楠题目传说会员酒吧管理（点歌）系统总体评价评阅人（签字） 年 月 日VB课 程 设 计 报 告 评 语专 业班 级学号姓 名成绩计算机信息管理计

2、信10011040110111曹春涛题目传说会员酒吧管理（点歌）系统总体评价评阅人（签字） 年 月 日目 录第一部分 设计任务 6一、 课程设计目的 6二、 课程设计任务与要求 6一）基本任务 6二）开发工具 6三）设计成果6三、 课程设计题目及主要功能要求 6一）设计题目 7二）主要功能 7四、 设计理念 7一）画图 7二）文字 7第二部分 窗体及其作用介绍 7一、用户点歌系统 11二、酒吧管理系统 16第三部分 代码公示 18第四部分 实训总结 41一、 实训总结 41二、 特别感谢 41第一部分 设计任务一、课程设计目的VB设计是VB程序设计基础的重要教学环节，其目的是巩固和深化VB程序

3、设计的基础知识，是学生进行程序设计的初步训练。通过本课程设计，使学生进一步掌握面向对象程序设计的基本思想；掌握常用对象的基本属性、事件和方法；掌握基本语法和程序设计方法；掌握各种数据处理控件的使用方法，掌握数据库应用程序的开发技术；掌握程序的运行、调试方法。正确建立的程序设计思想，能够根据用户提出的要求，设计出系统功能框架和数据库，通过程序编码来实现系统的各项功能。提高学生综合应用知识能力；提高学生分析问题和解决问题能力；提高撰写书面报告能力；训练学生自主学习能力、创新能力和协作能力；学生通过查阅资料或参考书，增加对VB知识应用领域的了解。并为今后从事应用程序开发打下一定的基础。二、课程设计任

4、务与要求一）基本任务：开发一个面向对象的小型应用系统。学生自己单独分组完成。二）开发工具：Visual Studio 2005和SQL Server 2000三）提交设计成果主要包括：（一）课程设计报告书1）封面2）目录3) 正文（二）提交程序设计源代码三、课程设计题目及主要功能要求一）设计题目：传说会员酒吧管理（点歌）系统二）主要功能：1）用户点歌系统1、明星点歌2、拼音点歌3、呼叫吧台4、酒水服务2）数据管理系统1、用户管理系统2、酒水管理系统3、歌曲管理系统4、所有数据维护、更新。四、 设计理念登录页面一、画图数据管理系统用户点歌系统用户管理数据库提供数据管理拼音点歌酒水管理明星点歌歌曲

5、管理酒水服务呼叫吧台弹出提示二、文字说明 PS：系统预设一个账户为“管理员”，初始密码为123456。第一次运行后通过登录页面成功跳转到数据管理系统，再通过用户管理页面进行第一次修改。首先可以讲数据库和数据库管理系统看为一个整体，即数据库管理系统是为管理数据库而存在的，而数据库则是VB.net下数据库管理系统的后台程序。数据库管理系统主要作用是对数据库中用户表、酒水表、歌曲表做数据的添加、删除、更新、维护。其次，我们可以将用户点歌系统看作前台界面，而数据库作为用户点歌系统的后台，数据库主要提供数据给用户点歌系统，主要提供的数据为：1、登录页面中的用户帐号、用户密码、用户等级。2、拼音点歌、明星

6、点歌页面中的歌曲信息。3、酒水服务页面中的酒水信息。最后点完酒水或者呼叫吧台时，直接将用户点歌系统和酒吧管理系统做一个数据交互，而这里条件有限只能中断，然后弹出温馨提示界面，其实酒吧管理系统，也就是吧台是得不到呼叫信息和酒水信息的。故，此系统被称为半交互系统。窗体及其作用介绍本章我们将为您详细介绍本系统中的每一个窗体及其作用。 此为“传说会员酒吧”的【欢迎页面】，也就是一般所谓的待机页面。单击此页面任何地方讲进入【登录页面】。（竖置） 此为“传说会员酒吧”的【登录页面】，此处VIP为系统预设管理员账户，密码为123456。首次登录成功后，可在管理系统下进行修改。为了您的个人账户密码安全，本开发

7、小组特编辑一个虚拟小键盘供各位用户使用，小键盘的键位分别为10、AC、小数点，完全符合一般录入密码要求，也可以使用虚拟键盘与实体键盘切换的方式输入。此为【登录成功】页面，此页面中有两个按钮，指向分别为：【酒吧管理系统】和【用户点歌系统】。 此为【登录失败】页面，本页面的出现说明您的VIP号未在数据库中注册，或者您的密码被恶意修改、遗忘。本页提示您【密码错误，请仔细核对后输入】您最多有三次输入错误的机会错误三次后我们将锁定您的VIP卡单机重试将再次返回到【登录页面】单机退出将彻底退出【酒吧系统】，也就是进入关机/待机状态。用户点歌系统简介： 用户点歌系统是“传说会员酒吧”中最重要的板块之一，本板

8、块主要包括歌曲状态控制中的：静音、原唱、播放、重播、切歌、音量+、音量- 等功能。同时还兼有：拼音点歌板块、明星点歌板块、呼叫吧台板块、酒水服务板块众多板块跳板的功能。最后是歌曲控制中的五个控制按钮，分别为：快进、快退、播放、暂停、停止。接下来就让我们来一一了解这些功能带给我们的便捷！ 此为【用户点歌系统】， 区域代表歌曲状态控制。 区域四个按钮，分别对应四个窗体。 区域为歌曲控制器。（竖置）例如12323243243243243243223234423234234423234234 例如我现在单击了【拼音点歌】按钮。 此为【拼音点歌】页面，是点歌系统最为核心的一个页面，在次页面中我们将以输入

9、软键盘上的字符为索引条件索引满足条件的歌曲名称。本页面中扔然包含明星点歌、呼叫吧台、酒水服务三个核心跳板。去除了歌曲控制的按钮，仍然保留切歌等常用点歌功能。 例如我现在单击了【明星点歌】按钮。 此为【明星点歌】页面，本页面中为我们提供了大量的明星信息。我们可以单机任何一个明星的头像或者上面的索引条件，即可跳转到【拼音点歌】页面完成点歌操作，并且本页也设置主页和返回两个按钮，不选择明星的情况下也可以返回主菜单。 例如我现在单击了【酒水服务】按钮。 此为【酒水服务】页面，本页面拥有三个选项卡，切换后可以看到对应的酒水信息。单击前面的对钩选定后再点击确定将把您的点酒数据传输到吧台！单击确定后=此数据

10、的传输将被默认为呼叫服务特别提示：若单击【呼叫吧台】按钮，弹出的也是此温馨提示。酒吧管理系统简介： 【管理系统】是“会员酒吧系统”中另一大板块，此板块的主要作用是和SQL数据库做一个数据交互，用这一套VB管理系统管理数据库。用来添加、删除、维护数据。接下来就让我们来一一了解这些功能带给我们的便捷！ 此为【管理系统】欢迎界面。大家可以看到这里有四个按钮可供选择。 用户管理：对数据库中的用户信息进行添加、删除、更新、维护操作。 酒水管理：对数据库中的酒水信息进行添加、删除、更新、维护操作。 歌曲管理：对数据库中的歌曲信息进行添加、删除、更新、维护操作。 返回登陆：单击此按钮时页面将自动跳转到【登录

11、页面】，此按钮可视为管理员、用户切换的一个跳板。 例如我现在单击了【用户管理】按钮。此为【用户管理】页面，本页面主要的功能为添加、删除用户。 此为【数据库用户表】，从此处可以看出，此系统在开发时预设了一个管理员的用户，其密码为123456，目的为第一次可以登录进管理员系统，而后在【用户管理】页面进行删除操作，并添加新的管理员、用户。 例如我现在单击了【酒水管理】按钮。 此为【酒水管理】页面。本页面主要的功能为添加、删除酒水信息。主要信息包括：酒名、酒精度、类型、数量、单价。 例如我现在单击了【歌曲管理】按钮。 此为此为【歌曲管理】页面。本页面主要的功能为添加、删除歌曲信息。在此页面中我们将可以

12、添加歌曲的名称、演唱歌手、歌手的语种、歌曲的类型，方便在用户系统中索引变得更加方便。代码公布应许多好朋友的要求本人在此贴出代码，声明：此代码仅供学习交流，下载后24小时内请自觉删除，若出现法律纠纷，本组不负任何法律责任或连带责任。此为欢迎界面Public Class 欢迎界面 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Dim frm As New 登录页面() frm.show() Me.Hide() En

13、d SubEnd Class此为登录页面Imports System.DataImports System.Data.SqlClientPublic Class 登录页面 Inherits System.Windows.Forms.Form Private Sub GpxTest(ByVal tb As String) If TextBox2.Text.Length <= 6 Then TextBox2.Text &= tb Else Beep() End If End Sub Private Sub Button1_Click(ByVal sender As System.Ob

14、ject, ByVal e As System.EventArgs) Handles Button1.Click GpxTest("1") End Sub Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.

15、Click TextBox1.Text = "" End Sub Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click End End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click GpxTest("2") En

16、d Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click GpxTest("3") End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Button4_Click(ByVal

17、 sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click GpxTest("A") End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click GpxTest("4") End Sub Private Sub Button6_Click(ByVal sender As System.Obje

18、ct, ByVal e As System.EventArgs) Handles Button6.Click GpxTest("5") End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click GpxTest("6") End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.

19、EventArgs) Handles Button8.Click GpxTest("B") End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click GpxTest("7") End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu

20、tton10.Click GpxTest("8") End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click GpxTest("9") End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click GpxTe

21、st("C") End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click GpxTest("0") End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click GpxTest(".")

22、End Sub Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click If TextBox1.Text.Length >= 1 Then TextBox1.Text = Mid(TextBox1.Text, 1, TextBox1.Text.Length - 1) End If End Sub Dim Constr As String = "Server=Localhost;DataBase=chuanshuohu

23、iyuan;Integrated Security=SSPI" Dim cn As SqlConnection Dim cmd As SqlCommand Dim cmd1 As SqlCommand Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Try cn = New SqlConnection(Constr) cn.Open() cmd = New SqlCommand("select * fro

24、m 用户表 where 用户名='" & TextBox1.Text & "' and 密码='" & TextBox2.Text & "'", cn) Dim dr As New SqlDataAdapter(cmd) Dim ds As New DataSet dr.Fill(ds, "kkk") ' If ds.Tables(0).Rows.Count = 0 Then If ds.Tables("kkk").Rows.Coun

25、t = 0 Then 登陆失败.Show() Else ' qx = ds.Tables(KKK).Rows(0,"权限"). ' TextBox3.Text = qx 登陆成功.Show() End If cn.Close() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2

26、.Click End SubEnd Class此为登陆成功Imports System.Windows.FormsPublic Class 登陆成功 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2

27、.Click Dim frm As New 点歌系统() frm.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm As New 管理员系统() frm.Show() Me.Hide() End Sub Private Sub 登陆成功_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

28、Handles MyBase.Load If qx = "管理员" Then Button1.Enabled = True End If End SubEnd Class此为登录失败Imports System.Windows.FormsPublic Class 登陆失败 Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Dim frm As New 登录页面() frm.Show() Me.Hide(

29、) End Sub Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click End End Sub Private Sub 登陆失败_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class此为管理员系统Public Class 管理员系统 Private Sub Bu

30、tton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim frm As New 歌曲管理() frm.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm As New 用户管理() frm.Show() Me.Hide() End

31、Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim frm As New 酒水管理() frm.Show() Me.Hide() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim frm As New 登录页面() frm.Sho

32、w() Me.Hide() End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End SubEnd Class此为点歌系统Public Class 点歌系统 Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click End Sub Priv

33、ate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click End Sub Private Sub 点歌系统_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve

34、ntArgs) End Sub Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click Dim frm As New 登录页面() frm.Show() Me.Hide() End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click End Sub Private S

35、ub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventAr

36、gs) Handles Label1.Click End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Dim frm As New 吧台呼叫() frm.Show() Me.Hide() End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Cl

37、ick Dim frm As New 明星点歌() frm.Show() Me.Hide() End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Dim frm As New 拼音点歌() frm.Show() Me.Hide() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

38、Handles Button6.Click Dim frm As New 酒水页面() frm.Show() Me.Hide() End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

39、 End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click End Sub Private Sub Button8_Click(ByVal sender As System.Object

40、, ByVal e As System.EventArgs) Handles Button8.Click End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button3_Click(ByVal sender As System.Ob

41、ject, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End SubEnd Class 此为歌曲管理Public Class 歌曲管理 Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid

42、1.Navigate End Sub Private Sub Inherits System.Windows.Forms.Form Private Sub AddCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddCmd.Click Me.DataGrid1.ReadOnly = False Me.DepeID.ReadOnly = False Me.DepeNameTxt.ReadOnly = False Try Me.BindingContext(DataSet21, "

43、DepartmentTable").AddNew() Me.CancelCmd.Enabled = True Me.UpdataCmd.Enabled = True Me.AddCmd.Enabled = False Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub 系部数据录入_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.DataGrid1.CaptionText

44、= Space(13) & "系部信息录入表" Me.DataSet21.Clear() Me.SqlDataAdapter1.Fill(DataSet21) Me.UpdataCmd.Enabled = False Me.CancelCmd.Enabled = False Me.DepeID.ReadOnly = True Me.DepeNameTxt.ReadOnly = True End Sub Private Sub UpdataCmd_Click(ByVal sender As System.Object, ByVal e As System.EventA

45、rgs) Handles UpdataCmd.Click Try Me.BindingContext(DataSet21, "stuinftable").EndCurrentEdit() Me.SqlDataAdapter1.Update(DataSet21.DepartmentTable) MsgBox("添加成功 OK") AddCmd.Text = "继续(&G)" Me.AddCmd.Enabled = True Me.DataGrid1.Select(DataGrid1.CurrentRowIndex) Catch

46、ex As Exception MsgBox("Write Error！", MsgBoxStyle.OkOnly) End Try End Sub Private Sub CancelCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelCmd.Click Me.BindingContext(DataSet21, "DepartmentTable").CancelCurrentEdit() Me.UpdataCmd.Enabled = Fa

47、lse Me.CancelCmd.Enabled = False Me.AddCmd.Enabled = True End Sub Private Sub DeleteCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteCmd.Click Try If MsgBox("确要删除吗？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then DataSet21.DepartmentTable.Rows(Me.BindingCont

48、ext(DataSet21, "DepartmentTable").Position).Delete() Me.SqlDataAdapter1.Update(DataSet21) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub ExitCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitCmd.Click Application.Exit() End Sub P

49、rivate Sub 歌曲管理_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class此为酒水管理Imports System.DataImports System.Data.SqlClientPublic Class 酒水管理 Inherits System.Windows.Forms.Form Private Sub TjBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TjBut.Click Me.TextBox1.Focus() Me.DataGrid1.ReadOnly = False Me.TextBox1.ReadOnly = False Me.TextBox2.ReadOnly = False Try Me.BindingContext(DataSet41, "酒水表").AddNew() Me.FqBut.Enabled = True Me.BcBut.Ena