frmlease.frm

出租车管理系统 功能强大

    FrmLeaseAddEdit.txtRate = MyLease.Rate * 10
    FrmLeaseAddEdit.txtUserName = Trim(MyLease.UserName)
    If Trim(MyLease.LeaseMode) = "日" Then
      FrmLeaseAddEdit.txtWorkDays = MyLease.WorkDays
      FrmLeaseAddEdit.txtWeekEndCount = MyLease.WeekEndCount
      FrmLeaseAddEdit.Label13.Caption = "工作日"
      FrmLeaseAddEdit.txtCost = MyLease.WorkDays * MyLease.Price1 + MyLease.WorkDays * MyLease.Price2
      FrmLeaseAddEdit.txtWeekEndCount.Enabled = True
    ElseIf Trim(MyLease.LeaseMode) = "周" Then
      FrmLeaseAddEdit.txtWorkDays = MyLease.WorkDays
      FrmLeaseAddEdit.txtWeekEndCount = 0
      FrmLeaseAddEdit.Label13.Caption = "周数"
      FrmLeaseAddEdit.Label14.Caption = "个"
      FrmLeaseAddEdit.Label19.Caption = "周末数"
      FrmLeaseAddEdit.txtCost = MyLease.WorkDays * MyLease.Price1
      FrmLeaseAddEdit.Label19.Enabled = False
      FrmLeaseAddEdit.Label20.Enabled = False
      FrmLeaseAddEdit.txtWeekEndCount.Enabled = False
    ElseIf Trim(MyLease.LeaseMode) = "月" Then
      FrmLeaseAddEdit.txtWorkDays = MyLease.WorkDays
      FrmLeaseAddEdit.txtWeekEndCount = 0
      FrmLeaseAddEdit.Label13.Caption = "月份数"
      FrmLeaseAddEdit.Label14.Caption = "个"
      FrmLeaseAddEdit.Label19.Caption = "周末数"
      FrmLeaseAddEdit.txtCost = MyLease.WorkDays * MyLease.Price1
      FrmLeaseAddEdit.Label19.Enabled = False
      FrmLeaseAddEdit.Label20.Enabled = False
      FrmLeaseAddEdit.txtWeekEndCount.Enabled = False
    End If
  End If
  FrmLeaseAddEdit.CarRefresh
  FrmLeaseAddEdit.CustomerRefresh
  FrmLeaseAddEdit.txtContractNo.Enabled = False
  FrmLeaseAddEdit.Show 1
  GridRefresh
End Sub
Private Sub Cmd_ContCheck_Click()
  If Adodc1.Recordset.EOF Then
    MsgBox ("请选择记录")
    Exit Sub
  End If
  If MsgBox("是否审核确认了续租合同", vbYesNo, "请确认") = vbNo Then
    Exit Sub
  End If
  With MyLease
    .Status = "续租审核"
    .UpdateStatus (Trim(Adodc1.Recordset.Fields(0)))
  End With
  GridRefresh
End Sub

Private Sub Cmd_Exit_Click()
  Unload Me
End Sub

Private Sub Cmd_Modi_Click()
  If Adodc1.Recordset.EOF Then
    MsgBox ("请选择记录")
    Exit Sub
  End If
  FrmLeaseEdit.Modify = True
  FrmLeaseEdit.ContractNo = Trim(Adodc1.Recordset.Fields(0))
  FrmLeaseEdit.sCarNo = Trim(Adodc1.Recordset.Fields(1))
  FrmLeaseEdit.sCustId = Trim(Adodc1.Recordset.Fields(2))
  FrmLeaseEdit.txtContractNo = Trim(Adodc1.Recordset.Fields(0))
  FrmLeaseEdit.txtCarNo = Trim(Adodc1.Recordset.Fields(1))
  FrmLeaseEdit.txtCustId = Trim(Adodc1.Recordset.Fields(2))
  FrmLeaseEdit.cob_Mode.Text = Trim(Adodc1.Recordset.Fields(4))
  FrmLeaseEdit.txtLeaseTime = Trim(Adodc1.Recordset.Fields(3))
  FrmLeaseEdit.txtReturnTime = Trim(Adodc1.Recordset.Fields(5))
  If MyLease.GetInfo(Trim(Adodc1.Recordset.Fields(0))) = True Then
    FrmLeaseEdit.txtWorkDays.Enabled = True
    FrmLeaseEdit.Label13.Enabled = True
    FrmLeaseEdit.Label14.Enabled = True
    If Trim(MyLease.LeaseMode) = "日" Then
      FrmLeaseEdit.txtWorkDays = MyLease.WorkDays
      FrmLeaseEdit.txtWeekEndCount = MyLease.WeekEndCount
      FrmLeaseEdit.txtWeekEndCount.Enabled = True
      FrmLeaseEdit.Label13.Caption = "工作日"
      FrmLeaseEdit.Label19.Enabled = True
      FrmLeaseEdit.Label20.Enabled = True
    ElseIf Trim(MyLease.LeaseMode) = "周" Then
      FrmLeaseEdit.txtWorkDays = MyLease.WorkDays
      FrmLeaseEdit.txtWeekEndCount = 0
      FrmLeaseEdit.txtWeekEndCount.Enabled = False
      FrmLeaseEdit.Label13.Caption = "周数"
      FrmLeaseEdit.Label19.Enabled = False
      FrmLeaseEdit.Label20.Enabled = False
    ElseIf Trim(MyLease.LeaseMode) = "月" Then
      FrmLeaseEdit.txtWorkDays = MyLease.WorkDays
      FrmLeaseEdit.txtWeekEndCount = 0
      FrmLeaseEdit.txtWeekEndCount.Enabled = False
      FrmLeaseEdit.Label13.Caption = "月份数"
      FrmLeaseEdit.Label19.Enabled = False
      FrmLeaseEdit.Label20.Enabled = False
    End If
    FrmLeaseEdit.txtOutKM = MyLease.OutKM
    FrmLeaseEdit.txtCost = MyLease.Total
    FrmLeaseEdit.txtUserName = Trim(MyLease.UserName)
  End If
  
  FrmLeaseEdit.CarRefresh
  FrmLeaseEdit.CarPriceRefresh
  FrmLeaseEdit.CustomerRefresh

  FrmLeaseEdit.Show 1
  GridRefresh
End Sub

Private Sub Cmd_Check_Click()
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  If MsgBox("是否审核确认了租赁合同", vbYesNo, "请确认") = vbNo Then
    Exit Sub
  End If
  MyLease.Status = "出租审核"
  MyLease.UpdateStatus (Adodc1.Recordset.Fields(0))
  GridRefresh
End Sub

Private Sub Cmd_Del_Click()
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  If MsgBox("是否确定要删除租赁信息", vbYesNo, "请确认") = vbNo Then
    Exit Sub
  End If
  MyLease.Delete (Adodc1.Recordset.Fields(0))
   MsgBox "成功", vbInformation
  GridRefresh
End Sub

Private Sub Cmd_Print_Click()
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择打印的合同"
    Exit Sub
  End If
  Dim wdoc As Object
  Dim wapp As Object
  Dim mytable As Object
  Dim arow As Object
  Dim wordfile As String
  
  wordfile = "Contract.doc"
  If Dir(wordfile) = "" Then
    MsgBox "打印文件Contract.doc丢失，请与管理员联系"
    Exit Sub
  End If
  Set wdoc = CreateObject("Word.Application")
  wdoc.Visible = True
  Call wdoc.Documents.Open(App.Path + "\" + wordfile, ReadOnly:=True, Revert:=True)
  Set mytable = wdoc.ActiveDocument.Tables(1)
  MyLease.GetInfo (Trim(Adodc1.Recordset.Fields(0)))
  mytable.Cell(2, 1).Range.Delete
  mytable.Cell(2, 1).Range.InsertAfter "合同编号：" + Trim(Adodc1.Recordset.Fields(0))
  mytable.Cell(2, 2).Range.Delete
  mytable.Cell(2, 2).Range.InsertAfter "打印时间：" + Trim(Str(Now))
  mytable.Cell(3, 2).Range.Delete
  mytable.Cell(3, 2).Range.InsertAfter "      汽车租赁公司"
    Set mytable = wdoc.ActiveDocument.Tables(2)
  MyCar.GetInfo (Trim(MyLease.CarNo))
  mytable.Cell(1, 2).Range.InsertAfter Trim(MyLease.CarNo)
  mytable.Cell(1, 4).Range.InsertAfter Trim(MyCar.CarName)
  mytable.Cell(2, 2).Range.InsertAfter Trim(MyType.GetTypeNames(Trim(Str(MyCar.TypeId))))
  mytable.Cell(2, 4).Range.InsertAfter Trim(MyCar.Color)
  mytable.Cell(3, 2).Range.InsertAfter Trim(MyCar.EngineNo)
  mytable.Cell(3, 4).Range.InsertAfter Trim(MyCar.CarCase)
  mytable.Cell(4, 2).Range.InsertAfter Trim(MyCar.TypeId)
  mytable.Cell(4, 4).Range.InsertAfter Trim(MyType.GetTypeNames(Trim(MyCar.InsurType)))
  mytable.Cell(5, 2).Range.InsertAfter Trim(MyCar.InsurSdate)
  mytable.Cell(5, 4).Range.InsertAfter Trim(MyCar.InsurEdate)

  Set mytable = wdoc.ActiveDocument.Tables(3)
  mytable.Cell(1, 2).Range.InsertAfter Trim(Str(MyLease.Deposit))
  mytable.Cell(1, 4).Range.InsertAfter Trim(Str(MyCar.DayKM))
  sMode = Trim(MyLease.LeaseMode)
  mytable.Cell(2, 2).Range.InsertAfter sMode
  mytable.Cell(2, 4).Range.InsertAfter Trim(Str(MyLease.OPrice2))
  mytable.Cell(3, 2).Range.InsertAfter Trim(Str(MyLease.Price1))
  mytable.Cell(3, 4).Range.InsertAfter Trim(Str(MyLease.OPrice1))
  mytable.Cell(4, 2).Range.InsertAfter Trim(Str(MyLease.WorkDays))
  mytable.Cell(4, 4).Range.InsertAfter Trim(Str(MyLease.Rate))
  
  mytable.Cell(3, 1).Range.Delete
  mytable.Cell(4, 1).Range.Delete
  If sMode = "日" Then
    mytable.Cell(3, 1).Range.InsertAfter "每日租金（元/日）"
    mytable.Cell(4, 1).Range.InsertAfter "租赁天数（工作日）"
    mytable.Cell(5, 2).Range.InsertAfter Trim(Str(MyLease.Price2))
    mytable.Cell(5, 4).Range.InsertAfter Trim(Str(MyLease.WeekEndCount))
  ElseIf sMode = "周" Then
    mytable.Cell(3, 1).Range.InsertAfter "每周租金（元/周）"
    mytable.Cell(4, 1).Range.InsertAfter "租赁周数"
    mytable.Cell(5, 1).Range.Delete
    mytable.Rows(5).Select
    wdoc.Selection.Cut
  ElseIf sMode = "月" Then
    mytable.Cell(3, 1).Range.InsertAfter "每月租金（元/月）"
    mytable.Cell(4, 1).Range.InsertAfter "租赁月数"
    mytable.Rows(5).Select
    wdoc.Selection.Cut
  End If
  
  MyCustomer.GetInfo (Trim(MyLease.CustId))
  Set mytable = wdoc.ActiveDocument.Tables(4)
  mytable.Cell(1, 2).Range.InsertAfter Trim(MyLease.CustId)
  mytable.Cell(1, 4).Range.InsertAfter Trim(MyCustomer.Name)
  mytable.Cell(2, 2).Range.InsertAfter Trim(MyCustomer.Sex)
  mytable.Cell(2, 4).Range.InsertAfter Trim(Str(MyCustomer.Age))
  mytable.Cell(3, 2).Range.InsertAfter Trim(MyCustomer.IdCard)
  mytable.Cell(3, 4).Range.InsertAfter Trim(MyCustomer.Telephone)
  mytable.Cell(4, 2).Range.InsertAfter Trim(MyCustomer.WorkPlace)
  mytable.Cell(4, 4).Range.InsertAfter Trim(MyCustomer.Address)
  mytable.Cell(5, 2).Range.InsertAfter Trim(MyCustomer.LicenseNo)
  mytable.Cell(5, 4).Range.InsertAfter Trim(MyCustomer.LicenseType)
  mytable.Cell(6, 2).Range.InsertAfter Trim(MyCustomer.GetDate)
  mytable.Cell(6, 4).Range.InsertAfter Trim(MyCustomer.ExpiredDate)
  mytable.Cell(7, 2).Range.InsertAfter Trim(MyCustomer.Certificate)
  mytable.Cell(7, 4).Range.InsertAfter Trim(MyCustomer.Warrantor)
  mytable.Cell(8, 2).Range.InsertAfter Trim(MyCustomer.WIdCard)
  mytable.Cell(8, 4).Range.InsertAfter Trim(MyCustomer.WWorkPlace)

 
  MyCustomer.GetInfo (Trim(MyLease.CustId))
  Set mytable = wdoc.ActiveDocument.Tables(5)
  mytable.Cell(1, 2).Range.InsertAfter Trim(MyLease.LeaseTime)
  mytable.Cell(1, 4).Range.InsertAfter Trim(MyLease.ReturnTime)
  mytable.Cell(2, 2).Range.InsertAfter Trim(Str(MyLease.OutKM))
  wdoc.ActiveDocument.PrintOut
  MsgBox "打印作业已提交，打印完成后按 确定 结束"
  wdoc.Quit (0)
  Set wdoc = Nothing
End Sub

Private Sub cob_Status_Click()
  GridRefresh
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
  If Trim(Adodc1.Recordset.Fields(6)) = "出租" Then
    Cmd_Modi.Enabled = True
    Cmd_Del.Enabled = True
    Cmd_Check.Enabled = True
    Cmd_Cont.Enabled = False
    Cmd_ContCheck.Enabled = False
    Cmd_Print.Enabled = False
  ElseIf Trim(Adodc1.Recordset.Fields(6)) = "出租审核" Then
    Cmd_Modi.Enabled = False
    Cmd_Del.Enabled = False
    Cmd_Check.Enabled = False
    Cmd_Cont.Enabled = True
    Cmd_ContCheck.Enabled = False
    Cmd_Print.Enabled = True
  ElseIf Trim(Adodc1.Recordset.Fields(6)) = "续租" Then
    Cmd_Modi.Enabled = False
    Cmd_Del.Enabled = False
    Cmd_Check.Enabled = False
    Cmd_Cont.Enabled = True
    Cmd_ContCheck.Enabled = True
    Cmd_Print.Enabled = False
  ElseIf Trim(Adodc1.Recordset.Fields(6)) = "续租审核" Then
    Cmd_Modi.Enabled = False
    Cmd_Del.Enabled = False
    Cmd_Check.Enabled = False
    Cmd_Cont.Enabled = False
    Cmd_ContCheck.Enabled = False
    Cmd_Print.Enabled = True
  ElseIf Trim(Adodc1.Recordset.Fields(6)) = "归还" Then
    Cmd_Modi.Enabled = False
    Cmd_Del.Enabled = False
    Cmd_Check.Enabled = False
    Cmd_Cont.Enabled = False
    Cmd_ContCheck.Enabled = False
    Cmd_Print.Enabled = False
  ElseIf Trim(Adodc1.Recordset.Fields(6)) = "归还审核" Then
    Cmd_Modi.Enabled = False
    Cmd_Del.Enabled = False
    Cmd_Check.Enabled = False
    Cmd_Cont.Enabled = False
    Cmd_ContCheck.Enabled = False
    Cmd_Return.Enabled = False
    Cmd_Print.Enabled = True
  End If
End Sub

Private Sub Form_Load()
  GridRefresh
 
  cob_Status.AddItem "出租", 0
  cob_Status.AddItem "出租审核", 1
  cob_Status.AddItem "续租", 2
  cob_Status.AddItem "续租审核", 3
  cob_Status.AddItem "归还", 4
  cob_Status.AddItem "归还审核", 5
   cob_Status.AddItem "全部", 6

  Cmd_Modi.Enabled = False
  Cmd_Del.Enabled = False
  Cmd_Check.Enabled = False
  Cmd_Cont.Enabled = False
  Cmd_ContCheck.Enabled = False
  Cmd_Print.Enabled = False
End Sub
Private Sub GridRefresh()
  If Trim(cob_Status.Text) = "" Or Trim(cob_Status.Text) = "全部" Then
    SchCnd = ""
  Else
    SchCnd = " AND Status='" + Trim(cob_Status.Text) + "'"
  End If
  Adodc1.ConnectionString = Conn
  Adodc1.RecordSource = "SELECT ContractNo AS 合同编号,CarNo AS 车牌号," _
    + "CustId AS 客户号,LeaseTime AS 租赁时间,LeaseMode AS 租赁模式, " _
    + "ReturnTime AS 归还时间,Status AS 状态," _
    + "IIF([Status]='日',Price1*WorkDays+Price2*WeekEndCount,Price1*WorkDays) AS 租车费用," _
    + "OtherCost AS 其他费用,Payment AS 实际支付,Deposit AS 押金,Total AS 总额 " _
    + " FROM Lease WHERE Status NOT IN ('归还','结算审核') " + SchCnd _
    + " ORDER BY ReturnTime DESC,LeaseTime DESC"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Columns(0).Width = 1000
  DataGrid1.Columns(1).Width = 1000
  DataGrid1.Columns(2).Width = 1000
  DataGrid1.Columns(3).Width = 1800
  DataGrid1.Columns(4).Width = 1000
  DataGrid1.Columns(5).Width = 1800
  DataGrid1.Columns(6).Width = 1000
  DataGrid1.Columns(7).Width = 1000
  DataGrid1.Columns(8).Width = 1000
  DataGrid1.Columns(9).Width = 1000
  DataGrid1.Columns(10).Width = 1000
  DataGrid1.Columns(11).Width = 1000
End Sub