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

1、游乐园数据库设计界面实现数据库课程设计报告项目名称：欢型乐园售票管理系统 指导老师：贺亚茹 组名： 纳米立方 组长： 侯 米 组员：陈燕琳、李娜、邵芳 完成日期：2011年12月28日成绩：_数据库课程实习报告模板一、项目名称：欢形乐园售票管理系统二、项目主要功能及技术简介本数据库是名为“欢形乐园”游乐场的售票管理系统,该项目主要实现网上预订和现场持VIP卡购票系统界面。会员通过上网点击进入个人网页预订娱乐项目，根据HX级别可享受相应折扣，游客亦可持VIP卡到售票处自主购票，会员及游客持票入园。其中，我们采用了Visual Basic进行购票系统界面设计，VB窗口的主要功能是进行界面的设计，通

2、过不同控件来完成各个界面的设计三、项目设计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

3、) 项目编号(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 t

4、able 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,Vwholenumb

5、er 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

6、) 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);序列号(Serie

7、s) 序列号(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 refer

8、ences 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);假

9、期优惠活动(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

10、,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 r

11、eferences 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-THINKSQLEXPR

12、ESS”；（）：点击下一步，直到选择默认的数据库为“欢形乐园售票系统”；（）：按照操作提示知道最后确定，数据源创建完毕。2.主要功能实现方法我们的设计界面主要完成了两方面的功能：网上用户登录预订娱乐项目和管理人员管理系统。（）：首先进入开始界面，我们选择了游乐园图片作为背景，衬托出了我们的主题，有进入和退出按钮。（）：点击“进入”来到了登陆界面，从用户名下拉菜单中选择用户名，这样可以防止非法用户进入。在密码中输入密码，密码错误会弹出“提示框”，在这里我们把密码都设置成为用户名“姓的汉语拼音”，在单选按钮中选择“管理员”或者“普通用户”，只有用户名为“管理员”才能进入管理员系统界面，否则弹出“警

13、告框”；（）：选择普通用户点击“”进入个人主页界面，你会看到你的基本个人信息，并且可以选择查看“消费记录”按钮，“订购票”订购娱乐项目，当然也可以直接“取消退出”。（）：点击“订购票”按钮进入娱乐项目界面，查看我们为您精心安排的娱乐项目，如果喜欢的话，可以在输入框中输入您要预订的票编号及数量，点击“确定预订”按钮即预订成功，您可以多次选择您喜欢的不同的娱乐项目，我们都给予支持；（）：确定好后即可点击“结账”进入总预订界面，在这里您可以查看您刚刚预订的信息，如果不满意您可以返回娱乐项目表继续预订，如果确定好后可以点击“结账”按钮即预订成功。当然您也可以选择“取消”按钮退出，进入个人主页面。（）：

14、选择管理员即可进入管理员管理系统界面，在这里作为管理员的您可以对用户信息、娱乐项目进行管理，还可以查看系统收入信息。在娱乐项目、用户信息卡中可以进行添加和修改记录。在右边您可以看到用户的靓照。以上就是我们欢形乐园售票系统界面所实现的全部功能，谢谢您的使用。3.具体程序实现（1）、开始界面Private Sub Command1_Click()Form2.ShowForm1.HideEnd SubPrivate Sub Command2_Click()Form1.HideEnd Sub（2）登陆界面Public userName As StringPrivate Sub Command1_Cli

15、ck()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 =