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

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

MsgBox \景点编号不能为空！\提示\ Text1.SetFocus Else

SqlRes.AddNew

SqlRes(\ SqlRes(\ SqlRes(\ SqlRes(\ SqlRes(\ SqlRes(\ SqlRes.Update End If End If SqlRes.Close End Sub Private Sub Command3_Click() '删除

ret = MsgBox(\是否要删除\号景点的记录？\ vbYesNo, \提示\ If ret = vbYes Then

SqlCmd.ActiveConnection = SqlCon

SqlCmd.CommandText = \ + Trim(Text1.Text) + \ SqlCmd.Execute End If End Sub

Private Sub Command4_Click() Text1.Text = \ Text2.Text = \

25

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

Text3.Text = \

Text4.Text = \ Text5.Text = \End Sub

Private Sub Command5_Click() Adodc1.Refresh End Sub

Private Sub font_Click() On Error Resume Next

CommonDialog4.Flags = cdlCFEffects CommonDialog4.ShowFont

Text5.FontName = CommonDialog4.FontName Text5.FontSize = CommonDialog4.FontSize Text5.FontBold = CommonDialog4.FontBold Text5.ForeColor = CommonDialog4.color Text5.FontItalic = CommonDialog4.FontItalic Text5.FontStrikethru = CommonDialog4.FontStrikethru Text5.FontUnderline = CommonDialog4.FontUnderline End Sub

Private Sub Form_Load()

SqlCon.open \ Info=False;Data Source=\ Me.Picture = LoadPicture(App.Path + \ Adodc1.Visible=False Text1.Scrollbars=2

Combo1.text=\建筑\

Combo1.AddItem \建筑\

26

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

Combo1.AddItem \湖泊\ Combo1.AddItem \石刻\ Combo1.AddItem \山峰\ Combo1.AddItem \海滨\End Sub

Private Sub Form_Resize()

Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.Height End Sub

Private Sub Form_Unload(Cancel As Integer) SqlCon.Close End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1

Command2_Click Case 2

Command3_Click Case 3

Command1_Click

Case 4

Command5_Click Case 5

Command4_Click Case 6 Me.Hide

End Select

End Sub

27

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

(2)景点信息管理界面

景点信息管理界面如图4.3所示：

图4.3 景点信息管理界面

4.4其他子界面编码及设计效果

游客信息管理界面、导游信息管理界面以及酒店信息管理界面编码内容详见附录。

游客信息管理界面如图4.4所示：

图4.4 游客信息界面

28