SQL Server

开发平台：
Visual Basic

tianjiaYH.frm：源码内容
							VERSION 5.00
Begin VB.Form tianjiaYH 
   Caption         =   "添加用户"
   ClientHeight    =   3330
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4665
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   3330
   ScaleWidth      =   4665
   Begin VB.CommandButton Command2 
      Caption         =   "取   消"
      Height          =   375
      Left            =   2880
      TabIndex        =   11
      Top             =   2880
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确   定"
      Height          =   375
      Left            =   720
      TabIndex        =   10
      Top             =   2880
      Width           =   1095
   End
   Begin VB.PictureBox Picture1 
      Height          =   1935
      Left            =   0
      ScaleHeight     =   1875
      ScaleWidth      =   4575
      TabIndex        =   1
      Top             =   840
      Width           =   4630
      Begin VB.ComboBox YHqx 
         Height          =   300
         ItemData        =   "tianjiaYH.frx":0000
         Left            =   1920
         List            =   "tianjiaYH.frx":000A
         TabIndex        =   9
         Text            =   "管理员"
         Top             =   1440
         Width           =   1600
      End
      Begin VB.TextBox QDmima 
         Height          =   270
         Left            =   1920
         TabIndex        =   7
         Top             =   1000
         Width           =   1575
      End
      Begin VB.TextBox YHmima 
         Height          =   270
         Left            =   1920
         TabIndex        =   5
         Top             =   600
         Width           =   1575
      End
      Begin VB.TextBox YHming 
         Height          =   270
         Left            =   1920
         TabIndex        =   3
         Top             =   200
         Width           =   1575
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "权限设置："
         Height          =   180
         Left            =   900
         TabIndex        =   8
         Top             =   1500
         Width           =   900
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "确定密码："
         Height          =   180
         Left            =   900
         TabIndex        =   6
         Top             =   1080
         Width           =   900
      End
      Begin VB.Label Label3 
         Caption         =   "密  码："
         Height          =   255
         Left            =   960
         TabIndex        =   4
         Top             =   650
         Width           =   735
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "用户名："
         Height          =   180
         Left            =   960
         TabIndex        =   2
         Top             =   240
         Width           =   720
      End
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "公 司 人 事 管 理 系 统"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C000&
      Height          =   450
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   4215
   End
End
Attribute VB_Name = "tianjiaYH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  If YHming.Text = "" Or YHmima.Text = "" Or YHqx.Text = "" Then
     MsgBox "用户名、密码、用户权限缺一不可，先仔细填写完整！", , "温馨提示"
  Else
     If YHmima.Text <> QDmima.Text Then
        MsgBox "两次输入密码不一致，请仔细检查，并记好准确密码！", , "温馨提示"
     Else
        QD = MsgBox("确定添加这个用户么？", 64 + 4, "温馨提示")
        If QD = 6 Then
           TJyonghu.AddNew
           TJyonghu.Fields(0) = Trim(YHming.Text)
           TJyonghu.Fields(1) = Trim(YHmima.Text)
           TJyonghu.Fields(2) = Trim(YHqx.Text)
           TJyonghu.Update
           MsgBox "成功添加一个用户" + vbCrLf + "用户名：" + YHming.Text + vbCrLf + "密码：" + YHmima.Text + vbCrLf + "权限：" + YHqx.Text + vbCrLf + "请妥善保存密码！", , "温馨提示"
        Else
           YHming.Text = ""
           YHmima.Text = ""
           YHqx.Text = ""
           QDmima.Text = ""
        End If
     End If
 End If
End Sub
Private Sub Command2_Click()
  Unload Me
End Sub
Private Sub Form_Load()
  Me.Height = 3840
  Me.Width = 4785
  MsgBox "设置权限时请慎重考虑！", , "温馨提示"
  If TJyonghu.State = adStateOpen Then TJyonghu.Close
  TJyonghu.Open "userDL", MySQL, adOpenKeyset, adLockPessimistic
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Set TJyonghu = Nothing
End Sub

						