SQL Server

开发平台：
Visual Basic

YHdenglu.frm：源码内容
							VERSION 5.00
Begin VB.Form YHdenglu 
   Caption         =   "登录"
   ClientHeight    =   2820
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4665
   LinkTopic       =   "Form1"
   ScaleHeight     =   2820
   ScaleWidth      =   4665
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton TuiCHu 
      Caption         =   "退   出"
      Height          =   375
      Left            =   2640
      TabIndex        =   7
      Top             =   2280
      Width           =   1095
   End
   Begin VB.CommandButton YHdenglu 
      Caption         =   "登   录"
      Height          =   375
      Left            =   1080
      TabIndex        =   6
      Top             =   2280
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Height          =   1215
      Left            =   600
      TabIndex        =   1
      Top             =   840
      Width           =   3495
      Begin VB.TextBox MiMa 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1320
         PasswordChar    =   "*"
         TabIndex        =   5
         Top             =   720
         Width           =   1815
      End
      Begin VB.TextBox YongHuMing 
         Height          =   270
         Left            =   1320
         TabIndex        =   3
         Top             =   240
         Width           =   1815
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "密  码："
         Height          =   180
         Left            =   240
         TabIndex        =   4
         Top             =   765
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "用户名："
         Height          =   180
         Left            =   240
         TabIndex        =   2
         Top             =   285
         Width           =   720
      End
   End
   Begin VB.Label Label1 
      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       =   &H0000C000&
      Height          =   450
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   4215
   End
End
Attribute VB_Name = "YHdenglu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MiMa_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then YHdenglu_Click
End Sub
Private Sub Form_Unload(Cancel As Integer)
  If YongHuDL.State = adStateOpen Then YongHuDL.Close
  Set YongHuDL = Nothing
End Sub
Private Sub TuiCHu_Click()
  End
End Sub
Private Sub YHdenglu_Click()
  If YongHuMing.Text = "" Or MiMa.Text = "" Then
     MsgBox "用户名或密码空了，还登个屁啊！", , "有病提示"
  Else
'     DLyonghuM = YongHuMing.Text
'     DLyonghuQX = QuanXian.Text
'     DLyonghuMM = MiMa.Text
     If YongHuDL.State = adStateOpen Then YongHuDL.Close
     YongHuDL.Open "select * from userDL where ID='" & YongHuMing.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
     If YongHuDL.EOF Then
        MsgBox "你有毛病啊，连名字都记错！", , "有病提示"
        YongHuMing.SetFocus
        YongHuMing.SelStart = 0
        YongHuMing.SelLength = Len(YongHuMing.Text)
     Else
        If MiMa.Text = YongHuDL.Fields(1) Then
          DLyonghuM = YongHuDL.Fields(0)
          DLyonghuQX = YongHuDL.Fields(2)
          DLyonghuMM = YongHuDL.Fields(1)
           Load FrmMain
           FrmMain.Show
           Unload Me
        Else
           MsgBox "密码错误！请仔细检查重新输入！", , "温馨提示"
           MiMa.SetFocus
           MiMa.SelStart = 0
           MiMa.SelLength = Len(MiMa.Text)
        End If
     End If
  End If
End Sub

						