酒店管理系统软件大作业

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

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