旅游信息管理系统毕业论文 - 图文

河南师范大学新联学院本科毕业论文

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