frmlineedit.frm

本系统包括用户管理

      Else
        ComboTraf2.ListIndex = -1
        lblstation2 = ""
        lbltype2 = ""
        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()
  FrmlamuseEdit.Modify = False
  FrmlamuseEdit.txtAtimes = 1
  FrmlamuseEdit.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
  
  FrmlamuseEdit.Modify = True
  FrmlamuseEdit.OriAreaName = Adodc4.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc4.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  FrmlamuseEdit.OriType = MyArea.AreaType
  
  '取得娱乐厅数据
  FrmlamuseEdit.OriAmuse = Trim(Adodc4.Recordset.Fields(1))
  TmpId = MyAmuse.GetId(Trim(Adodc4.Recordset.Fields(1)))
  '取得娱乐项目数据
  FrmlamuseEdit.OriId = MyAitem.GetId(TmpId, Trim(Adodc4.Recordset.Fields(2)))
  FrmlamuseEdit.OriItem = Trim(Adodc4.Recordset.Fields(2))
  '娱乐次数
  FrmlamuseEdit.txtAtimes = Adodc4.Recordset.Fields(3)
  
  FrmlamuseEdit.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()
  FrmlhotelEdit.Modify = False
  FrmlhotelEdit.ComboRtype.ListIndex = 0
  FrmlhotelEdit.txtRdays = 1
  FrmlhotelEdit.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
  
  FrmlhotelEdit.Modify = True
  FrmlhotelEdit.OriAreaName = Adodc2.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc2.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  FrmlhotelEdit.OriType = MyArea.AreaType
  FrmlhotelEdit.OriId = MyHotel.GetId(Trim(Adodc2.Recordset.Fields(1)))
  FrmlhotelEdit.OriHotel = Trim(Adodc2.Recordset.Fields(1))
  '房间类型
  Select Case Trim(Adodc2.Recordset.Fields(2))
    Case "经济间"
      FrmlhotelEdit.OriRtype = 1
    Case "双人间"
      FrmlhotelEdit.OriRtype = 2
    Case "三人间"
      FrmlhotelEdit.OriRtype = 3
    Case "四人间"
      FrmlhotelEdit.OriRtype = 4
  End Select
  FrmlhotelEdit.ComboRtype.ListIndex = FrmlhotelEdit.OriRtype - 1
  '住宿天数
  FrmlhotelEdit.txtRdays = Adodc2.Recordset.Fields(3)
  
  FrmlhotelEdit.Show 1
  Refresh_lhotel
End Sub

Private Sub Cmd_PlaceAdd_Click()
  FrmlplaceEdit.Modify = False
  FrmlplaceEdit.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
  
  FrmlplaceEdit.Modify = True
  FrmlplaceEdit.OriAreaName = Adodc1.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc1.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  FrmlplaceEdit.OriType = MyArea.AreaType
  FrmlplaceEdit.OriId = MyPlace.GetId(Trim(Adodc1.Recordset.Fields(1)))
  FrmlplaceEdit.OriPlace = Trim(Adodc1.Recordset.Fields(1))
  FrmlplaceEdit.Show 1
  Refresh_lplace
End Sub

Private Sub Cmd_resAdd_Click()
  FrmlresEdit.Modify = False
  FrmlresEdit.ComboRtype.ListIndex = 0
  FrmlresEdit.txtRtimes = 1
  FrmlresEdit.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
  
  FrmlresEdit.Modify = True
  FrmlresEdit.OriAreaName = Adodc3.Recordset.Fields(0)
  TmpId = MyArea.GetId(Trim(Adodc3.Recordset.Fields(0)))
  MyArea.GetInfo (TmpId)
  FrmlresEdit.OriType = MyArea.AreaType
  FrmlresEdit.OriId = MyRes.GetId(Trim(Adodc3.Recordset.Fields(1)))
  FrmlresEdit.OriRes = Trim(Adodc3.Recordset.Fields(1))
  '房间类型
  Select Case Trim(Adodc3.Recordset.Fields(2))
    Case "早餐"
      FrmlresEdit.OriRtype = 1
    Case "正餐"
      FrmlresEdit.OriRtype = 2
  End Select
  FrmlresEdit.ComboRtype.ListIndex = FrmlresEdit.OriRtype - 1
  '住宿天数
  FrmlresEdit.txtRtimes = Adodc3.Recordset.Fields(3)
  
  FrmlresEdit.Show 1
  Refresh_lres
End Sub

Private Sub Cmd_Save_Click()
  '调用Check()函数，检查输入数据的有效性
  If Check = False Then
    Exit Sub
  End If
  '把用户录入的线路数据赋值到MyLine对象的各个成员函数中
  '因为在添加线路时，已经调用MyLine.Insert生成了一个默认的线路，
  '所以只要调用MyLine.Update对指定的线路进行更新
  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)
          FrmltrainEdit.OriId = Myltrain.Tid
          MyTrain1.GetInfo (Myltrain.Tid)
          FrmltrainEdit.OriTno = MyTrain1.Tno
          FrmltrainEdit.txtSstation = MyTrain1.Sstation
          FrmltrainEdit.txtEstation = MyTrain1.Estation
          FrmltrainEdit.OriTtype = Myltrain.tType
          FrmltrainEdit.ComboTtype.ListIndex = Myltrain.tType - 1
        End If
        FrmltrainEdit.Show 1
      Case 1  '飞机
        If lblstation1 <> "" Then
          Call Mylplane.GetInfo(MyLine.lid, 1)
          FrmlplaneEdit.OriId = Mylplane.Pid
          MyPlane1.GetInfo (Mylplane.Pid)
          FrmlplaneEdit.OriPno = MyPlane1.Pno
          FrmlplaneEdit.txtSairport = MyPlane1.Sairport
          FrmlplaneEdit.txtEairport = MyPlane1.Eairport
        End If
        FrmlplaneEdit.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)
          FrmltrainEdit.OriId = Myltrain.Tid
          FrmltrainEdit.OriTno = MyTrain.Tno
          FrmltrainEdit.txtSstation = MyTrain1.Sstation
          FrmltrainEdit.txtEstation = MyTrain1.Estation
          FrmltrainEdit.OriTtype = Myltrain.tType
          FrmltrainEdit.ComboTtype.ListIndex = Myltrain.tType - 1
        End If
        FrmltrainEdit.Show 1
      Case 1  '飞机
        If lblstation1 <> "" Then
          Call Mylplane.GetInfo(MyLine.lid, 2)
          FrmlplaneEdit.OriId = Mylplane.Pid
          MyPlane1.GetInfo (Mylplane.Pid)
          FrmlplaneEdit.OriPno = MyPlane1.Pno
          FrmlplaneEdit.txtSairport = MyPlane1.Sairport
          FrmlplaneEdit.txtEairport = MyPlane1.Eairport
        End If
        FrmlplaneEdit.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()
  Set