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

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

交通/航空行业

开发平台：

Others

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