河南师范大学新联学院本科毕业论文
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