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