Form9.frm
上传用户:xzhdjhq
上传日期:2013-04-04
资源大小:302k
文件大小:3k
源码类别:

软件工程

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form Form9 
  3.    Caption         =   "用户管理"
  4.    ClientHeight    =   3645
  5.    ClientLeft      =   2565
  6.    ClientTop       =   2340
  7.    ClientWidth     =   4980
  8.    LinkTopic       =   "Form9"
  9.    ScaleHeight     =   3645
  10.    ScaleWidth      =   4980
  11.    Begin VB.CommandButton Command2 
  12.       Caption         =   "退出"
  13.       Height          =   375
  14.       Left            =   2760
  15.       TabIndex        =   7
  16.       Top             =   2760
  17.       Width           =   975
  18.    End
  19.    Begin VB.CommandButton Command1 
  20.       Caption         =   "注册"
  21.       Height          =   375
  22.       Left            =   1320
  23.       TabIndex        =   6
  24.       Top             =   2760
  25.       Width           =   1095
  26.    End
  27.    Begin VB.TextBox Text3 
  28.       Height          =   375
  29.       IMEMode         =   3  'DISABLE
  30.       Left            =   1800
  31.       PasswordChar    =   "*"
  32.       TabIndex        =   2
  33.       Top             =   2040
  34.       Width           =   1455
  35.    End
  36.    Begin VB.TextBox Text2 
  37.       Height          =   375
  38.       IMEMode         =   3  'DISABLE
  39.       Left            =   1800
  40.       PasswordChar    =   "*"
  41.       TabIndex        =   1
  42.       Top             =   1320
  43.       Width           =   1455
  44.    End
  45.    Begin VB.TextBox Text1 
  46.       Height          =   375
  47.       Left            =   1800
  48.       TabIndex        =   0
  49.       Top             =   600
  50.       Width           =   1455
  51.    End
  52.    Begin VB.Label Label3 
  53.       Caption         =   "重复密码:"
  54.       Height          =   495
  55.       Left            =   840
  56.       TabIndex        =   5
  57.       Top             =   2160
  58.       Width           =   1095
  59.    End
  60.    Begin VB.Label Label2 
  61.       Caption         =   "密码:"
  62.       Height          =   375
  63.       Left            =   1080
  64.       TabIndex        =   4
  65.       Top             =   1440
  66.       Width           =   855
  67.    End
  68.    Begin VB.Label Label1 
  69.       Caption         =   "用户名:"
  70.       Height          =   375
  71.       Left            =   960
  72.       TabIndex        =   3
  73.       Top             =   720
  74.       Width           =   735
  75.    End
  76. End
  77. Attribute VB_Name = "Form9"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Sub Command1_Click()
  83. Dim pubConn As New ADODB.Connection
  84. Dim rs As New ADODB.Recordset
  85. If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text3.Text = Text2.Text Then
  86. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "luojie.mdb" & ";" & "Persist Security Info=False"
  87. pubConn.ConnectionTimeout = 30
  88. pubConn.Open
  89. rs.CursorLocation = adUseClient
  90. strSQL = "select  * from user11 "
  91. rs.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  92.     rs.AddNew
  93.     rs!用户名 = Text1.Text
  94.     rs!密码 = Text2.Text
  95.     rs.Update
  96.     MsgBox "注册成功!", vbExclamation + vbOKOnly, "警告"
  97.     Form4.Hide
  98.     Else
  99.     m = MsgBox("错误,请重新登录", vbExclamation)
  100.     Text1.Text = ""
  101.     Text2.Text = ""
  102.     Text3.Text = ""
  103. End If
  104. End Sub
  105. Private Sub Command2_Click()
  106. Unload Me
  107. End Sub