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

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

交通/航空行业

开发平台：

Others

Form5.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BackColor       =   &H00FF80FF&
  4.    Caption         =   "车辆运营添加"
  5.    ClientHeight    =   3645
  6.    ClientLeft      =   60
  7.    ClientTop       =   420
  8.    ClientWidth     =   7215
  9.    LinkTopic       =   "Form5"
  10.    ScaleHeight     =   3645
  11.    ScaleWidth      =   7215
  12.    StartUpPosition =   3  '窗口缺省
  13.    Begin VB.TextBox Text5 
  14.       Height          =   495
  15.       Left            =   1320
  16.       TabIndex        =   11
  17.       Top             =   2160
  18.       Width           =   5655
  19.    End
  20.    Begin VB.CommandButton Command2 
  21.       Caption         =   "取消"
  22.       Height          =   495
  23.       Left            =   4680
  24.       TabIndex        =   9
  25.       Top             =   2880
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       BackColor       =   &H00FFFFFF&
  30.       Caption         =   "添加"
  31.       Height          =   495
  32.       Left            =   720
  33.       TabIndex        =   8
  34.       Top             =   2880
  35.       Width           =   1215
  36.    End
  37.    Begin VB.TextBox Text4 
  38.       Height          =   495
  39.       Left            =   4560
  40.       TabIndex        =   7
  41.       Top             =   1320
  42.       Width           =   2415
  43.    End
  44.    Begin VB.TextBox Text3 
  45.       Height          =   495
  46.       Left            =   4560
  47.       TabIndex        =   6
  48.       Top             =   360
  49.       Width           =   2415
  50.    End
  51.    Begin VB.TextBox Text2 
  52.       Height          =   495
  53.       Left            =   1320
  54.       TabIndex        =   5
  55.       Top             =   1320
  56.       Width           =   2055
  57.    End
  58.    Begin VB.TextBox Text1 
  59.       Height          =   495
  60.       Left            =   1320
  61.       TabIndex        =   4
  62.       Top             =   360
  63.       Width           =   2055
  64.    End
  65.    Begin VB.Label Label5 
  66.       BackColor       =   &H00FF80FF&
  67.       Caption         =   "使用单位："
  68.       BeginProperty Font 
  69.          Name            =   "宋体"
  70.          Size            =   12
  71.          Charset         =   134
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   495
  78.       Left            =   120
  79.       TabIndex        =   10
  80.       Top             =   2160
  81.       Width           =   1215
  82.    End
  83.    Begin VB.Label Label4 
  84.       BackColor       =   &H00FF80FF&
  85.       Caption         =   "运营收入："
  86.       BeginProperty Font 
  87.          Name            =   "宋体"
  88.          Size            =   12
  89.          Charset         =   134
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   495
  96.       Left            =   3480
  97.       TabIndex        =   3
  98.       Top             =   1440
  99.       Width           =   1215
  100.    End
  101.    Begin VB.Label Label3 
  102.       BackColor       =   &H00FF80FF&
  103.       Caption         =   "运营时间："
  104.       BeginProperty Font 
  105.          Name            =   "宋体"
  106.          Size            =   12
  107.          Charset         =   134
  108.          Weight          =   400
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   495
  114.       Left            =   3480
  115.       TabIndex        =   2
  116.       Top             =   480
  117.       Width           =   1215
  118.    End
  119.    Begin VB.Label Label2 
  120.       BackColor       =   &H00FF80FF&
  121.       Caption         =   "运营日期："
  122.       BeginProperty Font 
  123.          Name            =   "宋体"
  124.          Size            =   12
  125.          Charset         =   134
  126.          Weight          =   400
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       Height          =   495
  132.       Left            =   120
  133.       TabIndex        =   1
  134.       Top             =   1440
  135.       Width           =   1215
  136.    End
  137.    Begin VB.Label Label1 
  138.       BackColor       =   &H00FF80FF&
  139.       Caption         =   "车牌号码："
  140.       BeginProperty Font 
  141.          Name            =   "宋体"
  142.          Size            =   12
  143.          Charset         =   134
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   495
  150.       Left            =   120
  151.       TabIndex        =   0
  152.       Top             =   480
  153.       Width           =   1215
  154.    End
  155. End
  156. Attribute VB_Name = "Form5"
  157. Attribute VB_GlobalNameSpace = False
  158. Attribute VB_Creatable = False
  159. Attribute VB_PredeclaredId = True
  160. Attribute VB_Exposed = False
  161. Private Sub Command1_Click()
  162.    Dim rs As ADODB.Command
  163.    Dim str As String
  164.    Set rs = New ADODB.Command
  165.    Call open_db
  166.    str = "update 车辆档案 set 运营日期='" & Text2 & "',运营时间='" & Text3 & "',运营收入='" & Text4 & "',使用单位或人='" & Text5 & "' where 车牌号码= '" & Text1 & "'"
  167.    Set rs.ActiveConnection = adocon
  168.    rs.CommandText = str
  169.    rs.Execute
  170.    Set rs = Nothing
  171.    adocon.Close
  172.    Set adocon = Nothing
  173.    Call close_db
  174.    MsgBox "添加成功！", , vbOKOnly
  175. End Sub
  177. Private Sub Command2_Click()
  178.    Unload Me
  179. End Sub