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

来源：用户分享时间：2025/8/10 6:11:09 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

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

Private Sub Command2_Click()

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

SqlCmd.ActiveConnection = SqlCon

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

Private Sub Command3_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 = \

MsgBox \游客编号不能为空！\提示\ Text1.SetFocus Else

SqlRes.AddNew SqlRes(\ SqlRes(\

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

SqlRes(\

SqlRes(\ SqlRes(\ SqlRes(\ SqlRes.Update End If End If SqlRes.Close End Sub

Private Sub Command4_Click() Adodc1.Refresh End Sub

Private Sub Form_Load()

SqlCon.Open \ Info=False;Data Source=\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

Command3_Click Case 2

Command2_Click

Case 3

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

Command1_Click Case 4

Command4_Click Case 5

Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \

Text5.Text = \

Text6.Text = \ Case 6 Me.Hide End Select End Sub

2导游信息管理界面程序设计

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 SqlStr = \

If Trim(Text1) <> \

SqlStr = \ End If

If Trim(Text2) <> \

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(\ Text5.Text = SqlRes(\ Else

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

Private Sub Command2_Click()

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

SqlCmd.ActiveConnection = SqlCon

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

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

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

搜索更多关于：旅游信息管理系统毕业论文 - 图文的文档

旅游信息管理系统毕业论文 - 图文.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c1d56v64gat555jc3wyfx_11.html（转载请注明文章来源）