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

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

交通/航空行业

开发平台：

Others

Form7.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form7 
  3.    BackColor       =   &H00FFFF00&
  4.    Caption         =   "司机档案添加"
  5.    ClientHeight    =   4995
  6.    ClientLeft      =   60
  7.    ClientTop       =   420
  8.    ClientWidth     =   7455
  9.    FillColor       =   &H00FFFFFF&
  10.    LinkTopic       =   "Form7"
  11.    ScaleHeight     =   4995
  12.    ScaleWidth      =   7455
  13.    StartUpPosition =   3  '窗口缺省
  14.    Begin VB.CommandButton Command2 
  15.       Caption         =   "取消"
  16.       Height          =   495
  17.       Left            =   5520
  18.       TabIndex        =   11
  19.       Top             =   3600
  20.       Width           =   1455
  21.    End
  22.    Begin VB.CommandButton Command1 
  23.       Caption         =   "添加"
  24.       Height          =   495
  25.       Left            =   5520
  26.       TabIndex        =   10
  27.       Top             =   1080
  28.       Width           =   1455
  29.    End
  30.    Begin VB.TextBox Text5 
  31.       Height          =   495
  32.       Left            =   1080
  33.       TabIndex        =   9
  34.       Top             =   4320
  35.       Width           =   3135
  36.    End
  37.    Begin VB.TextBox Text4 
  38.       Height          =   495
  39.       Left            =   1080
  40.       TabIndex        =   8
  41.       Top             =   3240
  42.       Width           =   3135
  43.    End
  44.    Begin VB.TextBox Text3 
  45.       Height          =   495
  46.       Left            =   1080
  47.       TabIndex        =   5
  48.       Top             =   2160
  49.       Width           =   3135
  50.    End
  51.    Begin VB.TextBox Text2 
  52.       Height          =   495
  53.       Left            =   1080
  54.       TabIndex        =   3
  55.       Top             =   1200
  56.       Width           =   3135
  57.    End
  58.    Begin VB.TextBox Text1 
  59.       Height          =   495
  60.       Left            =   1080
  61.       TabIndex        =   2
  62.       Top             =   240
  63.       Width           =   3135
  64.    End
  65.    Begin VB.Label Label5 
  66.       BackColor       =   &H00FFFF00&
  67.       Caption         =   "驾驶车型："
  68.       Height          =   495
  69.       Left            =   120
  70.       TabIndex        =   7
  71.       Top             =   4320
  72.       Width           =   1215
  73.    End
  74.    Begin VB.Label Label4 
  75.       BackColor       =   &H00FFFF00&
  76.       Caption         =   "驾驶证号："
  77.       Height          =   495
  78.       Left            =   120
  79.       TabIndex        =   6
  80.       Top             =   3360
  81.       Width           =   1215
  82.    End
  83.    Begin VB.Label Label3 
  84.       BackColor       =   &H00FFFF00&
  85.       Caption         =   "出生年月："
  86.       Height          =   495
  87.       Left            =   120
  88.       TabIndex        =   4
  89.       Top             =   2280
  90.       Width           =   1215
  91.    End
  92.    Begin VB.Label Label2 
  93.       BackColor       =   &H00FFFF00&
  94.       Caption         =   "性别："
  95.       Height          =   495
  96.       Left            =   120
  97.       TabIndex        =   1
  98.       Top             =   1320
  99.       Width           =   1215
  100.    End
  101.    Begin VB.Label Label1 
  102.       BackColor       =   &H00FFFF00&
  103.       Caption         =   "姓名："
  104.       Height          =   495
  105.       Left            =   120
  106.       TabIndex        =   0
  107.       Top             =   360
  108.       Width           =   1215
  109.    End
  110. End
  111. Attribute VB_Name = "Form7"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Private Sub Command1_Click()
  117.    Dim rs As ADODB.Command
  118.    Dim str As String
  119.    Call open_db
  120.    str = "insert into 驾驶员档案(姓名,性别,出生年月,驾驶证号,准驾车型)"
  121.    str = str & "Values('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "')"
  122.    Set rs = New ADODB.Command
  123.    Set rs.ActiveConnection = adocon
  124.    rs.CommandText = str
  125.    rs.Execute
  126.    Set rs = Nothing
  127.    adocon.Close
  128.    Set adocon = Nothing
  129.    Call close_db
  130.    MsgBox "添加成功！", , vbOKOnly
  131. End Sub
  133. Private Sub Command2_Click()
  134.    Unload Me
  135. End Sub