frmcarydcha.frm

用VB开发的车辆数据库管理系统

         TabIndex        =   8
         Top             =   990
         Width           =   1485
         _ExtentX        =   2619
         _ExtentY        =   529
         _Version        =   393216
         Enabled         =   0   'False
         Format          =   24903681
         CurrentDate     =   39148
      End
      Begin VB.ComboBox cmdd 
         Enabled         =   0   'False
         Height          =   300
         ItemData        =   "frmcarYDcha.frx":1C7A
         Left            =   1620
         List            =   "frmcarYDcha.frx":1C7C
         TabIndex        =   7
         Top             =   615
         Width           =   2415
      End
      Begin VB.ComboBox cmcp 
         Enabled         =   0   'False
         Height          =   300
         ItemData        =   "frmcarYDcha.frx":1C7E
         Left            =   1620
         List            =   "frmcarYDcha.frx":1C80
         TabIndex        =   6
         Top             =   255
         Width           =   2415
      End
      Begin VB.CheckBox ckdd 
         Caption         =   "异动地点："
         Height          =   255
         Left            =   135
         TabIndex        =   5
         Top             =   630
         Width           =   1215
      End
      Begin VB.CheckBox cktime 
         Caption         =   "异动时间："
         Height          =   255
         Left            =   135
         TabIndex        =   4
         Top             =   1035
         Width           =   1215
      End
      Begin VB.CheckBox ckcp 
         Caption         =   "车牌号码："
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   1215
      End
      Begin VB.Image Imgexit 
         Height          =   330
         Left            =   5040
         Picture         =   "frmcarYDcha.frx":1C82
         Stretch         =   -1  'True
         Top             =   885
         Width           =   900
      End
      Begin VB.Image Imgcha 
         Height          =   330
         Left            =   5040
         Picture         =   "frmcarYDcha.frx":5C54
         Stretch         =   -1  'True
         Top             =   255
         Width           =   900
      End
      Begin VB.Label Label5 
         Caption         =   "到"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   3180
         TabIndex        =   2
         Top             =   1020
         Width           =   255
      End
      Begin VB.Label Label6 
         Caption         =   "从"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   1335
         TabIndex        =   1
         Top             =   1050
         Width           =   255
      End
   End
End
Attribute VB_Name = "frmcarYDcha"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmcarydcha
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'**          业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'**          下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'**          不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-10-31
'**修 改 人：mraj
'**日    期：2007-10-31
'**描    述：
'*************************************************************************

Private Sub ckcp_Click()
  If ckcp.Value Then
     cmCP.Enabled = True
  Else
     cmCP.Enabled = False
  End If
End Sub
Private Sub ckdd_Click()
  If ckdd.Value Then
     cmdd.Enabled = True
  Else
     cmdd.Enabled = False
  End If
End Sub

Private Sub cktime_Click()
  If cktime.Value Then
     dtStart.Enabled = True
     dtEnd.Enabled = True
  Else
     dtStart.Enabled = False
     dtEnd.Enabled = False
  End If
End Sub
Private Sub Form_Load()
  frmcarYDcha.Width = 6345
  frmcarYDcha.Height = 3930
  Call Rebind
  Call main1
  Set adors = adoCon.Execute("select distinct 车牌号码 from 车辆异动表")
  Do
       cmCP.AddItem adors.Fields(0)   '向ComboBox控件中添加数据项
       adors.MoveNext
  Loop Until adors.EOF
  adors.Close
  Set adors = adoCon.Execute("select distinct 异动地点 from 车辆异动表")
  On Error Resume Next
  Do
       cmdd.AddItem adors.Fields(0)    '向ComboBox控件中添加数据项
       adors.MoveNext
  Loop Until adors.EOF
  adors.Close
  adoCon.Close
  Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Rebind()
  Frame2.Caption = "车辆异动列表"
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"
  Adodc1.RecordSource = "select * from 车辆异动表"
  Adodc1.Refresh
End Sub
Private Sub QingKong()
  Frame2.Caption = "您所要查询的异动车辆如下："
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"
  Adodc1.RecordSource = "select * from 车辆异动表 where 1=0"
  Adodc1.Refresh
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Imgexit_Click
End Sub
Private Sub Imgcha_Click()   '查询
  '点击查询按纽后首先清空车辆档案列表
  Call QingKong
  Dim sql As String
  Dim scp As String
  If ckcp.Value Then
     scp = "车牌号码 like '%" & cmCP.Text & "%'"
  Else
     scp = "车牌号码 like '%'"
  End If
  Dim stime As String
  If cktime.Value Then
     stime = "异动时间 between #" & dtStart.Month & "/" & dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" & dtEnd.Day & "/" & dtEnd.Year & "#"
  Else
     stime = "异动时间 like '%'"
  End If
  Dim sdd As String
  If ckdd.Value Then
     cmdd.Enabled = True
     sdd = "异动地点 like'%" & cmdd.Text & "%'"
  Else
     sdd = "异动地点 like '%'"
  End If
  sql = "select * from 车辆异动表 where " & scp & "and " & stime & "and " & sdd
  If sql = "select * from 车辆异动表 where 车牌号码 like '%'and 异动时间 like '%'and 异动地点 like '%'" Then
      Call QingKong
      MsgBox "请选择查询条件", , "车辆管理系统"
      Exit Sub
  End If
  Call main1
  Set adors = adoCon.Execute(sql)
  If adors.EOF Then
      Call QingKong
      MsgBox "没有符合查询条件的车辆！", , "车辆管理系统"
  Else
     Adodc1.RecordSource = sql
     Adodc1.Refresh
  End If
  adors.Close
  adoCon.Close
  ckcp.Value = 0
  cktime.Value = 0
  ckdd.Value = 0
End Sub

Private Sub Imgexit_Click()  '退出
    MDIForm1.StatusBar1.Panels(1).Text = ""
    Unload Me
End Sub