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 =
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1