发布时间 : 星期二 文章旅游信息管理系统毕业论文 - 图文更新完毕开始阅读
河南师范大学新联学院本科毕业论文
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