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

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

CommonDialog1.InitDir = \

CommonDialog1.Filter = \文档(*.doc)|*.doc|文本文件_(*.txt)|*.txt|

所有文件(*.*)|*.*\

CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen Text1.Text = \

Open CommonDialog1.FileName For Input As #1

If Err.Number = 0 Then Do While Not EOF(1) Line Input #1, StrTxt

Text1 = Text1 + StrTxt + vbCrLf Loop Close #1 End If End Sub

Private Sub print_Click() Dim i As Integer

CommonDialog3.ShowPrinter Printer.EndDoc End Sub

Private Sub save_Click() On Error Resume Next CommonDialog2.InitDir = \

CommonDialog2.Filter = \文档(*.doc)|*.doc|文本文件_(*.txt)|*.txt| 所有文件 (*.*)|*.*\

CommonDialog2.DefaultExt = \ CommonDialog2.ShowSave

Open CommonDialog2.FileName For Output As #2

21

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

For i = 1 To Len(Text1)

Print #2, Mid$(Text1, i, 1)

Next i Close #2 End Sub

Private Sub Timer1_Timer() Static i As Integer Timer1.Interval=2800 i = (i + 1) Mod 5

Image1.Picture = LoadPicture(App.Path & \End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If Node.Text = \景点信息管理\ Form4.Show End If

If Node.Text = \游客信息\ Form1.Show End If

If Node.Text = \导游信息\ Form6.Show End If

If Node.Text = \用户登录信息\ Form7.Show End If

If Node.Text = \酒店信息管理\ Form2.Hide Form5.Show End If

22

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

End Sub

（2）主界面效果图

主界面设计效果如图4.2所示：

图4.2 主界面

4.3景点信息编码及实现

（1）景点信息界面编码如下：

Private SqlCon As New ADODB.Connection Private SqlRes As New ADODB.Recordset Private SqlCmd As New ADODB.Command Private Sub Command1_Click() '查找 Dim SqlStr As String

Adodc1.RecordSource = \ vw Where vsbh ='\ & \ SqlStr = \

If Trim(Text1) <> \

SqlStr = \ End If

If Trim(Text2) <> \

23

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

SqlStr = \ End If

SqlStr = \

SqlRes.open SqlStr, SqlCon, adOpenDynamic, adLockPessimistic If Not SqlRes.EOF Then Text1.Text = SqlRes(\ Text2.Text = SqlRes(\ Text3.Text = SqlRes(\ Text4.Text = SqlRes(\ Combo1.Text = SqlRes(\ Text5.Text = SqlRes(\ Else

MsgBox \没有此信息!\警告\ End If SqlRes.Close End Sub

Private Sub Command2_Click() '增加 Dim SqlStr As String

SqlStr = \ SqlRes.open SqlStr, SqlCon, adOpenDynamic, adLockPessimistic If Not SqlRes.EOF Then

SqlRes(\ SqlRes(\ SqlRes(\ SqlRes(\ SqlRes(\ SqlRes.Update Else

If Text1.Text = \

24