酒店管理系统软件大作业.docx
- 文档编号:13077138
- 上传时间:2023-06-10
- 格式:DOCX
- 页数:83
- 大小:5.21MB
酒店管理系统软件大作业.docx
《酒店管理系统软件大作业.docx》由会员分享,可在线阅读,更多相关《酒店管理系统软件大作业.docx(83页珍藏版)》请在冰点文库上搜索。
酒店管理系统软件大作业
声明:
本作品完全由个人创作,对于应付老师留得软件大作业很有帮助(西工大),本作品仅供个人交流学习,不建议作为商业用途,否则后果自负。
由于vb软件还有很多参数的设定,在此不变于抓图。
因此如果读者完全按照本文档所示结果可能出错,请设置data控件的数据库连接(本作品用access数据库,需要时读者自行建立)
以上两个图是程序运行后的部分截图
数据库截图(图上的各个名字必须与之对应)
Form1截图
Form1的代码:
PublicyonghuAsString,mimaAsString
PublicjibieAsInteger'用户的身份级别
Dimr0AsSingle'x0,y0为圆心坐标
Dimr1AsSingle,r2AsSingle,r3AsSingle'r0圆半径,r1时钟刻度外圈半径
Dimr4AsSingle'r2时钟长刻度内圈半径,r3时钟短刻度内半径
Dimr5AsSingle,r6AsSingle,r7AsSingle'r4时钟标注文字半径,r5时钟时针半径,r6时钟分针半径
Dimx0AsSingle,y0AsSingle'r7时钟秒针半径
PrivateSubbangzhu_Click()
Form9.Show
EndSub
PrivateSubbumen_Click()
Form6.Show
EndSub
PrivateSubfangcha_Click()
Form2.Show
EndSub
PrivateSubForm_Load()
Label1.Top=1000'初始化两个标签的位置
Label2.Top=1000
dingwei'将时针,秒针和分针定位到圆心位置
jibie=-1
yonghu=""
mima=""
EndSub
PrivateSubguanli_Click()
Form14.Show
EndSub
PrivateSubTimer1_Timer()'利用定时时钟采用文字的移动
Label1.Top=Label1.Top+10
Label2.Top=Label2.Top+10
IfLabel1.Top=4700Then'当文字移到底部时采用重新符值将文字移到顶部
Label1.Top=1000
Label2.Top=1000
EndIf
kedu
EndSub
PrivateSubdingwei()'将时针,秒针和分针定位到圆心位置
x0=Shape1.Left+Shape1.Width/2
y0=Shape1.Top+Shape1.Height/2
r0=Shape1.Width/2
r1=r0
r2=r0*0.85
r3=r0*0.9
r4=r0*0.75
r5=r0*0.48
r6=r0*0.56
r7=r0*0.65
Line1.X1=x0
Line2.X1=x0
Line3.X1=x0
Line1.Y1=y0
Line2.Y1=y0
Line3.Y1=y0
EndSub
PrivateSubkedu()'绘制时钟刻度
DimiAsSingle,duAsSingle
DimX1AsSingle,Y1AsSingle,X2AsSingle,Y2AsSingle
Fori=0To354Step6
du=i*3.14159/180
X1=x0+r1*Sin(du)
Y1=y0-r1*Cos(du)
X2=x0+r3*Sin(du)
Y2=y0-r3*Cos(du)
Form1.Line(X1,Y1)-(X2,Y2),RGB(0,0,200)
Nexti
Fori=30To360Step30
du=i*3.14159/180
Form1.DrawWidth=IIf(iMod90=0,3,2)
X1=x0+r1*Sin(du)
Y1=y0-r1*Cos(du)
X2=x0+r2*Sin(du)
Y2=y0-r2*Cos(du)
Form1.Line(X1,Y1)-(X2,Y2),RGB(0,0,200)
X1=x0+r4*Sin(du)
Y1=y0-r4*Cos(du)
Form1.CurrentX=X1-150
Form1.CurrentY=Y1-100
Form1.Printi\30
Nexti
EndSub
PrivateSubTimer2_Timer()'达到指针的动态效果
Dims1AsSingle,m1AsSingle,h1AsSingle,an1AsSingle,an2AsSingle
s1=Second(Now)
m1=Minute(Now)
h1=Hour(Now)
h1=h1Mod12
m1=m1+s1/60
h1=h1+m1/60
an2=h1*3.141592653/6
Line1.X2=x0+r5*Sin(an2)
Line1.Y2=y0-r5*Cos(an2)
an1=m1*3.14159/30
Line2.X2=x0+r6*Sin(an1)
Line2.Y2=y0-r6*Cos(an1)
an1=s1*3.14159/30
Line3.X2=x0+r7*Sin(an1)
Line3.Y2=y0-r7*Cos(an1)
EndSub
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case2:
Form10.Show
Case4:
Form11.Show
Case6:
Form12.Show
Case8:
Form13.Show
EndSelect
EndSub
PrivateSubyuangongxx_Click()
Form5.Show
EndSub
PrivateSubyuding_Click()
Form3.Show
EndSub
Form2截图
Form2代码
PrivateSubCommand1_Click()'上一个
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand2_Click()'下一个
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveFirst
EndIf
EndSub
PrivateSubCommand3_Click()'查询
IfOption1.Value=TrueThen
Data1.RecordSource="select*from房间信息where房间信息.房间类型='天'"
Data1.Refresh
EndIf
IfOption2.Value=TrueThen
Data1.RecordSource="select*from房间信息where房间信息.房间类型='地'"
Data1.Refresh
EndIf
IfOption3.Value=TrueThen
Data1.RecordSource="select*from房间信息where房间信息.房间类型='人'"
Data1.Refresh
EndIf
IfOption4.Value=TrueThen
Data1.RecordSource="房间信息"
Data1.Refresh
EndIf
Command1.Enabled=True
Command2.Enabled=True
EndSub
PrivateSubCommand4_Click()'结束
UnloadMe
EndSub
PrivateSubForm_Load()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Data1.DatabaseName=App.Path&"\酒店管理系统.mdb"
EndSub
PrivateSubOption1_Click()'天
Command1.Enabled=False
Command2.Enabled=False
EndSub
PrivateSubOption2_Click()'地
Command1.Enabled=False
Command2.Enabled=False
EndSub
PrivateSubOption3_Click()'人
Command1.Enabled=False
Command2.Enabled=False
EndSub
PrivateSubOption4_Click()'全部
Command1.Enabled=False
Command2.Enabled=False
EndSub
Form3代码
PrivateSubCommand1_Click()'queren
DimaAsString
DimbAsInteger
IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""OrText5.Text=""OrText6.Text=""Then
MsgBox"信息不完善",,"提示"
Else
IfOption6.Value=TrueOrOption5.Value=TrueThen
IfForm16.jieguo=0Then
MsgBox"如果您是会员或内部人员请先登录!
",,"提示"
Form16.Show
EndIf
IfForm16.jieguo=1Then
b=1
EndIf
Else
b=1
EndIf
IfbThen
Data1.Recordset.AddNew
Data1.Recordset.Fields("姓名")=Text5.Text
Data1.Recordset.Fields("房间号")=Text1.Text
Data1.Recordset.Fields("预定入住时间")=Text2.Text
Data1.Recordset.Fields("居住时间")=Text3.Text
Data1.Recordset.Fields("缴纳定金")=Text4.Text
Data1.Recordset.Fields("性别")=Text6.Text
IfOption1.Value=TrueThen
a="天"
EndIf
IfOption2.Value=TrueThen
a="地"
EndIf
IfOption3.Value=TrueThen
a="人"
EndIf
Data2.RecordSource="select*from房间信息where房间信息.房间类型='"&a&"'and房间信息.房间号='"&Text1.Text&"'and房间信息.状态='可用'"
Data2.Refresh
IfData2.Recordset.EOFThen
MsgBox"无此房间或此房间不可用",,"提示"
Data1.UpdateControls
Else
IfOption1.Value=TrueThen
Data1.Recordset.Fields("房间类型")="天"
a="天"
EndIf
IfOption2.Value=TrueThen
Data1.Recordset.Fields("房间类型")="地"
a="地"
EndIf
IfOption3.Value=TrueThen
Data1.Recordset.Fields("房间类型")="人"
a="人"
EndIf
IfOption4.Value=TrueThen
Data1.Recordset.Fields("身份")="普通"
EndIf
IfOption5.Value=TrueThen
Data1.Recordset.Fields("身份")="会员"
EndIf
IfOption6.Value=TrueThen
Data1.Recordset.Fields("身份")="内部人员"
EndIf
Data2.RecordSource="select房间信息.状态from房间信息where房间信息.房间类型='"&a&"'and房间信息.房间号='"&Text1.Text&"'"
Data2.Recordset.Edit
Data2.Recordset.Fields("状态")="预定"
Data2.Recordset.Update
Data1.UpdateRecord
Data1.Refresh
MsgBox"预订成功!
",,"提示"
Form16.jieguo=0
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()'quxiao
Data1.UpdateControls
Data2.UpdateControls
UnloadMe
EndSub
PrivateSubCommand3_Click()'尚不是会员马上注册
Form4.Show
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\酒店管理系统.mdb"
Data2.DatabaseName=App.Path&"\酒店管理系统.mdb"
b=0
Form16.jieguo=0
EndSub
Form4代码
PrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)
EndSub
PrivateSubCommand1_Click()'tijiao
DimaAsString
a=Text1.Text
IfText1.Text<>""Then
IfText3.Text=Text2.TextThen
Data1.RecordSource="select*from会员信息where会员信息.账号='"&a&"'"
Data1.Refresh
IfData1.Recordset.EOFThen
Data1.Recordset.AddNew
Data1.Recordset.Fields("账号")=Text1.Text
Data1.Recordset.Fields("密码")=Text2.Text
Data1.Recordset.Fields("邮箱")=Text4.Text
Data1.UpdateRecord
Else
MsgBox"此账号已被别人占用",,"提示"'此处用于将会员信息输入数据库
GoToba
EndIf
MsgBox"恭喜您顺利成为本酒店会员",,""
UnloadMe
Else
MsgBox"两次输入密码不相符",,"提示"
EndIf
Else
MsgBox"帐号不能为空",,"提示"
EndIf
ba:
EndSub
PrivateSubCommand2_Click()'quexiao
Data1.UpdateControls
UnloadMe
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\酒店管理系统.mdb"
EndSub
Form5代码
PrivateSubCommand1_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
'Data1.RecordSource="select员工信息.姓名,员工信息.部门,员工信息.职位from员工信息"
EndSub
PrivateSubCommand1_Click()'liaojiel
UnloadMe
EndSub
PrivateSubCommand2_Click()'shangyige
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThen
Adodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand3_Click()'xiayige
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveFirst
EndIf
EndSub
Form7代码
PrivateSubCommand1_Click()'zengtian
Data1.Recordset.AddNew
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text5.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
EndSub
PrivateSubCommand2_Click()'xiugai
Data1.Recordset.Edit
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text5.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
EndSub
PrivateSubCommand3_Click()'shanchu
DimaAsInteger
a=MsgBox("确认删除吗",vbYesNo,"提示")
Ifa=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
EndIf
EndSub
PrivateSubCommand4_Click()'fangqi
Data1.UpdateControls
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Data1.Recordset.MoveFirst
EndSub
PrivateSubCommand5_Click()'queren
Data1.Recordset.Update
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Data1.Recordset.MoveFirst
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\酒店管理系统.mdb"
EndSub
Form8代码
PublicjiesAsString
PrivateSubdxx_Click()
Form19.Show
EndSub
PrivateSubfangzong_Click()
Form20.Show
EndSub
PrivateSubForm_Load()
Label1.Caption=Form1.yonghu+"欢迎您"
EndSub
PrivateSubjiesuan_Click()
Form22.Show
EndSub
PrivateSubLabel1_Click()
EndSub
PrivateSubLabel2_Click()'zhuxiao
UnloadMe
Form17.Hide
Form19.Hide
Form18.Hide
Form23.Hide
Form20.Hide
Form21.Hide
Form15.Hide
Form22.Hide
Form24.Hide
Form7.Hide
EndSub
PrivateSublishi_Click()
Form23.Show
EndSub
PrivateSubmimaxiugai_Click()
Form24.Show
EndSub
PrivateSubruzhu_Click()
Form21.Show
End
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 酒店 管理 系统软件 作业