发布时间 : 星期二 文章旅游信息管理系统毕业论文 - 图文更新完毕开始阅读
河南师范大学新联学院本科毕业论文
Text2.Text = \ Text2.SetFocus
ElseIf rs.Fields(\ Select Case rs.Fields(\ Case 0
If Option1.Value = True Then Me.Hide Form2.Show
Form2.StatusBar1.Panels(2).Text = \当前用户：\ & Text1.Text Else
MsgBox \您没有此权限\提示\ End If Case 1
If Option2.Value = True Then Me.Hide Form2.Show
Form2.StatusBar1.Panels(2).Text = \当前用户：\ & Text1.Text Else
MsgBox \您没有此权限\提示\ End If End Select Else
MsgBox (\密码输入错误，请重新输入！\提示\ Text2.Text = \ Text2.SetFocus End If End If End If
17
河南师范大学新联学院本科毕业论文
End Sub
Private Sub Form_Load()
SetWindowRgn Me.hWnd, CreateRoundRectRgn(0, 0, Width / 15, Height / 15, 20,
20), True
Set Conn = New ADODB.Connection Set rs = New ADODB.Recordset
Conn.Open \ Data Source=\ rs.Open \ Me.Picture = LoadPicture(App.Path + \ Option1.Value=True End Sub
Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.Height End Sub
Private Sub Timer1_Timer() Timer1.Interval=100
If Label3.Left > Me.Width - Label3.Width Then Me.Tag = 2
ElseIf Label3.Left < 0 Then Me.Tag = 1 End If
If Me.Tag = 1 Then
Label3.Left = Label3.Left + 100 ElseIf Me.Tag = 2 Then
Label3.Left = Label3.Left - 100
End If
18河南师范大学新联学院本科毕业论文
End Sub
（3）登录模块界面
登录模块界面如图4.1所示：
图4.1 登录界面
4.2主界面模块编码及实现
（1）主界面代码如下： Private Sub exit_Click() End End Sub
Private Sub Form_click() Randomize For x = 1 To 255
green = Int(Rnd * 255 + 1) blue = Int(Rnd * 255 + 1) Me.CurrentX = 400 + x Me.CurrentY = 300 + x
Me.ForeColor = RGB(x, green, blue) Print \欢迎来到旅游信息系统！\ Next
19
河南师范大学新联学院本科毕业论文
End Sub
Private Sub Form_Load() i = 0
Me.Picture = LoadPicture(App.Path + \ Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , \旅游信息管理系统\ Set nodx = TreeView1.Nodes.Add(\ \景点信息管理\
Set nodx = TreeView1.Nodes.Add(\ \人员信息管理\
Set nodx = TreeView1.Nodes.Add(\ \酒店信息管理\
Set nodx = TreeView1.Nodes.Add(\游客信息\ Set nodx = TreeView1.Nodes.Add(\导游信息\ Set nodx = TreeView1.Nodes.Add(\ \用户登录信息\ nodx.EnsureVisible End Sub
Private Sub Image1_Click() If Timer1.Enabled = True Then Timer1.Enabled = Flase Else
Timer1.Enabled = True End If End Sub
Private Sub open_Click() On Error Resume Next Dim StrTxt$
20