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

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

交通/航空行业

开发平台：

Others

Form9.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form9 
  3.    BackColor       =   &H00FF0000&
  4.    Caption         =   "管理员设置"
  5.    ClientHeight    =   3615
  6.    ClientLeft      =   60
  7.    ClientTop       =   420
  8.    ClientWidth     =   5655
  9.    LinkTopic       =   "Form9"
  10.    ScaleHeight     =   3615
  11.    ScaleWidth      =   5655
  12.    StartUpPosition =   3  '窗口缺省
  13.    Begin VB.CommandButton Command3 
  14.       Caption         =   "取消"
  15.       Height          =   495
  16.       Left            =   4080
  17.       TabIndex        =   6
  18.       Top             =   2880
  19.       Width           =   1215
  20.    End
  21.    Begin VB.CommandButton Command2 
  22.       Caption         =   "删除"
  23.       Height          =   495
  24.       Left            =   2040
  25.       TabIndex        =   5
  26.       Top             =   2880
  27.       Width           =   1215
  28.    End
  29.    Begin VB.CommandButton Command1 
  30.       Caption         =   "添加"
  31.       Height          =   495
  32.       Left            =   120
  33.       TabIndex        =   4
  34.       Top             =   2880
  35.       Width           =   1215
  36.    End
  37.    Begin VB.TextBox Text2 
  38.       Height          =   495
  39.       Left            =   960
  40.       TabIndex        =   3
  41.       Top             =   1560
  42.       Width           =   4335
  43.    End
  44.    Begin VB.TextBox Text1 
  45.       Height          =   495
  46.       Left            =   960
  47.       TabIndex        =   2
  48.       Top             =   480
  49.       Width           =   4335
  50.    End
  51.    Begin VB.Label Label2 
  52.       BackColor       =   &H00FF0000&
  53.       Caption         =   "密码："
  54.       Height          =   495
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   1560
  58.       Width           =   1215
  59.    End
  60.    Begin VB.Label Label1 
  61.       BackColor       =   &H00FF0000&
  62.       Caption         =   "用户名："
  63.       Height          =   495
  64.       Left            =   120
  65.       TabIndex        =   0
  66.       Top             =   600
  67.       Width           =   1215
  68.    End
  69. End
  70. Attribute VB_Name = "Form9"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75. Private Sub Command1_Click()
  76.    Dim rs As ADODB.Command
  77.    Dim str As String
  78.    Call open_db
  79.    str = "insert into 用户管理(用户名,用户密码)"
  80.    str = str & "Values('" & Text1 & "','" & Text2 & "')"
  81.    Set rs = New ADODB.Command
  82.    Set rs.ActiveConnection = adocon
  83.    rs.CommandText = str
  84.    rs.Execute
  85.    Set rs = Nothing
  86.    adocon.Close
  87.    Set adocon = Nothing
  88.    Call close_db
  89.    MsgBox "添加成功！", , vbOKOnly
  90. End Sub
  92. Private Sub Command2_Click()
  93.    Dim rs As ADODB.Command
  94.    Dim str As String
  95.    Set rs = New ADODB.Command
  96.    Call open_db
  97.    str = "delete from 用户管理 where 用户名= '" & Text1 & "'"
  98.    Set rs.ActiveConnection = adocon
  99.    rs.CommandText = str
  100.    rs.Execute
  101.    Set rs = Nothing
  102.    adocon.Close
  103.    Set adocon = Nothing
  104.    Call close_db
  105.    MsgBox "删除成功！", , vbOKOnly
  106. End Sub
  108. Private Sub Command3_Click()
  109.    Unload Me
  110. End Sub