?? frmlease.frm

?? 出租車管理系統(tǒng) 功能強(qiáng)大
?? FRM
?? 第 1 頁 / 共 2 頁
字號(hào):
上一頁 12
    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 = "周數(shù)"
      FrmLeaseAddEdit.Label14.Caption = "個(gè)"
      FrmLeaseAddEdit.Label19.Caption = "周末數(shù)"
      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 = "月份數(shù)"
      FrmLeaseAddEdit.Label14.Caption = "個(gè)"
      FrmLeaseAddEdit.Label19.Caption = "周末數(shù)"
      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 ("請(qǐng)選擇記錄")
    Exit Sub
  End If
  If MsgBox("是否審核確認(rèn)了續(xù)租合同", vbYesNo, "請(qǐng)確認(rèn)") = vbNo Then
    Exit Sub
  End If
  With MyLease
    .Status = "續(xù)租審核"
    .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 ("請(qǐng)選擇記錄")
    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 = "周數(shù)"
      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 = "月份數(shù)"
      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 "請(qǐng)選擇記錄"
    Exit Sub
  End If
  If MsgBox("是否審核確認(rèn)了租賃合同", vbYesNo, "請(qǐng)確認(rèn)") = 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 "請(qǐng)選擇記錄"
    Exit Sub
  End If
  If MsgBox("是否確定要?jiǎng)h除租賃信息", vbYesNo, "請(qǐng)確認(rèn)") = 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 "請(qǐng)選擇打印的合同"
    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丟失，請(qǐng)與管理員聯(lián)系"
    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 "合同編號(hào)：" + Trim(Adodc1.Recordset.Fields(0))
  mytable.Cell(2, 2).Range.Delete
  mytable.Cell(2, 2).Range.InsertAfter "打印時(shí)間：" + 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 "租賃天數(shù)（工作日）"
    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 "租賃周數(shù)"
    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 "租賃月數(shù)"
    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 "打印作業(yè)已提交，打印完成后按 確定 結(jié)束"
  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)) = "續(xù)租" 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)) = "續(xù)租審核" 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 "續(xù)租", 2
  cob_Status.AddItem "續(xù)租審核", 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 合同編號(hào),CarNo AS 車牌號(hào)," _
    + "CustId AS 客戶號(hào),LeaseTime AS 租賃時(shí)間,LeaseMode AS 租賃模式, " _
    + "ReturnTime AS 歸還時(shí)間,Status AS 狀態(tài)," _
    + "IIF([Status]='日',Price1*WorkDays+Price2*WeekEndCount,Price1*WorkDays) AS 租車費(fèi)用," _
    + "OtherCost AS 其他費(fèi)用,Payment AS 實(shí)際支付,Deposit AS 押金,Total AS 總額 " _
    + " FROM Lease WHERE Status NOT IN ('歸還','結(jié)算審核') " + 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
上一頁 12
?? 文件大小 2940 K
?? 上傳用戶 lanyunhan
?? 所屬分類 *行業(yè)應(yīng)用
??? 相關(guān)標(biāo)簽

#出租車 #管理系統(tǒng)
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmlease.frm

?? 快捷鍵說明
