frmlogin.frm

数据库备份与恢复的程序

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录"
   ClientHeight    =   1545
   ClientLeft      =   3420
   ClientTop       =   2460
   ClientWidth     =   3870
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   912.837
   ScaleMode       =   0  'User
   ScaleWidth      =   3633.72
   Begin VB.ComboBox Comb_Xm 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1380
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   90
      Width           =   2100
   End
   Begin VB.TextBox Txt_Pass 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   1380
      MaxLength       =   8
      PasswordChar    =   "*"
      TabIndex        =   4
      Top             =   540
      Width           =   2085
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   390
      Left            =   495
      TabIndex        =   2
      Top             =   1020
      Width           =   1140
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   390
      Left            =   2100
      TabIndex        =   3
      Top             =   1020
      Width           =   1140
   End
   Begin VB.Label lblLabels 
      Caption         =   "用户名称(&U):"
      Height          =   270
      Index           =   0
      Left            =   105
      TabIndex        =   0
      Top             =   150
      Width           =   1080
   End
   Begin VB.Label lblLabels 
      Caption         =   "密    码(&P):"
      Height          =   270
      Index           =   1
      Left            =   105
      TabIndex        =   1
      Top             =   570
      Width           =   1110
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim I As Integer
Dim CONNPUB As Connection
Dim Moeo As String
Dim VarCode As String
Dim VarName As String


Private Sub Comb_Bm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call CmdOk_Click
End Sub

Private Sub Comb_Xm_Click1()
If Comb_Xm.Text = "" Then Exit Sub
Dim Rs As Recordset
Set Rs = New Recordset
Rs.Open "SELECT * FROM JL_SYS_MANAGER where SYS_BZ='系统管理员' and SYS_NAME='" & Comb_Xm.Text & "'", CONNPUB, adOpenForwardOnly, adLockReadOnly
If Not Rs.EOF Then
    VarCode = Rs!SYS_PASS
    VarName = Comb_Xm.Text
    Moeo = Rs!sys_bz
End If

End Sub

Private Sub Comb_Xm_Click()
Comb_Xm_Click1
End Sub

Private Sub Form_Activate()
Txt_Pass.SetFocus
End Sub

Private Sub Form_Load()
Connect_Db CONNPUB
'Call Fill_Xm
'Comb_Xm_Click1

Exit Sub
errHand:
End Sub


Private Sub Fill_Xm()
Dim Rs As Recordset
Comb_Xm.Clear
Set Rs = New Recordset
'ON ERROR GOTO

Rs.Open "SELECT * FROM JL_SYS_MANAGER where SYS_BZ='系统管理员'", CONNPUB, adOpenStatic, adLockReadOnly, adCmdText
If Rs.BOF And Rs.EOF Then Exit Sub
'首先取出第一个登记人员的编码,默认操作员的口令是第一个
VarCode = Rs!sys_code
Do While Not Rs.EOF
    Comb_Xm.AddItem Rs!sys_name
    Rs.MoveNext
Loop
Comb_Xm.Text = Comb_Xm.List(0)
VarName = Comb_Xm.Text
Rs.Close
Set Rs = Nothing
End Sub




Private Sub CmdCancel_Click()
    Me.Hide
    Unload Me
End Sub

Private Sub CmdOk_Click()
'command
    '检查正确的密码
    If Txt_Pass.Text <> VarCode Then
       If I >= 3 Then
          Call DispButt("对不起，您有三次输入的口令都没对！", 1)
          Me.Hide
          Unload Me
          Exit Sub
       End If
        Call DispButt("对不起,您不是管理员或输入的口令有误,请重新输入", 1)
        Txt_Pass.Text = ""
        Txt_Pass.SetFocus
        SendKeys "{Home}+{End}"
        I = I + 1
        
    Else
       Unload Me
       frmBackRest.Show
    End If
End Sub

'连接数据库
Public Function Connect_Db(Var_Conn As Connection)
On Error GoTo errHand:

Set Var_Conn = New Connection 'Microsoft.Jet.OLEDB.3.51
Var_Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ZyqData;Data Source=STRONG"
'Var_Conn = True
Exit Function

errHand:
         MsgBox "数据库连接有错误,请检测服务器是否打开!", vbOKOnly, "系统提示"
     
         Connect_Db = False
         Exit Function
End Function
Public Function DispButt(Msg As String, style As Integer)
Dim TITLE, Help, Ctxt, Response, MyString
Dim Yn As String
'Msg  定义信息。
'定义按钮 Style 。
'vbOK 1 OK
'vbCancel 2 Cancel
'vbAbort 3 Abort
'vbRetry 4 Retry
'vbIgnore 5 Ignore'
'vbYes 6 Yes
'vbNo 7 No
Ctxt = 1000   ' 定义标题
TITLE = "计量管理系统"
Response = MsgBox(Msg, style, TITLE)
Select Case Response
   Case vbYes     ' 用户按下“是”。
        Yn = "Y"  ' 完成某操作。
   Case vbNo   ' 用户按下“否”。
        Yn = "N"   ' 完成某操作。
   Case vbOK
        Yn = "O"
End Select
DispButt = Yn
End Function

Private Sub Form_Unload(Cancel As Integer)
CONNPUB.Close
Set CONNPUB = Nothing
End Sub