开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 交通/航空行业 > 查看源码
Form4.frm
资源名称：2005.rar　[点击查看]
上传用户：salesll
上传日期：2014-07-25
资源大小：2665k
文件大小：7k
源码类别：

交通/航空行业

开发平台：

Others

Form4.frm：源码内容
  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Begin VB.Form Form4 
  4.    BackColor       =   &H00FFFF80&
  5.    Caption         =   "车辆维修"
  6.    ClientHeight    =   4290
  7.    ClientLeft      =   60
  8.    ClientTop       =   420
  9.    ClientWidth     =   5430
  10.    LinkTopic       =   "Form4"
  11.    ScaleHeight     =   4290
  12.    ScaleWidth      =   5430
  13.    StartUpPosition =   3  '窗口缺省
  14.    Begin VB.CommandButton Command4 
  15.       Caption         =   "取消"
  16.       Height          =   495
  17.       Left            =   2760
  18.       TabIndex        =   9
  19.       Top             =   3600
  20.       Width           =   975
  21.    End
  22.    Begin MSAdodcLib.Adodc Adodc1 
  23.       Height          =   495
  24.       Left            =   3720
  25.       Top             =   3600
  26.       Width           =   1695
  27.       _ExtentX        =   2990
  28.       _ExtentY        =   873
  29.       ConnectMode     =   0
  30.       CursorLocation  =   3
  31.       IsolationLevel  =   -1
  32.       ConnectionTimeout=   15
  33.       CommandTimeout  =   30
  34.       CursorType      =   3
  35.       LockType        =   3
  36.       CommandType     =   2
  37.       CursorOptions   =   0
  38.       CacheSize       =   50
  39.       MaxRecords      =   0
  40.       BOFAction       =   0
  41.       EOFAction       =   0
  42.       ConnectStringType=   3
  43.       Appearance      =   1
  44.       BackColor       =   16777088
  45.       ForeColor       =   -2147483640
  46.       Orientation     =   0
  47.       Enabled         =   -1
  48.       Connect         =   "DSN=cheliang"
  49.       OLEDBString     =   ""
  50.       OLEDBFile       =   ""
  51.       DataSourceName  =   "cheliang"
  52.       OtherAttributes =   ""
  53.       UserName        =   ""
  54.       Password        =   ""
  55.       RecordSource    =   "维修管理"
  56.       Caption         =   "查询"
  57.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  58.          Name            =   "宋体"
  59.          Size            =   9
  60.          Charset         =   134
  61.          Weight          =   400
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       _Version        =   393216
  67.    End
  68.    Begin VB.CommandButton Command3 
  69.       Caption         =   "删除"
  70.       Height          =   495
  71.       Left            =   1800
  72.       TabIndex        =   8
  73.       Top             =   3600
  74.       Width           =   975
  75.    End
  76.    Begin VB.CommandButton Command2 
  77.       BackColor       =   &H00FFFFFF&
  78.       Caption         =   "修改"
  79.       Height          =   495
  80.       Left            =   840
  81.       TabIndex        =   7
  82.       Top             =   3600
  83.       Width           =   975
  84.    End
  85.    Begin VB.CommandButton Command1 
  86.       Caption         =   "添加"
  87.       Height          =   495
  88.       Left            =   0
  89.       TabIndex        =   6
  90.       Top             =   3600
  91.       Width           =   855
  92.    End
  93.    Begin VB.TextBox Text3 
  94.       DataField       =   "维修费用"
  95.       DataSource      =   "Adodc1"
  96.       Height          =   615
  97.       Left            =   1440
  98.       TabIndex        =   5
  99.       Top             =   2280
  100.       Width           =   3735
  101.    End
  102.    Begin VB.TextBox Text2 
  103.       DataField       =   "维修日期"
  104.       DataSource      =   "Adodc1"
  105.       Height          =   615
  106.       Left            =   1440
  107.       TabIndex        =   3
  108.       Top             =   1200
  109.       Width           =   3735
  110.    End
  111.    Begin VB.TextBox Text1 
  112.       DataField       =   "车牌号码"
  113.       DataSource      =   "Adodc1"
  114.       Height          =   615
  115.       Left            =   1440
  116.       TabIndex        =   1
  117.       Top             =   240
  118.       Width           =   3735
  119.    End
  120.    Begin VB.Label Label3 
  121.       BackColor       =   &H00FFFF80&
  122.       Caption         =   "维修费用："
  123.       BeginProperty Font 
  124.          Name            =   "宋体"
  125.          Size            =   15
  126.          Charset         =   134
  127.          Weight          =   400
  128.          Underline       =   0   'False
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       Height          =   615
  133.       Left            =   120
  134.       TabIndex        =   4
  135.       Top             =   2280
  136.       Width           =   1575
  137.    End
  138.    Begin VB.Label Label2 
  139.       BackColor       =   &H00FFFF80&
  140.       Caption         =   "维修时间："
  141.       BeginProperty Font 
  142.          Name            =   "宋体"
  143.          Size            =   15
  144.          Charset         =   134
  145.          Weight          =   400
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       Height          =   615
  151.       Left            =   120
  152.       TabIndex        =   2
  153.       Top             =   1200
  154.       Width           =   1695
  155.    End
  156.    Begin VB.Label Label1 
  157.       BackColor       =   &H00FFFF80&
  158.       Caption         =   "车牌号码："
  159.       BeginProperty Font 
  160.          Name            =   "宋体"
  161.          Size            =   15
  162.          Charset         =   134
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Height          =   615
  169.       Left            =   120
  170.       TabIndex        =   0
  171.       Top             =   240
  172.       Width           =   1695
  173.    End
  174. End
  175. Attribute VB_Name = "Form4"
  176. Attribute VB_GlobalNameSpace = False
  177. Attribute VB_Creatable = False
  178. Attribute VB_PredeclaredId = True
  179. Attribute VB_Exposed = False
  180. Private Sub Command1_Click()
  181.   Dim rs As ADODB.Command
  182.   Dim str As String
  183.   Call open_db
  184.   str = "insert into 维修管理(车牌号码,维修日期,维修费用)"
  185.   str = str & "Values('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
  186.   Set rs = New ADODB.Command
  187.   Set rs.ActiveConnection = adocon
  188.   rs.CommandText = str
  189.   rs.Execute
  190.   Set rs = Nothing
  191.   adocon.Close
  192.   Set adocon = Nothing
  193.   Call close_db
  194.   MsgBox "添加成功！", , vbOKOnly
  195. End Sub
  197. Private Sub Command2_Click()
  198.   Dim rs As ADODB.Command
  199.   Dim str As String
  200.   Set rs = New ADODB.Command
  201.   Call open_db
  202.   str = "update 维修管理 set 车牌号码= '" & Text1 & "' ,维修日期='" & Text2 & "',维修费用='" & Text3 & "' where 车牌号码= '" & Text1 & "'"
  203.   Set rs.ActiveConnection = adocon
  204.   rs.CommandText = str
  205.   rs.Execute
  206.   Set rs = Nothing
  207.   adocon.Close
  208.   Set adocon = Nothing
  209.   Call close_db
  210.   MsgBox "修改成功！", , vbOKOnly
  211. End Sub
  213. Private Sub Command3_Click()
  214.   Dim rs As ADODB.Command
  215.   Dim str As String
  216.   Set rs = New ADODB.Command
  217.   Call open_db
  218.   str = "delete from 维修管理 where 车牌号码= '" & Text1 & "'"
  219.   Set rs.ActiveConnection = adocon
  220.   rs.CommandText = str
  221.   rs.Execute
  222.   Set rs = Nothing
  223.   docon.Close
  224.   Set adocon = Nothing
  225.   Call close_db
  226.   MsgBox "删除成功！", , vbOKOnly
  227. End Sub
  229. Private Sub Command4_Click()
  230. Unload Me
  231. End Sub