form2.frm

增加,浏览,修改,学生的信息,输入条件查询

               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3360
            TabIndex        =   17
            Top             =   1680
            Width           =   1335
         End
         Begin VB.TextBox Text4 
            Height          =   375
            Left            =   1440
            TabIndex        =   6
            Top             =   360
            Width           =   3375
         End
         Begin VB.TextBox Text5 
            Height          =   375
            Left            =   1440
            TabIndex        =   5
            Top             =   960
            Width           =   3375
         End
         Begin VB.CommandButton Command2 
            Caption         =   "修改密码"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   1800
            TabIndex        =   4
            Top             =   1680
            Width           =   1335
         End
         Begin VB.CommandButton Command3 
            Caption         =   "删  除"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   360
            TabIndex        =   3
            Top             =   1680
            Width           =   1335
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "用 户 名："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   240
            Left            =   240
            TabIndex        =   8
            Top             =   360
            Width           =   1200
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            Caption         =   "用户密码："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   240
            Left            =   240
            TabIndex        =   7
            Top             =   960
            Width           =   1200
         End
      End
      Begin VB.CommandButton Command1 
         Caption         =   "用户注册"
         Default         =   -1  'True
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   -73920
         TabIndex        =   1
         Top             =   2400
         Width           =   1455
      End
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FF80FF&
      X1              =   240
      X2              =   7560
      Y1              =   240
      Y2              =   240
   End
End
Attribute VB_Name = "Frmxt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
   Frmxg.Show
End Sub

Private Sub Command3_Click()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open Frmuse.Adodc1.ConnectionString
     rs.Open "select * from 用户信息 where 用户名='" & Text4 & "'", cn, 1, 3
    If Text4 = "" Or Text5 = "" Then
      MsgBox "请输入完整信息！", , "提示"
    Else
     If rs.EOF Then MsgBox "无此用户，请重新输入用户名！", vbOKOnly + vbQuestion, "提示": Text4 = "": Text5 = "": Text4.SetFocus: Exit Sub
     If Text5.Text <> rs.Fields(1) Then MsgBox "密码错误，请重新输入密码！", vbOKOnly + vbQuestion, "提示": Text5 = "": Text5.SetFocus: Exit Sub
            If rs.Fields(2) = 1 Then
               MsgBox "是否删除当前记录", vbOKCancel + vbQuestion, "删除提示"
               rs.Delete
               Text4 = ""
               Text5 = ""
               MsgBox "删除用户成功", , "删除提示"
            Else
                    MsgBox "不能删除管理员", , "提示"
            End If
   End If
End Sub

Private Sub Command4_Click()
   Frmxt.Hide
End Sub

Private Sub Command1_Click()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open Frmuse.Adodc1.ConnectionString
   If Text1 = "" Or Text2 = "" Or Text3 = "" Then
      i = MsgBox("请输入完整的用户信息！", 48, "修改提示") = vbOK
      Text1.SetFocus
   Else
       If Text2 <> Text3 Then
          MsgBox "两次密码不一致重新输入！", 48, "提示"
          Text2 = ""
          Text3 = ""
          Text2.SetFocus
       Else
          If Option1.Value = False And Option2.Value = False Then MsgBox "请选择登录类型！", , "提示": Exit Sub
          If Option1.Value = True Then qx = 0
          If Option2.Value = True Then qx = 1
             rs.Open "select * from 用户信息 where 用户名 ='" & Text1.Text & "'", cn, 1, 3
             If rs.EOF Then
               rs.AddNew
               rs.Fields(0) = Text1
               rs.Fields(1) = Text2
               rs.Fields(2) = qx
               rs.Update
                MsgBox "恭喜你，新用户注册成功！", 48, "提示"
             Else
               MsgBox "该用户已经存在请重新输入用户名！", 1 + 16, "提示"
             End If
                Text1 = ""
                Text2 = ""
                Text3 = ""
                Text1.SetFocus
       End If
   End If
End Sub

Private Sub Command5_Click()
   Frmxt.Hide
End Sub

Private Sub Form_Activate()
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
      cn.Open Frmuse.Adodc1.ConnectionString
      rs.Open "select * from 用户信息", cn, 1, 3

   
    

End Sub