load.frm

vc考试系统vc在线 考试系统vc在线 考试系统

VERSION 5.00
Begin VB.Form Form7 
   Caption         =   "登录报刊订阅系统"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   Icon            =   "load.frx":0000
   LinkTopic       =   "Form7"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton ccancle 
      Caption         =   "取 消"
      Height          =   495
      Left            =   2760
      TabIndex        =   4
      Top             =   2280
      Width           =   1455
   End
   Begin VB.CommandButton cok 
      Caption         =   "确 定"
      Default         =   -1  'True
      Height          =   495
      Left            =   600
      TabIndex        =   3
      Top             =   2280
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Index           =   1
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1560
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   0
      Left            =   2040
      TabIndex        =   1
      Top             =   1080
      Width           =   1695
   End
   Begin VB.Label Label1 
      Caption         =   "密  码："
      Height          =   255
      Index           =   2
      Left            =   1200
      TabIndex        =   6
      Top             =   1680
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "用户名："
      Height          =   255
      Index           =   1
      Left            =   1200
      TabIndex        =   5
      Top             =   1200
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "欢迎使用报刊订阅系统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   600
      TabIndex        =   0
      Top             =   240
      Width           =   3615
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ccancle_Click()
  End
End Sub

Private Sub cok_Click()
rstemp.MoveFirst
If rstemp("madmin") = Text1(0).Text And rstemp("mpassword") = DigestStrToHexStr(Text1(1).Text) Then
   If rstemp.State = adStateOpen Then
      Set rstemp = Nothing
   End If
   Unload Me
   Load MDIForm1
   MDIForm1.Show vbmode
Else
   I = I + 1
   If I = 3 Then
      MsgBox "对不起，你已经连续输错3次用户名或密码！系统将退出", 0 + 16, "系统退出"
      End
   End If
   MsgBox "用户名或密码错误，请重新输入。  你还可以尝试 " & 3 - I & " 次" & Chr(13) & _
          "“友情提示：检查大小写”", 0 + 16, "用户名或密码错误"
   Text1(1).SetFocus
End If
End Sub

Private Sub Form_Load()
adodc1.Open connectstring
If rstemp.State <> adStateOpen Then
rstemp.CursorLocation = adUseClient
rstemp.Open "select * from manage", adodc1, adOpenKeyset, adLockPessimistic
End If
End Sub