mainform.frm

车辆管理系统是一个协助各单位进行全面的车辆管理的系统。包括车辆档案管理；驾驶员档案管理；车辆运营信息管理；车辆事故信息管理；车辆维修信息管理；车辆费用管理等几个功能模块。

End Sub

Private Sub addcl_Click()
   gintvMode = 1
   Frmvehicle.Show
   Frmvehicle.ZOrder 0
End Sub

Private Sub addsgxx_Click()
   gintaMode = 1
   frmaccident.Show
   frmaccident.ZOrder 0
End Sub

Private Sub addsj_Click()
   gintdMode = 1
   frmdriver.Show
   frmdriver.ZOrder 0
End Sub

Private Sub adduser_Click()
If UCase(username) = "ADMINISTRATOR" Then
     frmadduser.Show
  Else
     MsgBox "只有超级管理员Administrator才有权使用该功能", vbOKCancel + vbExclamation, "警告"
End If
End Sub

Private Sub addwxxx_Click()
   gintrMode = 1
   frmrepair.Show
   frmrepair.ZOrder 0
End Sub

Private Sub addyyxx_Click()
   gintsMode = 1
   Frmstatistic.Show
   Frmstatistic.ZOrder 0
End Sub

Private Sub delcl_Click()
   Dim txtsql As String
   Dim msgtext As String
  ' Dim mrc As ADODB.Recordset
 '  Dim txtcount As Integer
   If frmvehiclelist.msglist.Rows >= 1 Then
      If MsgBox("确实要删除该记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
       '  txtcount = frmvehiclelist.msglist.Row
         txtsql = "delete from vehicle where cl_id='" & Trim(frmvehiclelist.msglist.TextMatrix(frmvehiclelist.msglist.Row, 1)) & "'"
         ExecuteSQL txtsql, msgtext
         Unload Frmvehicle
         Unload frmvehiclelist
         frmvehiclelist.txtsql = "select * from vehicle"
         frmvehiclelist.Show
     End If
   End If
End Sub

Private Sub delfy_Click()
    Dim txtsql As String
    Dim msgtext As String
    If frmcostlist.msglist.Row >= 1 Then
       If MsgBox("确定要删除这条记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
          txtsql = "delete from cost where fy_id='" & Trim(frmcostlist.msglist.TextMatrix(frmcostlist.msglist.Row, 1)) & "'and fy_date='" & Trim(frmcostlist.msglist.TextMatrix(frmcostlist.msglist.Row, 2)) & "'"
          ExecuteSQL txtsql, msgtext
          Unload frmcost
          Unload frmcostlist
          frmcostlist.txtsql = "select * from cost"
          frmcostlist.Show
       End If
    End If
End Sub

Private Sub delsgxx_Click()
   Dim txtsql As String
   Dim msgtext As String
 '  Dim mrc As ADODB.Recordset
   If frmaccidentlist.msglist.Row >= 1 Then
      If MsgBox("确定要删除这条记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
         txtsql = "delete from accident where sg_id='" & Trim(frmaccidentlist.msglist.TextMatrix(frmaccidentlist.msglist.Row, 1)) & "'and sg_date='" & Trim(frmaccidentlist.msglist.TextMatrix(frmaccidentlist.msglist.Row, 3)) & "'"
         ExecuteSQL txtsql, msgtext
         Unload frmaccident
         Unload frmaccidentlist
         frmaccidentlist.txtsql = "select * from accident"
         frmaccidentlist.Show
      End If
   End If
End Sub

Private Sub delsj_Click()
   Dim txtsql As String
   Dim msgtext As String
   Dim mrc As ADODB.Recordset
 '  Dim Count As Integer
   If frmdriverlist.msglist.Rows >= 1 Then
      If MsgBox("确定要删除这条记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
        ' Count = frmdriverlist.msglist.Row
         txtsql = "delete from driver where sj_id='" & Trim(frmdriverlist.msglist.TextMatrix(frmdriverlist.msglist.Row, 1)) & "'"
         ExecuteSQL txtsql, msgtext
         Unload frmdriver
         Unload frmdriverlist
      'Else
         frmdriverlist.txtsql = "select * from driver"
         frmdriverlist.Show
       End If
     ' mrc.Close
    End If
      
End Sub

Private Sub deluser_Click()
  If UCase(username) = "ADMINISTRATOR" Then
     Frmdeluser.Show
  Else
     MsgBox "只有超级管理员Administrator才有权使用该功能", vbOKOnly + vbExclamation, "警告"
  End If
End Sub



Private Sub delwxxx_Click()
   Dim txtsql As String
   Dim msgtext As String
   Dim mrc As ADODB.Recordset
   'Dim txtcount As Integer
   If frmrepairlist.msglist.Row >= 1 Then
      If MsgBox("确定要删除该记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
         txtsql = "delete from repair where wx_id='" & Trim(frmrepairlist.msglist.TextMatrix(frmrepairlist.msglist.Row, 1)) & "'and wx_date='" & Trim(frmrepairlist.msglist.TextMatrix(frmrepairlist.msglist.Row, 2)) & "'"
         ExecuteSQL txtsql, msgtext
         Unload frmrepair
         Unload frmrepairlist
         frmrepairlist.txtsql = "select * from repair"
         frmrepairlist.Show
      End If
   End If
End Sub

Private Sub delyyxx_Click()
   Dim txtsql As String
   Dim msgtext As String
   Dim mrc As ADODB.Recordset
  ' Dim txtcount As Integer
   If frmstatisticlist.msglist.Row >= 1 Then
      If MsgBox("确实要删除该记录吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
       '  txtcount = frmstatisticlist.msglist.Row
         txtsql = "delete from statistic where yy_id='" & Trim(frmstatisticlist.msglist.TextMatrix(frmstatisticlist.msglist.Row, 1)) & "'and yy_bdate='" & Trim(frmstatisticlist.msglist.TextMatrix(frmstatisticlist.msglist.Row, 3)) & "'"
         ExecuteSQL txtsql, msgtext
         Unload Frmstatistic
         Unload frmstatisticlist
         frmstatisticlist.txtsql = "select * from statistic"
         frmstatisticlist.Show
      End If
   End If
End Sub

Private Sub exit_Click()
   End
End Sub



Private Sub fycx_Click()
   frmcostfind.Show
End Sub

Private Sub fydj_Click()
  gintcMode = 1
  frmcost.Show
  frmcost.ZOrder 0
End Sub

Private Sub fyxg_Click()
  If flagcEdit Then
     If frmcostlist.msglist.Row >= 1 Then
        gintcMode = 2
        frmcost.txtsql = "select * from cost where fy_id='" & Trim(frmcostlist.msglist.TextMatrix(frmcostlist.msglist.Row, 1)) & "' and fy_date='" & Trim(frmcostlist.msglist.TextMatrix(frmcostlist.msglist.Row, 2)) & "'"
        frmcost.Show
     Else
        Call fydj_Click
     End If
  Else
     frmcostlist.txtsql = "select * from cost"
     frmcostlist.Show
  End If
End Sub

Private Sub helpfile_Click()
frmhelp.Show
End Sub

Private Sub Image1_Click()
   Call adduser_Click
End Sub

Private Sub Image10_Click()
    frmstatisticfind.Show
End Sub

Private Sub Image11_Click()
  Call delyyxx_Click
End Sub

Private Sub Image12_Click()
  Call fydj_Click
End Sub

Private Sub Image13_Click()
  Call fyxg_Click
End Sub

Private Sub Image14_Click()
   Call fycx_Click
End Sub

Private Sub Image15_Click()
   Call delfy_Click
End Sub

Private Sub Image16_Click()
Call addcl_Click
End Sub

Private Sub Image17_Click()
    modicl_Click
End Sub

Private Sub Image18_Click()
   Call selcl_Click
End Sub

Private Sub Image19_Click()
  Call delcl_Click
End Sub

Private Sub Image2_Click()
  Call deluser_Click
End Sub

Private Sub Image21_Click()
  Call exit_Click
End Sub

Private Sub Image22_Click()
  frmhelp.Show
End Sub

Private Sub Image3_Click()
  Call modiuser_Click
End Sub

Private Sub Image4_Click()
 Call addsj_Click
End Sub

Private Sub Image5_Click()
Call modisj_Click
End Sub

Private Sub Image6_Click()
  frmdriverfind.Show
End Sub

Private Sub Image7_Click()
Call delsj_Click
End Sub

Private Sub Image8_Click()
 Call addyyxx_Click
End Sub

Private Sub Image9_Click()
Call modiyyxx_Click
End Sub

Private Sub modicl_Click()
   Dim txtcount As Integer
   If flagvEdit Then
       If frmvehiclelist.msglist.Rows >= 1 Then
          gintvMode = 2
          txtcount = frmvehiclelist.msglist.Row
          Frmvehicle.txtsql = "select * from vehicle where cl_id='" & Trim(frmvehiclelist.msglist.TextMatrix(frmvehiclelist.msglist.Row, 1)) & "'"
          Frmvehicle.Show
       Else
          Call addcl_Click
       End If
   Else
       frmvehiclelist.txtsql = "select * from vehicle"
       frmvehiclelist.Show
   End If
End Sub

Private Sub modisgxx_Click()
  If flagaEdit Then
      If frmaccidentlist.msglist.Row >= 1 Then
         gintaMode = 2
         frmaccident.txtsql = "select * from accident where sg_id='" & Trim(frmaccidentlist.msglist.TextMatrix(frmaccidentlist.msglist.Row, 1)) & "'and sg_date='" & Trim(frmaccidentlist.msglist.TextMatrix(frmaccidentlist.msglist.Row, 3)) & "'"
         frmaccident.Show
      Else
         Call addsgxx_Click
      End If
  Else
     frmaccidentlist.txtsql = "select * from accident"
     frmaccidentlist.Show
  End If
End Sub

Private Sub modisj_Click()
   Dim Count As Integer
   If flagdEdit Then
      If frmdriverlist.msglist.Rows >= 1 Then
         gintdMode = 2
         Count = frmdriverlist.msglist.Row
         frmdriver.txtsql = "select * from driver where sj_id='" & Trim(frmdriverlist.msglist.TextMatrix(frmdriverlist.msglist.Row, 1)) & "'"
         frmdriver.Show
      Else
         Call addsj_Click
      End If
   Else
      frmdriverlist.txtsql = "select * from driver"
      frmdriverlist.Show
   End If
   
End Sub

Private Sub modiuser_Click()
    frmmodipassword.Show
End Sub

Private Sub modiwxxx_Click()
   'Dim txtcount As Integer
   If flagrEdit Then
       If frmrepairlist.msglist.Row >= 1 Then
          gintrMode = 2
          frmrepair.txtsql = "select * from repair where wx_id='" & Trim(frmrepairlist.msglist.TextMatrix(frmrepairlist.msglist.Row, 1)) & "'and wx_date='" & Format(frmrepairlist.msglist.TextMatrix(frmrepairlist.msglist.Row, 2), "yyyy-mm-dd") & "'"
          frmrepair.Show
       Else
          Call addwxxx_Click
       End If
   Else
       frmrepairlist.txtsql = "select * from repair"
       frmrepairlist.Show
   End If
End Sub

Private Sub modiyyxx_Click()
   Dim txtcount As Integer
   If flagsEdit Then
      If frmstatisticlist.msglist.Row >= 1 Then
         gintsMode = 2
         txtcount = frmstatisticlist.msglist.Row
         Frmstatistic.txtsql = "select * from statistic where yy_id='" & Trim(frmstatisticlist.msglist.TextMatrix(frmstatisticlist.msglist.Row, 1)) & "'and yy_bdate='" & Format(frmstatisticlist.msglist.TextMatrix(frmstatisticlist.msglist.Row, 3), "yyyy-mm-dd") & "'"
         Frmstatistic.Show
      'End If
      Else
         Call addyyxx_Click
      End If
   Else
      frmstatisticlist.txtsql = "select * from statistic"
      frmstatisticlist.Show
   End If
End Sub

Private Sub selcl_Click()
    frmvehiclefind.Show
End Sub

Private Sub selsgxx_Click()
    frmaccidentfind.Show
End Sub

Private Sub selsj_Click()
   frmdriverfind.Show
'   frmdriverfind.ZOrder 0
End Sub

Private Sub selwxxx_Click()
   frmrepairfind.Show
End Sub

Private Sub selyyxx_Click()
   frmstatisticfind.Show
End Sub