声明：本作品完全由个人创作，对于应付老师留得软件大作业很有帮助（西工大），本作品仅供个人交流学习，不建议作为商业用途，否则后果自负。由于vb软件还有很多参数的设定，在此不变于抓图。因此如果读者完全按照本文档所示结果可能出错，请设置data控件的数据库连接（本作品用access数据库，需要时读者自行建立）以上两个图是程序运行后的部分截图数据库截图（图上的各个名字必须与之对应）Form1截图Form1的代码：Public yonghu As String, mima As StringPublic 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.ShowEnd SubPrivate Sub bumen_Click()Form6.ShowEnd SubPrivate Sub fangcha_Click()Form2.ShowEnd SubPrivate Sub Form_Load()Label1.Top = 1000 初始化两个标签的位置Label2.Top = 1000dingwei 将时针，秒针和分针定位到圆心位置jibie = -1yonghu = mima = End SubPrivate Sub guanli_Click()Form14.ShowEnd SubPrivate Sub Timer1_Timer() 利用定时时钟采用文字的移动Label1.Top = Label1.Top + 10Label2.Top = Label2.Top + 10If Label1.Top = 4700 Then 当文字移到底部时采用重新符值将文字移到顶部Label1.Top = 1000Label2.Top = 1000End If keduEnd SubPrivate Sub dingwei() 将时针，秒针和分针定位到圆心位置x0 = Shape1.Left + Shape1.Width / 2y0 = Shape1.Top + Shape1.Height / 2r0 = Shape1.Width / 2r1 = r0r2 = r0 * 0.85r3 = r0 * 0.9r4 = r0 * 0.75r5 = r0 * 0.48r6 = r0 * 0.56r7 = r0 * 0.65Line1.X1 = x0Line2.X1 = x0Line3.X1 = x0Line1.Y1 = y0Line2.Y1 = y0Line3.Y1 = y0End SubPrivate Sub kedu() 绘制时钟刻度Dim i As Single, du As SingleDim X1 As Single, Y1 As Single, X2 As Single, Y2 As SingleFor i = 0 To 354 Step 6du = i * 3.14159 / 180X1 = 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 iFor i = 30 To 360 Step 30du = i * 3.14159 / 180Form1.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 - 150Form1.CurrentY = Y1 - 100Form1.Print i 30Next iEnd SubPrivate Sub Timer2_Timer() 达到指针的动态效果Dim s1 As Single, m1 As Single, h1 As Single, an1 As Single, an2 As Singles1 = Second(Now)m1 = Minute(Now)h1 = Hour(Now)h1 = h1 Mod 12m1 = m1 + s1 / 60h1 = h1 + m1 / 60an2 = h1 * 3.141592653 / 6Line1.X2 = x0 + r5 * Sin(an2)Line1.Y2 = y0 - r5 * Cos(an2)an1 = m1 * 3.14159 / 30Line2.X2 = x0 + r6 * Sin(an1)Line2.Y2 = y0 - r6 * Cos(an1)an1 = s1 * 3.14159 / 30Line3.X2 = x0 + r7 * Sin(an1)Line3.Y2 = y0 - r7 * Cos(an1)End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 2:Form10.ShowCase 4:Form11.ShowCase 6:Form12.ShowCase 8:Form13.ShowEnd SelectEnd SubPrivate Sub yuangongxx_Click()Form5.ShowEnd SubPrivate Sub yuding_Click()Form3.ShowEnd SubForm2截图Form2代码Private Sub Command1_Click() 上一个Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click() 下一个Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click() 查询If Option1.Value = True ThenData1.RecordSource = select * from 房间信息 where 房间信息.房间类型= 天Data1.RefreshEnd IfIf Option2.Value = True ThenData1.RecordSource = select * from 房间信息 where 房间信息.房间类型= 地Data1.RefreshEnd IfIf Option3.Value = True ThenData1.RecordSource = select * from 房间信息 where 房间信息.房间类型= 人Data1.RefreshEnd IfIf Option4.Value = True ThenData1.RecordSource = 房间信息Data1.RefreshEnd IfCommand1.Enabled = TrueCommand2.Enabled = TrueEnd SubPrivate Sub Command4_Click() 结束Unload MeEnd SubPrivate Sub Form_Load()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = False Data1.DatabaseName = App.Path & 酒店管理系统.mdbEnd SubPrivate Sub Option1_Click() 天Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Option2_Click() 地Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Option3_Click() 人Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Option4_Click() 全部Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubForm3代码Private Sub Command1_Click() querenDim a As StringDim b As IntegerIf Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = ThenMsgBox 信息不完善, , 提示ElseIf 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 IfElseb