酒店管理系统软件VB大作业.docx

酒店管理系统软件VB大作业.docx

《酒店管理系统软件VB大作业.docx》由会员分享，可在线阅读，更多相关《酒店管理系统软件VB大作业.docx（83页珍藏版）》请在冰点文库上搜索。

酒店管理系统软件VB大作业

声明：

本作品完全由个人创作，对于应付老师留得软件大作业很有帮助（西工大），本作品仅供个人交流学习，不建议作为商业用途，否则后果自负。

由于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

En