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

酒店管理系统软件(VB)大作业声明:本作品完全由个人创作，对于应付老师留得软件大作业很有帮助(西工大)，本作品仅供个人交流学习，不建议 作为商业用途，否则后果自负。 由于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时钟刻度 时钟短刻度内半径r3时钟长刻度内圈半径， Dim r4 As Single r2外圈半径． 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 + r