English
Form3.frm
资源名称：2005.rar [点击查看]
上传用户：salesll
上传日期：2014-07-25
资源大小：2665k
文件大小：9k
源码类别：
交通/航空行业
开发平台：
Others
- VERSION 5.00
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Begin VB.Form Form3
- BackColor = &H00C0FFFF&
- Caption = "车辆管理查询修改"
- ClientHeight = 6240
- ClientLeft = 60
- ClientTop = 420
- ClientWidth = 7470
- LinkTopic = "Form3"
- ScaleHeight = 6240
- ScaleWidth = 7470
- StartUpPosition = 3 '窗口缺省
- Begin MSAdodcLib.Adodc Adodc1
- Height = 615
- Left = 240
- Top = 5160
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 1085
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 2
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 3
- Appearance = 1
- BackColor = 12648447
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "DSN=cheliang"
- OLEDBString = ""
- OLEDBFile = ""
- DataSourceName = "cheliang"
- OtherAttributes = ""
- UserName = ""
- Password = ""
- RecordSource = "车辆档案"
- Caption = "查询"
- 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 VB.CommandButton Command3
- Caption = "取消"
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 5040
- TabIndex = 11
- Top = 5160
- Width = 1695
- End
- Begin VB.CommandButton Command2
- BackColor = &H00FFFFFF&
- Caption = "删除"
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 2520
- TabIndex = 10
- Top = 5160
- Width = 1935
- End
- Begin VB.TextBox Text1
- DataField = "车牌号码"
- DataSource = "Adodc1"
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 2160
- ScrollBars = 2 'Vertical
- TabIndex = 1
- Top = 360
- Width = 3855
- End
- Begin VB.Label Label9
- DataField = "车辆所在单位"
- DataSource = "Adodc1"
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 2160
- TabIndex = 9
- Top = 4200
- Width = 3735
- End
- Begin VB.Label Label8
- DataField = "购买时间"
- DataSource = "Adodc1"
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 2160
- TabIndex = 8
- Top = 3240
- Width = 3735
- End
- Begin VB.Label Label7
- DataField = "车辆类型"
- DataSource = "Adodc1"
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 2160
- TabIndex = 7
- Top = 2160
- Width = 3735
- End
- Begin VB.Label Label6
- DataField = "驾驶员编号"
- DataSource = "Adodc1"
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 2160
- TabIndex = 6
- Top = 1320
- Width = 3735
- End
- Begin VB.Label Label5
- BackColor = &H00C0FFFF&
- Caption = "车辆所在单位："
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 120
- TabIndex = 5
- Top = 4200
- Width = 2295
- End
- Begin VB.Label Label4
- BackColor = &H00C0FFFF&
- Caption = "购买时间："
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 120
- TabIndex = 4
- Top = 3240
- Width = 2295
- End
- Begin VB.Label Label3
- BackColor = &H00C0FFFF&
- Caption = "车辆类型："
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 120
- TabIndex = 3
- Top = 2160
- Width = 2175
- End
- Begin VB.Label Label2
- BackColor = &H00C0FFFF&
- Caption = "驾驶员编号："
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 120
- TabIndex = 2
- Top = 1320
- Width = 2175
- End
- Begin VB.Label Label1
- BackColor = &H00C0FFFF&
- Caption = "车牌号码："
- BeginProperty Font
- Name = "宋体"
- Size = 15.75
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 120
- TabIndex = 0
- Top = 480
- Width = 1695
- End
- End
- Attribute VB_Name = "Form3"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- End Sub
- Private Sub Command2_Click()
- Dim rs As ADODB.Command
- Dim str As String
- Set rs = New ADODB.Command
- Call open_db
- str = "delete from 车辆档案 where 车牌号码= '" & Text1 & "'"
- Set rs.ActiveConnection = adocon
- rs.CommandText = str
- rs.Execute
- Set rs = Nothing
- adocon.Close
- Set adocon = Nothing
- Call close_db
- MsgBox "删除成功！", , vbOKOnly
- End Sub
- Private Sub Command3_Click()
- Unload Me
- End Sub
