游乐园数据库设计界面实现.doc

数据库课程设计报告项目名称：欢型乐园售票管理系统 指导老师：贺亚茹 组名： 纳米立方 组长： 侯 米 组员：陈燕琳、李娜、邵芳 完成日期：2011年12月28日成绩：_数据库课程实习报告模板一、项目名称：欢形乐园售票管理系统二、项目主要功能及技术简介本数据库是名为“欢形乐园”游乐场的售票管理系统,该项目主要实现网上预订和现场持VIP卡购票系统界面。会员通过上网点击进入个人网页预订娱乐项目，根据HX级别可享受相应折扣，游客亦可持VIP卡到售票处自主购票，会员及游客持票入园。其中，我们采用了Visual Basic进行购票系统界面设计，VB窗口的主要功能是进行界面的设计，通过不同控件来完成各个界面的设计三、项目设计1.数据库设计结果（1）、创建数据库程序如下：create database 欢形乐园售票管理数据库on(name = 欢形乐园售票管理数据库,filename = F:data park.mdf,size = 100,maxsize = 500,filegrowth = 50)log on(name = 欢形乐园售票管理信息日志,filename = F:data park_log.ldf,size = 50,maxsize = 100,filegrowth = 20);（2）、创建数据表（同时创建关系完整性）程序如下：娱乐项目(Recreation)项目编号(Rno)、项目名称(Rname)、地址(RAddress)、价格(Rpice)、简介(Rintroduction)、注意事项(Rattention)create table Recreation (Rno char(10) primary key,Rname char(6),Raddress char(20),Rprice smallint,Rintroducion char(60),Rattention char(60);消费记录(Consume)VIP卡号/账号(Vno) 项目名称(Rname) 票价(Rprice) 票数(Ccount) 日期(Cdate)create table Consume(Vno char(10) primary key,Rname char(10),Rprice smallint not null,Ccount smallint,Cdate datetime);VIP卡(VIP)卡号(Vno) 级别(Vlevel) 发行时间(Vdate) 剩余次数(Vcount) 总次数(Vwholenumber)create table VIP(Vno char(10) primary key,Vlevel char(2) check(Vlevel in(年卡,季卡,月卡),Vdate datetime,Vcount int,Vwholenumber int);个人信息(PersonalInformation) 身份证号(IDno) VIP卡号(Vno) 姓名(Pname) 性别(Psex) 电话(Pphone)create table PersonalInformation(IDno char(11) primary key,Vno char(10) foreign key references VIP(Vno),Pname char(10),Psex char(2) check(Psex in(男,女),Pphone char(11) ;个人主页(PersonalHome) 账号(Vno) 网名(Pnetname)、性别(Psex) VIP级别(Plevel) 出生日期(Pdate) 爱好(Plove)create table PersonalHome(Vno char(10) primary key,Pnetname char(6),Psex char(2) check(Psex in(男,女),Plevel char(2) check(Plevel in(初级,中级,高级);卡种表(CardList)卡分类(Csort) 价格(Cprice)create table CardList(Csort char(2) check(Csort in(年卡,季卡,月卡),Cprice smallint);序列号(Series)序列号(Sno) 账号(Vno)create table Serise(Sno char(10) primary key,Vno char(10) foreign key references PersonalHome(Vno);订购信息(OrderInformation)VIP卡号/账号(Vno) 项目编号(Rno) 票数(Ocount) 总价(Cprice)create table OrderInformation(Vno char(10) foreign key references PersonalHome(Vno),Rno char(10) foreign key references Recreation(Rno),Ocount smallint,Cprice smallint not null);系统售票信息(System)记录时间(Sdate) 项目编号(Rno) 项目名称(Rname) 购票次数(Scount) 总收入(Sprice) 游客量(Sperson)create table System(Sdate datetime primary key,Rno char(10) foreign key references Recreation(Rno),Rname char(10),Scount int,Sprice int,Sperson int);假期优惠活动(Vacation)假期活动编号(Vno) 项目编号(Rno) 假期活动名称(Vname) 优惠折扣(Vprice)create table Vacation(Vno char(10) primary key,Rno char(10) foreign key references Recreation(Rno),Vname char(6),Vprice int);卖票人员(LoketMan)职工编号(Lno) 姓名(Lname) 出生日期(Ldate) 性别(Lsex) 职务(Lwork)create table LoketMan(Lno char(10) primary key,Lname char(6),Ldate datetime,Lsex char(2) check(Lsex in(男,女),Lwork char(4);登录信息(Loginin)账号(Vno) 密码(Lcode)create table Loginin(Vno char(10) foreign key references PersonalHome(Vno),Lcode char(10);票(Ticket) VIP卡号/账号(Vno) 项目名称(Rname) 票价(Tprice) 次数(Tcount)create table Ticket(Vno char(10) foreign key references PersonalHome(Vno),Rname char(6),Tprice int,Tcount int);密码表 用户名 密码create table 密码表(用户名 char(10),密码 char(10);2.主要界面设计结果(1)：开始界面 (2)：登陆界面 (3) 个人主页 (4)订票系统 (5)总预订表 (6)消费记录 (7)：管理系统四、项目实现1.建立数据源（）：在控制面板中打开“管理工具”，接着打开“数据源”；（）：选择“系统DSN”选项卡，单击添加按钮，选择“SQL”单击“完成”；（）：名称为“个人主页”，服务器为“HOUMI-THINKSQLEXPRESS”；（）：点击下一步，直到选择默认的数据库为“欢形乐园售票系统”；（）：按照操作提示知道最后确定，数据源创建完毕。2.主要功能实现方法我们的设计界面主要完成了两方面的功能：网上用户登录预订娱乐项目和管理人员管理系统。（）：首先进入开始界面，我们选择了游乐园图片作为背景，衬托出了我们的主题，有进入和退出按钮。（）：点击“进入”来到了登陆界面，从用户名下拉菜单中选择用户名，这样可以防止非法用户进入。在密码中输入密码，密码错误会弹出“提示框”，在这里我们把密码都设置成为用户名“姓的汉语拼音”，在单选按钮中选择“管理员”或者“普通用户”，只有用户名为“管理员”才能进入管理员系统界面，否则弹出“警告框”；（）：选择普通用户点击“”进入个人主页界面，你会看到你的基本个人信息，并且可以选择查看“消费记录”按钮，“订购票”订购娱乐项目，当然也可以直接“取消退出”。（）：点击“订购票”按钮进入娱乐项目界面，查看我们为您精心安排的娱乐项目，如果喜欢的话，可以在输入框中输入您要预订的票编号及数量，点击“确定预订”按钮即预订成功，您可以多次选择您喜欢的不同的娱乐项目，我们都给予支持；（）：确定好后即可点击“结账”进入总预订界面，在这里您可以查看您刚刚预订的信息，如果不满意您可以返回娱乐项目表继续预订，如果确定好后可以点击“结账”按钮即预订成功。当然您也可以选择“取消”按钮退出，进入个人主页面。（）：选择管理员即可进入管理员管理系统界面，在这里作为管理员的您可以对用户信息、娱乐项目进行管理，还可以查看系统收入信息。在娱乐项目、用户信息卡中可以进行添加和修改记录。在右边您可以看到用户的靓照。以上就是我们欢形乐园售票系统界面所实现的全部功能，谢谢您的使用。3.具体程序实现（1）、开始界面Private Sub Command1_Click()Form2.ShowForm1.HideEnd SubPrivate Sub Command2_Click()Form1.HideEnd Sub（2）登陆界面Public userName As StringPrivate Sub Command1_Click()Dim str As Stringstr = select * from 密码表 where 用户名 = & Trim(Combo1.Text) & 链接密码表Adodc1.RecordSource = strAdodc1.RefreshIf Adodc1.Recordset.RecordCount Then If Trim(Text2.Text) = Trim(Adodc1.Recordset.Fields(密码) Then 判断密码是否正确 If Option1.Value Then If Trim(Adodc1.Recordset.Fields(用户名) = 管理员 Then 判断是用户还是管理员 Form7.Show Form2.Hide Combo1.Text = Text2.Text = Else MsgBox 不是管理员，无法进入，请重新输入：, vbOKCancel + vbQuestion, 提示 Combo1.Text = Text2.Text = Combo1.SetFocus End If Else If Option2.Value Then Form3.Show Form2.Hide 打开个人主页面，并显示不同用户信息 Dim str1 As String Print Trim(Combo1.Text) str1 = select * from PersonalHome where Pnetname = & Trim(Combo1.Text) & Form3.Adodc1.RecordSource = str1 Form3.Adodc1.Refresh Form3.Image2.Picture = LoadPicture(E:picture & Trim(Combo1.Text) & .jpg) Combo1.Text = Text2.Text = Else MsgBox 没有选择身份验证，请选择：, vbOKOnly + vbExclamation, 提示 End If End If Else MsgBox 密码错误，请输入：, 0 + 48, 提示 Text2.Text = Text2.SetFocus End IfElse MsgBox 用户名不正确,请输入：, 0 + 48, 提示 Combo1.SetFocus Text2.Text = End IfEnd SubPrivate Sub Command2_Click()Form2.HideForm1.ShowEnd Sub（3）、个人主页Private Sub Command1_Click()Dim str As StringPrint Trim(Text1.Text) str = select * from Consume where vno in (select vno from PersonalHome where pnetname = & Trim(Text1.Text) & )str = select * from consume where vno=1Form6.Adodc1.RecordSource = strForm6.Adodc1.RefreshForm6.ShowForm3.HideEnd SubPrivate Sub Command2_Click()Form4.ShowForm3.HideEnd SubPrivate Sub Command3_Click()Form1.ShowUnload Form3End Sub（4）、订票系统Private Sub Command1_Click()Command3.Enabled = TrueIf Text1.Text = Or Text2.Text = ThenMsgBox 没有选定编号，请选择;, vbOKOnly + vbQuestion, 提示ElseDim str As StringAdodc1.RecordSource = select * from recreation where rno = & Trim(Text1.Text) & Adodc1.RefreshForm6.Adodc1.Recordset.AddNewForm6.Adodc1.Recordset.Fields(vno) = Trim(Text1.Text)Form6.Adodc1.Recordset.Fields(rname) = Trim(Text4.Text)Form6.Adodc1.Recordset.Fields(rprice) = Trim(Text6.Text)Form6.Adodc1.Recordset.Fields(ccount) = Text2.TextForm6.Adodc1.Recordset.Fields(cdate) = 200 & Fix(Rnd(20) & . & Fix(Rnd(12) & . & Fix(Rnd(30)Form6.Adodc1.Recordset.UpdateForm6.Adodc1.RefreshForm5.Adodc1.Recordset.AddNewForm5.Adodc1.Recordset.Fields(项目名称) = Trim(Text4.Text)Form5.Adodc1.Recordset.Fields(价格) = Trim(Text6.Text)Form5.Adodc1.Recordset.Fields(票数) = Text2.TextForm5.Adodc1.Recordset.UpdateForm5.Adodc1.RefreshText1.Text = Text2.Text = Adodc1.RecordSource = select * from recreation Adodc1.RefreshEnd IfText1.SetFocusEnd SubPrivate Sub Command2_Click()If Trim(Text3.Text) = Trim(1) ThenAdodc1.Recordset.MoveLastElseAdodc1.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command3_Click()Form5.ShowForm4.HideEnd SubPrivate Sub Command4_Click()Form3.ShowUnload Form4End SubPrivate Sub Command5_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstAdodc1.RefreshAdodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd Sub（5）、总预定表Private Sub Command1_Click()MsgBox 您已预订成功，欢迎您再次使用！, 48 + 0, 预订成功Unload Form5Form3.ShowDim i As IntegerDim j As IntegerPrint Adodc1.Recordset.RecordCountj = Adodc1.Recordset.RecordCount - 1Adodc1.Recordset.MoveFirstFor i = 0 To j Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextNext iAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload Form5Form3.ShowDim i As IntegerDim j As IntegerPrint Adodc1.Recordset.RecordCountj = Adodc1.Recordset.RecordCount - 1If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstEnd IfFor i = 0 To j Print i Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextNext iAdodc1.RefreshEnd SubPrivate Sub Command3_Click()Form5.HideForm4.ShowEnd Sub（6）、消费记录Private Sub Command1_Click()Form3.ShowForm6.HideEnd Sub（7）、管理员系统界面Private Sub Command1_Click()Form7.HideForm1.ShowEnd SubPrivate Sub Command2_Click()If Text1.Text = Then MsgBox 请选择项目编号中填写您要更改的项目, vbOKOnly + vbExclamation, 提示Else If Trim(Adodc1.Recordset.Fields(rno) Trim(Text1.Text) Then MsgBox 没有在DataGrid中选中要更改的项目，请选择：, vbOKOnly + vbExclamation, 提示 Else If Text2.Text Then Adodc1.Recordset.Fields(Rname) = Trim(Text2.Text) End If If Text4.Text Then Adodc1.Recordset.Fields(RAddress) = Trim(Text4.Text) End If If Text3.Text Then Adodc1.Recordset.Fields(Rprice) = Trim(Text3.Text) End If If Text6.Text Then Adodc1.Recordset.Fields(Rintroducion) = Trim(Text6.Text) End If If Text5.Text Then Adodc1.Recordset.Fields(Rattention) = Trim(Text5.Text) End If Adodc1.Recordset.Update Adodc1.Refresh End IfEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(rno) = Trim(Text1.Text)Adodc1.Recordset.Fields(Rname) = Trim(Text2.Text)Adodc1.Recordset.Fields(RAddress) = Trim(Text4.Text)Adodc1.Recordset.Fields(Rprice) = Trim(Text3.Text)Adodc1.Recordset.Fields(Rintroducion) = Trim(Text6.Text)Adodc1.Recordset.Fields(Rattention) = Trim(Text5.Text)Adodc1.Recordset.UpdateAdodc1.RefreshEnd SubPrivate Sub Command4_Click()Adodc2.Recordset.AddNewAdodc2.Recordset.Fields(Vno) = Trim(Text7.Text)Adodc2.Recordset.Fields(Pnetname) = Trim(Text8.Text)Adodc2.Recordset.Fields(Psex) = Trim(Text10.Text)Adodc2.Recordset.Fields(Plevel) = Trim(Text12.Text)Adodc2.Recordset.Fields(Pdate) = Trim(Text11.Text)Adodc2.Recordset.Fields(Plove) = Trim(Text9.Text)Adodc2.Recordset.UpdateAdodc2.RefreshEnd SubPrivate Sub Command5_Click()If Text7.Text = Then MsgBox 请选择项目编号中填写您要更改的项目, vbOKOnly + vbExclamation, 提示Else If Trim(Adodc2.Recordset.Fields(Vno) Trim(Text7.Text) Then MsgBox 没有在DataGrid中选中要更改的项目，请选择：, vbOKOnly + vbExclamation, 提示 Else If Text12.Text Then Adodc2.Recordset.Fields(Plevel) = Trim(Text12.Text) End If If Text8.Text Then Adodc2.Recordset.Fields(Pnetname) = Trim(Text8.Text) End If If Text9.Text Then Adodc2.Recordset.Fields(Plove) = Trim(Text9.Text) End If If Text10.Text Then Adodc2.Recordset.Fields(Psex) = Trim(Text10.Text) End If If Text11.Text Then Adodc2.Recordset.Fields(Pdate) = Trim(Text11.Text) End If Adodc2.Recordset.Update Adodc2.Refresh Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = End IfEnd IfEnd SubPrivat