English
frmcarWXcha.frm
资源名称：0123..rar [点击查看]
上传用户：naidiweb
上传日期：2013-08-15
资源大小：672k
文件大小：17k
源码类别：
软件设计/软件工程
开发平台：
WORD
- VERSION 5.00
- Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
- Begin VB.Form frmcarWXcha
- BorderStyle = 3 'Fixed Dialog
- Caption = "车辆维修查询"
- ClientHeight = 3915
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 6255
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MDIChild = -1 'True
- MinButton = 0 'False
- ScaleHeight = 3915
- ScaleWidth = 6255
- ShowInTaskbar = 0 'False
- Begin VB.Frame Frame2
- Caption = "Frame2"
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FF0000&
- Height = 2145
- Left = 120
- TabIndex = 13
- Top = 1680
- Width = 5970
- Begin MSAdodcLib.Adodc Adodc1
- Height = 330
- Left = 3795
- Top = 660
- Visible = 0 'False
- Width = 1575
- _ExtentX = 2778
- _ExtentY = 582
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 1
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
- OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- RecordSource = "select * from 车辆维修表"
- Caption = "Adodc1"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- _Version = 393216
- End
- Begin MSDataGridLib.DataGrid DataGrid1
- Bindings = "frmcarWXcha.frx":0000
- Height = 1755
- Left = 135
- TabIndex = 14
- Top = 270
- Width = 5715
- _ExtentX = 10081
- _ExtentY = 3096
- _Version = 393216
- AllowUpdate = 0 'False
- HeadLines = 1
- RowHeight = 15
- FormatLocked = -1 'True
- BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ColumnCount = 10
- BeginProperty Column00
- DataField = "车牌号码"
- Caption = "车牌号码"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column01
- DataField = "更换零件1"
- Caption = "更换零件1"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column02
- DataField = "零件1数量"
- Caption = "零件1数量"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column03
- DataField = "更换零件2"
- Caption = "更换零件2"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column04
- DataField = "零件2数量"
- Caption = "零件2数量"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column05
- DataField = "更换零件3"
- Caption = "更换零件3"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column06
- DataField = "零件3数量"
- Caption = "零件3数量"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column07
- DataField = "维修日期"
- Caption = "维修日期"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column08
- DataField = "共计费用"
- Caption = "共计费用"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column09
- DataField = "备注"
- Caption = "备注"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- SplitCount = 1
- BeginProperty Split0
- BeginProperty Column00
- ColumnWidth = 840.189
- EndProperty
- BeginProperty Column01
- ColumnWidth = 915.024
- EndProperty
- BeginProperty Column02
- ColumnWidth = 929.764
- EndProperty
- BeginProperty Column03
- ColumnWidth = 915.024
- EndProperty
- BeginProperty Column04
- ColumnWidth = 900.284
- EndProperty
- BeginProperty Column05
- ColumnWidth = 959.811
- EndProperty
- BeginProperty Column06
- ColumnWidth = 900.284
- EndProperty
- BeginProperty Column07
- ColumnWidth = 854.929
- EndProperty
- BeginProperty Column08
- ColumnWidth = 780.095
- EndProperty
- BeginProperty Column09
- ColumnWidth = 494.929
- EndProperty
- EndProperty
- End
- End
- Begin VB.Frame Frame1
- Caption = " 查询条件"
- ForeColor = &H00FF0000&
- Height = 1455
- Left = 120
- TabIndex = 0
- Top = 120
- Width = 5970
- Begin VB.CommandButton cmdCha
- Caption = "查 询(&F)"
- Height = 330
- Left = 4845
- TabIndex = 12
- Top = 255
- Width = 975
- End
- Begin VB.CommandButton cmdExit
- Caption = "退 出(&E)"
- Height = 345
- Left = 4875
- TabIndex = 11
- Top = 975
- Width = 975
- End
- Begin VB.ComboBox Combo1
- Height = 300
- ItemData = "frmcarWXcha.frx":0015
- Left = 1575
- List = "frmcarWXcha.frx":0028
- TabIndex = 10
- Top = 1035
- Width = 735
- End
- Begin VB.TextBox txtFY
- Enabled = 0 'False
- Height = 300
- Left = 2325
- TabIndex = 9
- Top = 1020
- Width = 2355
- End
- Begin VB.CheckBox ckfy
- Caption = "维修费用："
- Height = 255
- Left = 120
- TabIndex = 8
- Top = 1035
- Width = 1215
- End
- Begin VB.ComboBox cmcp
- Enabled = 0 'False
- Height = 300
- Left = 1575
- TabIndex = 3
- Top = 270
- Width = 1320
- End
- Begin VB.CheckBox cktime
- Caption = "维修日期："
- Height = 180
- Left = 120
- TabIndex = 2
- Top = 705
- Width = 1215
- End
- Begin VB.CheckBox ckcp
- Caption = "车牌号码："
- Height = 255
- Left = 120
- TabIndex = 1
- Top = 270
- Width = 1215
- End
- Begin MSComCtl2.DTPicker dtEnd
- Height = 300
- Left = 3360
- TabIndex = 4
- Top = 645
- Width = 1335
- _ExtentX = 2355
- _ExtentY = 529
- _Version = 393216
- Enabled = 0 'False
- Format = 27000833
- CurrentDate = 38053
- End
- Begin MSComCtl2.DTPicker dtStart
- Height = 300
- Left = 1575
- TabIndex = 5
- Top = 645
- Width = 1335
- _ExtentX = 2355
- _ExtentY = 529
- _Version = 393216
- Enabled = 0 'False
- Format = 27000833
- CurrentDate = 38053
- End
- Begin VB.Label Label5
- Caption = "到"
- ForeColor = &H00FF0000&
- Height = 255
- Left = 3045
- TabIndex = 7
- Top = 705
- Width = 255
- End
- Begin VB.Label Label6
- Caption = "从"
- ForeColor = &H00FF0000&
- Height = 255
- Left = 1335
- TabIndex = 6
- Top = 720
- Width = 255
- End
- End
- End
- Attribute VB_Name = "frmcarWXcha"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub ckcp_Click()
- If ckcp.Value Then
- cmCP.Enabled = True
- Else
- cmCP.Enabled = False
- End If
- End Sub
- Private Sub ckfy_Click()
- If ckfy.Value Then
- Combo1.Enabled = True
- Combo1.ListIndex = 0
- txtFY.Enabled = True
- Else
- txtFY.Enabled = False
- Combo1.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 cmdCha_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 sfy As String
- If ckfy.Value Then
- sfy = "共计费用 " & Combo1.Text & "" & txtFY & ""
- Else
- sfy = "共计费用 like '%'"
- End If
- sql = "select * from 车辆维修表 where " & scp & "and " & stime & "and " & sfy
- 'MsgBox sql
- If sql = "select * from 车辆维修表 where 车牌号码 like '%'and 维修日期 like '%'and 共计费用 like '%'" Then
- Call QingKong
- MsgBox "请选择查询条件", , "系统提示"
- Exit Sub
- End If
- Set adors = adoCon.Execute(sql)
- If adors.EOF Then
- Call QingKong
- MsgBox "对不起，没有符合您查询条件的车辆维修记录！", , "系统提示"
- Else
- Adodc1.RecordSource = sql
- Adodc1.Refresh
- End If
- adors.Close
- ckcp.Value = 0
- cktime.Value = 0
- ckfy.Value = 0
- End Sub
- Private Sub cmdExit_Click()
- MDIForm1.StatusBar1.Panels(1).Text = ""
- Unload Me
- End Sub
- Private Sub Form_Load()
- frmcarWXcha.Width = 6345
- frmcarWXcha.Height = 4395
- Call Rebind
- 'add all cp in the table carWX
- Set adors = adoCon.Execute("select distinct 车牌号码 from 车辆维修表")
- On Error Resume Next
- Do
- cmCP.AddItem adors.Fields(0)
- adors.MoveNext
- Loop Until adors.EOF
- adors.Close
- 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)
- cmdExit_Click
- End Sub
