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

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

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