lineedit.frm

Visual Basic开发的旅游管理系统适合旅游公司使用来对日常业务进行管理

        lblprice2 = ""
      End If
    End If
  End If
  lblTrafAmt = Val(lblprice1) + Val(lblprice2)
  SetAmt
End Sub

Public Sub SetAmt()
  lblCostAmt = Val(lblPlaceAmt) + Val(lblHotelAmt) + Val(lblamuseAmt) _
             + Val(lblResAmt) + Val(lblTrafAmt) + Val(txtOthers) _
             + Val(txtTour)
  lblPrice = Val(lblCostAmt) + Val(txtBenefit)
  If Val(lblPrice) = 0 Then
    lblBrate = 0
  Else
    lblBrate = Trim(Round(Val(txtBenefit) * 100 / Val(lblPrice), 2)) + "%"
  End If
End Sub

Private Sub SetPlaceAmt()
  lblPlaceAmt = Mylplace.SumPrice(MyLine.lid, ComboType.ListIndex + 1)
  SetAmt
End Sub

Private Sub SetHotelAmt()
  lblHotelAmt = Mylhotel.SumPrice(MyLine.lid)
  SetAmt
End Sub

Private Sub SetresAmt()
  lblResAmt = Mylres.SumPrice(MyLine.lid)
  SetAmt
End Sub

Private Sub SetAmuseAmt()
  lblamuseAmt = Mylamuse.SumPrice(MyLine.lid)
  SetAmt
End Sub

Private Sub Cmd_AmuseAdd_Click()
  lamuseEdit.Modify = False
  lamuseEdit.txtAtimes = 1
  lamuseEdit.Show 1
  Refresh_lamuse
End Sub

Private Sub Cmd_AmuseDel_Click()
  Dim TmpId As Integer
  Dim TmpTypeId As Integer
  If Adodc4.Recordset.EOF = True Then
    MsgBox "请选择娱乐厅"
    Exit Sub
  End If
  TmpId = MyAmuse.GetId(Trim(Adodc4.Recordset.Fields(1)))
  TmpId = MyAitem.GetId(TmpId, Trim(Adodc4.Recordset.Fields(2)))
  If MsgBox("是否删除当前行?", vbYesNo, "请确认") = vbYes Then
    Call Mylamuse.Delete(MyLine.lid, TmpId)
    Refresh_lamuse
  End If
End Sub

Private Sub Cmd_AmuseModi_Click()
  Dim TmpId As Integer
  
  If Adodc4.Recordset.EOF = True Then
    MsgBox "请选择娱乐厅"
    Exit Sub
  End If
  
  lamuseEdit.Modify = True
  lamuseEdit.OriAreaName = Adodc4.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc4.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  lamuseEdit.OriType = MyArea.AreaType
  lamuseEdit.OriAmuse = Trim(Adodc4.Recordset.Fields(1))
  TmpId = MyAmuse.GetId(Trim(Adodc4.Recordset.Fields(1)))
  lamuseEdit.OriId = MyAitem.GetId(TmpId, Trim(Adodc4.Recordset.Fields(2)))
  lamuseEdit.OriItem = Trim(Adodc4.Recordset.Fields(2))
  lamuseEdit.txtAtimes = Adodc4.Recordset.Fields(3)
  lamuseEdit.Show 1
  Refresh_lamuse
End Sub

Private Sub Cmd_Close_Click()
  If Modify = False Then
    MyLine.Delete (MyLine.lid)
  End If
  Unload Me
End Sub

Private Sub Cmd_HotelAdd_Click()
  lhotelEdit.Modify = False
  lhotelEdit.ComboRtype.ListIndex = 0
  lhotelEdit.txtRdays = 1
  lhotelEdit.Show 1
  Refresh_lhotel
End Sub

Private Sub Cmd_HotelDel_Click()
  Dim TmpId As Integer
  Dim TmpTypeId As Integer
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择宾馆"
    Exit Sub
  End If
  TmpId = MyHotel.GetId(Trim(Adodc2.Recordset.Fields(1)))
  If MsgBox("是否删除当前行?", vbYesNo, "请确认") = vbYes Then
    Select Case Trim(Adodc2.Recordset.Fields(2))
      Case "经济间"
        TmpTypeId = 1
      Case "双人间"
        TmpTypeId = 2
      Case "三人间"
        TmpTypeId = 3
      Case "四人间"
        TmpTypeId = 4
    End Select
    Call Mylhotel.Delete(MyLine.lid, TmpId, TmpTypeId)
    Refresh_lhotel
  End If
End Sub

Private Sub Cmd_HotelModi_Click()
  Dim TmpId As Integer
  If Adodc2.Recordset.EOF = True Then
    MsgBox "请选择宾馆"
    Exit Sub
  End If
  lhotelEdit.Modify = True
  lhotelEdit.OriAreaName = Adodc2.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc2.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  lhotelEdit.OriType = MyArea.AreaType
  lhotelEdit.OriId = MyHotel.GetId(Trim(Adodc2.Recordset.Fields(1)))
  lhotelEdit.OriHotel = Trim(Adodc2.Recordset.Fields(1))
  Select Case Trim(Adodc2.Recordset.Fields(2))
    Case "经济间"
      lhotelEdit.OriRtype = 1
    Case "双人间"
      lhotelEdit.OriRtype = 2
    Case "三人间"
      lhotelEdit.OriRtype = 3
    Case "四人间"
      lhotelEdit.OriRtype = 4
  End Select
  lhotelEdit.ComboRtype.ListIndex = lhotelEdit.OriRtype - 1
  lhotelEdit.txtRdays = Adodc2.Recordset.Fields(3)
  lhotelEdit.Show 1
  Refresh_lhotel
End Sub

Private Sub Cmd_PlaceAdd_Click()
  lplaceEdit.Modify = False
  lplaceEdit.Show 1
  Refresh_lplace
End Sub

Private Sub Cmd_PlaceDel_Click()
  Dim TmpId As Integer
  
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择景点"
    Exit Sub
  End If
  
  TmpId = MyPlace.GetId(Trim(Adodc1.Recordset.Fields(1)))
  If MsgBox("是否删除当前行?", vbYesNo, "请确认") = vbYes Then
    Call Mylplace.Delete(MyLine.lid, TmpId)
    Refresh_lplace
  End If
End Sub

Private Sub Cmd_PlaceModi_Click()
  Dim TmpId As Integer
  
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择景点"
    Exit Sub
  End If
  
  lplaceEdit.Modify = True
  lplaceEdit.OriAreaName = Adodc1.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc1.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  lplaceEdit.OriType = MyArea.AreaType
  lplaceEdit.OriId = MyPlace.GetId(Trim(Adodc1.Recordset.Fields(1)))
  lplaceEdit.OriPlace = Trim(Adodc1.Recordset.Fields(1))
  lplaceEdit.Show 1
  Refresh_lplace
End Sub

Private Sub Cmd_resAdd_Click()
  lresEdit.Modify = False
  lresEdit.ComboRtype.ListIndex = 0
  lresEdit.txtRtimes = 1
  lresEdit.Show 1
  Refresh_lres
End Sub

Private Sub Cmd_ResDel_Click()
  Dim TmpId As Integer
  Dim TmpTypeId As Integer
  
  If Adodc3.Recordset.EOF = True Then
    MsgBox "请选择餐厅"
    Exit Sub
  End If
  
  TmpId = MyRes.GetId(Trim(Adodc3.Recordset.Fields(1)))
  If MsgBox("是否删除当前行?", vbYesNo, "请确认") = vbYes Then
    If Trim(Adodc3.Recordset.Fields(3)) = "早餐" Then
      TmpTypeId = 1
    Else
      TmpTypeId = 2
    End If
    Call Mylres.Delete(MyLine.lid, TmpId, TmpTypeId)
    Refresh_lres
  End If
End Sub

Private Sub Cmd_resModi_Click()
  Dim TmpId As Integer
  If Adodc3.Recordset.EOF = True Then
    MsgBox "请选择餐厅"
    Exit Sub
  End If
  lresEdit.Modify = True
  lresEdit.OriAreaName = Adodc3.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc3.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  lresEdit.OriType = MyArea.AreaType
  lresEdit.OriId = MyRes.GetId(Trim(Adodc3.Recordset.Fields(1)))
  lresEdit.OriRes = Trim(Adodc3.Recordset.Fields(1))
  Select Case Trim(Adodc3.Recordset.Fields(2))
    Case "早餐"
      lresEdit.OriRtype = 1
    Case "正餐"
      lresEdit.OriRtype = 2
  End Select
  lresEdit.ComboRtype.ListIndex = lresEdit.OriRtype - 1
  lresEdit.txtRtimes = Adodc3.Recordset.Fields(3)
  lresEdit.Show 1
  Refresh_lres
End Sub

Private Sub Cmd_Save_Click()
  If Check = False Then
    Exit Sub
  End If
  With MyLine
  .lname = MakeStr(txtName)
  .ltype = ComboType.ListIndex + 1
  .lday = Val(txtDays)
  .insCom = MakeStr(txtInsCom)
  .insFee = Val(txtInsFee)
  .otherCost = Val(txtOthers)
  .tourPay = Val(txtTour)
  .benefit = Val(txtBenefit)
  .Update (.lid)
  End With
  Unload Me
End Sub

Private Sub Cmd_Trafset_Click()
  If Option1.Value = True Then
    Select Case ComboTraf1.ListIndex
      Case 0
        If lblstation1 <> "" Then
          Call Myltrain.GetInfo(MyLine.lid, 1)
          ltrainEdit.OriId = Myltrain.Tid
          MyTrain1.GetInfo (Myltrain.Tid)
          ltrainEdit.OriTno = MyTrain1.Tno
          ltrainEdit.txtSstation = MyTrain1.Sstation
          ltrainEdit.txtEstation = MyTrain1.Estation
          ltrainEdit.OriTtype = Myltrain.tType
          ltrainEdit.ComboTtype.ListIndex = Myltrain.tType - 1
        End If
        ltrainEdit.Show 1
      Case 1
        If lblstation1 <> "" Then
          Call Mylplane.GetInfo(MyLine.lid, 1)
          lplaneEdit.OriId = Mylplane.Pid
          MyPlane1.GetInfo (Mylplane.Pid)
          lplaneEdit.OriPno = MyPlane1.Pno
          lplaneEdit.txtSairport = MyPlane1.Sairport
          lplaneEdit.txtEairport = MyPlane1.Eairport
        End If
        lplaneEdit.Show 1
      Case Else
        MsgBox "请选择交通工具"
        Exit Sub
    End Select
    Load_traffic (1)
  Else
    Select Case ComboTraf2.ListIndex
      Case 0
        If lblstation1 <> "" Then
          Call Myltrain.GetInfo(MyLine.lid, 2)
          MyTrain1.GetInfo (Myltrain.Tid)
          ltrainEdit.OriId = Myltrain.Tid
          ltrainEdit.OriTno = MyTrain.Tno
          ltrainEdit.txtSstation = MyTrain1.Sstation
          ltrainEdit.txtEstation = MyTrain1.Estation
          ltrainEdit.OriTtype = Myltrain.tType
          ltrainEdit.ComboTtype.ListIndex = Myltrain.tType - 1
        End If
        ltrainEdit.Show 1
      Case 1
        If lblstation1 <> "" Then
          Call Mylplane.GetInfo(MyLine.lid, 2)
          lplaneEdit.OriId = Mylplane.Pid
          MyPlane1.GetInfo (Mylplane.Pid)
          lplaneEdit.OriPno = MyPlane1.Pno
          lplaneEdit.txtSairport = MyPlane1.Sairport
          lplaneEdit.txtEairport = MyPlane1.Eairport
        End If
        lplaneEdit.Show 1
      Case Else
        MsgBox "请选择交通工具"
        Exit Sub
    End Select
    Load_traffic (2)
  End If
End Sub

Private Sub ComboType_Click()
  Refresh_lplace
End Sub

Private Sub Form_Load()
  Refresh_lplace
  Refresh_lhotel
  Refresh_lres
  Refresh_lamuse
  
  Option1.Value = True
  If Modify = True Then
    Load_traffic (1)
    Load_traffic (2)
  End If
End Sub

Private Sub txtBenefit_Change()
  SetAmt
End Sub

Private Sub txtBenefit_KeyPress(KeyAscii As Integer)
  If In_Single(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtOthers_Change()
  SetAmt
End Sub

Private Sub txtOthers_KeyPress(KeyAscii As Integer)
  If In_Single(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtTour_Change()
  SetAmt
End Sub

Private Sub txtTour_KeyPress(KeyAscii As Integer)
  If In_Single(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub