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

声明：本作品完全由个人创作，对于应付老师留得软件大作业很有帮助（西工大），本作品仅供个人交流学习，不建议作为商业用途，否则后果自负。
由于vb软件还有很多参数的设定，在此不变于抓图。因此如果读者完全按照本文档所示结果可能出错，请设置data控件的数据库连接（本作品用access数据库，需要时读者自行建立）

以上两个图是程序运行后的部分截图
数据库截图（图上的各个名字必须与之对应）

Form1截图

Form1的代码：
Public yonghu As String, mima As String
Public jibie As Integer '用户的身份级别
Dim r0 As Single 'x0,y0为圆心坐标
Dim r1 As Single, r2 As Single, r3 As Single 'r0圆半径，r1时钟刻度外圈半径
Dim r4 As Single 'r2时钟长刻度内圈半径，r3时钟短刻度内半径
Dim r5 As Single, r6 As Single, r7 As Single 'r4时钟标注文字半径，r5时钟时针半径，r6时钟分针半径
Dim x0 As Single, y0 As Single 'r7时钟秒针半径

Private Sub bangzhu_Click()
Form9.Show
End Sub

Private Sub bumen_Click()
Form6.Show
End Sub

Private Sub fangcha_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Label1.Top = 1000 '初始化两个标签的位置
Label2.Top = 1000
dingwei '将时针，秒针和分针定位到圆心位置
jibie = -1
yonghu = ""
mima = ""
End Sub

Private Sub guanli_Click()
Form14.Show

End Sub

Private Sub Timer1_Timer() '利用定时时钟采用文字的移动
Label1.Top = Label1.Top + 10
Label2.Top = Label2.Top + 10
If Label1.Top = 4700 Then '当文字移到底部时采用重新符值将文字移到顶部
Label1.Top = 1000
Label2.Top = 1000
End If
kedu
End Sub
Private Sub dingwei() '将时针，秒针和分针定位到圆心位置

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

End Sub
Private Sub kedu() '绘制时钟刻度
Dim i As Single, du As Single
Dim X1 As Single, Y1 As Single, X2 As Single, Y2 As Single

For i = 0 To 354 Step 6
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)
Next i

For i = 30 To 360 Step 30
du = i * 3.14159 / 180
Form1.DrawWidth = IIf(i Mod 90 = 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.Print i \ 30
Next i

End Sub

Private Sub Timer2_Timer() '达到指针的动态效果

Dim s1 As Single, m1 As Single, h1 As Single, an1 As Single, an2 As Single
s1 = Second(Now)
m1 = Minute(Now)
h1 = Hour(Now)
h1 = h1 Mod 12
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)

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 2:
Form10.Show
Case 4:
Form11.Show
Case 6:
Form12.Show
Case 8:
Form13.Show
End Select

End Sub

Private Sub yuangongxx_Click()
Form5.Show
End Sub

Private Sub yuding_Click()
Form3.Show
End Sub
Form2截图

Form2代码
Private Sub Command1_Click() '上一个

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveLast
End If

End Sub

Private Sub Command2_Click() '下一个
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Command3_Click() '查询
If Option1.Value = True Then
Data1.RecordSource = "select * from 房间信息 where 房间信息.房间类型= '天'"
Data1.Refresh
End If

If Option2.Value = True Then
Data1.RecordSource = "select * from 房间信息 where 房间信息.房间类型= '地'"
Data1.Refresh
End If

If Option3.Value = True Then
Data1.RecordSource = "select * from 房间信息 where 房间信息.房间类型= '人'"
Data1.Refresh
End If

If Option4.Value = True Then
Data1.RecordSource = "房间信息"
Data1.Refresh
End If
Command1.Enabled = True
Command2.Enabled = True

End Sub

Private Sub Command4_Click() '结束
Unload Me
End Sub

Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Data1.DatabaseName = App.Path & "\酒店管理系统.mdb"
End Sub

Private Sub Option1_Click() '天
Command1.Enabled = False
Command2.Enabled = False
End Sub

Private Sub Option2_Click() '地
Command1.Enabled = False
Command2.Enabled = False
End Sub

Private Sub Option3_Click() '人
Command1.Enabled = False
Command2.Enabled = False
End Sub

Private Sub Option4_Click() '全部
Command1.Enabled = False
Command2.Enabled = False
End Sub

Form3代码
Private Sub Command1_Click() 'queren

Dim a As String
Dim b As Integer

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then

MsgBox "信息不完善", , "提示"
Else

If Option6.Value = True Or Option5.Value = True Then

If Form16.jieguo = 0 Then
MsgBox "如果您是会员或内部人员请先登录！", , "提示"
Form16.Show
End If

If Form16.jieguo = 1 Then
b = 1
End If

Else
b = 1
End If

If b Then
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

If Option1.Value = True Then
a = "天"
End If

If Option2.Value = True Then
a = "地"
End If

If Option3.Value = True Then
a = "人"
End If

Data2.RecordSource = "select * from 房间信息 where 房间信息.房间类型='" & a & "' and 房间信息.房间号='" & Text1.Text & "' and 房间信息.状态='可用'"
Data2.Refresh

If Data2.Recordset.EOF Then

MsgBox "无此房间或此房间不可用", , "提示"
Data1.UpdateControls

Else

If Option1.Value = True Then
Data1.Recordset.Fields("房间类型") = "天"
a = "天"
End If

If Option2.Value = True Then
Data1.Recordset.Fields("房间类型") = "地"
a = "地"
End If

If Option3.Value = True Then
Data1.Recordset.Fields("房间类型") = "人"
a = "人"
End If

If Option4.Value = True Then
Data1.Recordset.Fields("身份") = "普通"
End If

If Option5.Value = True Then
Data1.Recordset.Fields("身份") = "会员"
End If

If Option6.Value = True Then
Data1.Recordset.Fields("身份") = "内部人员"
End If

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

End If
End If

End If
End Sub

Private Sub Command2_Click() 'quxiao
Data1.UpdateControls
Data2.UpdateControls
Unload Me
End Sub

Private Sub Command3_Click() '尚不是会员马上注册
Form4.Show
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\酒店管理系统.mdb"
Data2.DatabaseName = App.Path & "\酒店管理系统.mdb"
b = 0
Form16.jieguo = 0
End Sub

Form4代码

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

Private Sub Command1_Click() 'tijiao
Dim a As String
a = Text1.Text
If Text1.Text <> "" Then

If Text3.Text = Text2.Text Then

Data1.RecordSource = "select * from 会员信息 where 会员信息.账号='" & a & "'"
Data1.Refresh

If Data1.Recordset.EOF Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("账号") = Text1.Text
Data1.Recordset.Fields("密码") = Text2.Text
Data1.Recordset.Fields("邮箱") = Text4.Text
Data1.UpdateRecord

Else
MsgBox "此账号已被别人占用", , "提示" '此处用于将会员信息输入数据库
GoTo ba
End If

MsgBox "恭喜您顺利成为本酒店会员", , ""
Unload Me
Else
MsgBox "两次输入密码不相符", , "提示"
End If

Else
MsgBox "帐号不能为空", , "提示"

End If
ba:
End Sub

Private Sub Command2_Click() 'quexiao
Data1.UpdateControls
Unload Me
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\酒店管理系统.mdb"
End Sub

Form5代码
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
'Data1.RecordSource = "select 员工信息.姓名,员工信息.部门,员工信息.职位 from 员工信息"
End Sub

Private Sub Command1_Click() 'liao jie l
Unload Me
End Sub

Private Sub Command2_Click() 'shang yi ge

Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveLast
End If

End Sub

Private Sub Command3_Click() 'xia yi ge

Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
End If

End Sub

Form7代码
Private Sub Command1_Click() 'zeng tian
Data1.Recordset.AddNew
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub

Private Sub Command2_Click() 'xiu gai
Data1.Recordset.Edit
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub

Private Sub Command3_Click() 'shan chu
Dim a As Integer
a = MsgBox("确认删除吗", vbYesNo, "提示")
If a = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Command4_Click() 'fang qi
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
End Sub

Private Sub Command5_Click() 'que ren
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
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\酒店管理系统.mdb"
End Sub

Form8代码
Public jies As String
Private Sub dxx_Click()
Form19.Show
End Sub

Private Sub fangzong_Click()
Form20.Show
End Sub

Private Sub Form_Load()
Label1.Caption = Form1.yonghu + "欢迎您"
End Sub

Private Sub jiesuan_Click()

Form22.Show
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click() 'zhu xiao
Unload Me
Form17.Hide
Form19.Hide
Form18.Hide
Form23.Hide
Form20.Hide
Form21.Hide
Form15.Hide
Form22.Hide
Form24.Hide
Form7.Hide
End Sub

Private Sub lishi_Click()
Form23.Show
End Sub

Private Sub mimaxiugai_Click()
Form24.Show
End Sub

Private Sub ruzhu_Click()
Form21.Show
End Sub

Private Sub yd_Click()
Form18.Show
End Sub

Private Sub ygwanzheng_Click()
Form17.Show
End Sub

Private Sub zh_Click()
Form15.Show
End Sub

Private Sub zhineng_Click()
Form7.Show
End Sub

Form9代码
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Text1.Text = " 本系统为本人独立编写，所有密码均为000，在使用过程中可自行更改。"
End Sub

Form10代码
Dim a As Integer

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim b As String, c As String, d As String, e As String, f As String
b = " 秦岭野生大酒店创办于2010，其创始人为著名企业家王秦岭先生。秦岭野生大酒店总部位于秦岭北麓。南有美丽"
c = "富饶的秦岭。在这里你可以享受纯正的家养野生美味，不是野生胜似野生。本酒店所提供的任何食品绝对安全"
d = "卫生。价格也绝对合理公道。 秦岭野生大酒店在全国范围内有十个子公司，近万员工，是名副其实的大企业。"
e = "每个子公司具有六个下属部门，各个部门团结协作共同保障了公司正常运转。 "
f = " 酒店设有天地人三种不同的客房，可供不同阶层的旅客选择，三种客房不同的价位，相同的服务。给旅途劳累的您家的感觉。毫无疑问，秦岭野生大酒店是您结束旅途后最好的选择。"
Text1.Text = b + c + d + e + f
End Sub

Private Sub Timer1_Timer()
If a = 0 Then
Print: Print
FontName = "宋体" '字体类型为宋体
FontSize = 19 '字体大小
Print " 秦岭野生大酒店简介"
a = 0
a = 1
End If

End Sub

Form11代码
Private Sub Command1_Click()
Adodc1.RecordSource = "select 公司业绩.月份,公司业绩.收入 from 公司业绩 where 公司业绩.年份='" & Text1.Text & "' group by 公司业绩.月份,公司业绩.收入 order by 公司业绩.月份"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "无此年份", , "提示"
Adodc1.RecordSource = "select 公司业绩.月份,公司业绩.收入 from 公司业绩 where 公司业绩.年份='2009' group by 公司业绩.月份,公司业绩.收入 order by 公司业绩.月份"
Adodc1.Refresh
Text1.Text = 2009
End If

End Sub

Private Sub Form_Load()
'Adodc1.RecordSource = "select 公司业绩.月份,公司业绩.收入 from 公司业绩 where 公司业绩.年份='2009' group by 公司业绩.月份,公司业绩.收入 order by 月份 desc"

End Sub

Form12代码
无代码

Form13代码

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Form14代码
Private Sub Command1_Click() 'que ren
Form1.yonghu = Text1.Text
Form1.mima = Text2.Text

Data1.RecordSource = "select * from 员工信息,董事会信息 where 员工信息.姓名 ='" & Form1.yonghu & "' and 员工信息.密码 ='" & Form1.mima & "'or 董事会信息.姓名 ='" & Form1.yonghu & "' and 董事会信息.密码 ='" & Form1.mima & "'"
Data1.Refresh

If Not Data1.Recordset.EOF Then '此处用来和数据库进行比较 记得给form1.jibie赋值
Unload Me

Form8.Show
Else
Unload Me
i = MsgBox("对不起您输入的帐号和密码不符", , "提示")
End If

End Sub

Private Sub Command2_Click() 'qu xiao
Unload Me
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\酒店管理系统.mdb"
Label3.Caption = "公司管理界面只有公司内部人员方可进入如果您为公司内部人员请输入您的用户名和密码 "
End Sub

Form15代码
Dim cnn As ADODB.Connection '记录集对象
Dim rs As New ADODB.Recordset '数据库连接对象
Private Sub Command1_Click() 'shou ge
rs.MoveFirst
fuzhi
End Sub

Private Sub Command2_Click() 'xia yi ge
rs.MoveNext
If rs.EOF Then
rs.MoveFirst
End If
fuzhi
End Sub

Private Sub Command3_Click() ' shang yi ge
rs.MovePrevious
If rs.BOF Then
rs.MoveLast
End If
fuzhi
End Sub

Private Sub Command4_Click() ' mo wei
rs.MoveLast
fuzhi
End Sub

Private Sub Command5_Click() ' jie shu
Unload Me
End Sub

Private Sub Command6_Click() 'cha xun
Dim leixing As String, duixing As String, shuru1 As String, shijan As String, a As String

shuru1 = InputBox$("请输入查找目标", "查找框")

If Option1.Value = True Then
leixing = "= '" & shuru1 & "'"
End If

If Option2.Value = True Then
leixing = "like '%" & shuru1 & "%'"
End If

If Option3.Value = True Then
duixiang = "姓名 "
End If

If Option4.Value = True Then
duixiang = "性别 "
End If

If Option5.Value = True Then
duixiang = "住房类型 "
End If

If Option6.Value = True Then
duixiang = "证件号 "
End If

If Option7.Value = True Then
duixiang = "房间号 "
End If

If Option8.Value = True Then
Set cnn = New ADODB.Connection
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\酒店管理系统.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open " select * from 当前住户信息 where 当前住户信息." & duixiang & leixing, cnn, adOpenDynamic, adLockBatchOptimistic
If rs.EOF And rs.BOF Then
MsgBox "无您要查找的信息", , "提示"
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
fuzhi
End If
End If

If Option9.Value = True Then
Set cnn = New ADODB.Connection
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\酒店管理系统.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open " select * from 历史住户信息 where 历史住户信息." & duixiang & leixing, cnn, a