login.frm

我自己编写的个人财务系统,VB语言,用于个人财务统计,可自己初始化财务类别,密码8127!

VERSION 5.00
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form login 
   BackColor       =   &H8000000A&
   Caption         =   "系统登入"
   ClientHeight    =   2820
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4590
   Icon            =   "login.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2820
   ScaleWidth      =   4590
   StartUpPosition =   2  '屏幕中心
   Begin CSCommand.Command Command2 
      Height          =   495
      Left            =   1440
      TabIndex        =   4
      Top             =   2040
      Width           =   855
      _ExtentX        =   1508
      _ExtentY        =   873
      IconAlign       =   0
      Icon            =   "login.frx":0E42
      Caption         =   "取   消"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin CSCommand.Command Command1 
      Height          =   495
      Left            =   240
      TabIndex        =   3
      Top             =   2040
      Width           =   855
      _ExtentX        =   1508
      _ExtentY        =   873
      IconAlign       =   0
      Icon            =   "login.frx":0E5E
      Caption         =   "确  定"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1815
      Left            =   2280
      Picture         =   "login.frx":0E7A
      ScaleHeight     =   1815
      ScaleWidth      =   2895
      TabIndex        =   5
      Top             =   -120
      Width           =   2895
   End
   Begin VB.TextBox Text2 
      DataField       =   "name"
      DataSource      =   "ad1"
      Height          =   375
      Left            =   2880
      TabIndex        =   7
      TabStop         =   0   'False
      Text            =   "Text2"
      Top             =   960
      Width           =   855
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000012&
      Height          =   330
      Left            =   960
      TabIndex        =   6
      Text            =   "Combo1"
      Top             =   600
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   960
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1320
      Width           =   1215
   End
   Begin VB.Label Label2 
      BackColor       =   &H8000000B&
      Caption         =   "密码:"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   1440
      Width           =   495
   End
   Begin VB.Label Label1 
      BackColor       =   &H8000000A&
      Caption         =   "帐户名:"
      ForeColor       =   &H80000017&
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   720
      Width           =   735
   End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


'Public db As ADODB.Connection
Dim rs As New ADODB.Recordset
'Public rs1 As ADODB.Recordset
Private Sub Command1_Click()
If Combo1.Text <> "" And Text1.Text <> "" Then
    If Combo1.Text = "管理员" Then
        MyOpen rs, "select * from adpw "
        If Not rs.EOF Then
            If Text1.Text = rs(0) Then
                'Timer1.Enabled = True
                grctxt.Show
                myName = Combo1.Text
                myPass = Text1.Text
                Unload Me
                Exit Sub
            Else
                GoTo l:
            End If
        End If
    End If
    MyOpen rs, "select * from pw where name='" & Combo1.Text & "'"
    If rs.EOF = False And Text1.Text = rs(1) Then
        'Timer1.Enabled = True
        rs.Close
        myName = Combo1.Text
        myPass = Text1.Text
        grctxt.Show
        Unload Me

    Else
l:       MsgBox "你是我的主人吗？是的话再试试，密码可不对哦!", vbExclamation, "呵呵，密码可不对哦！"
         Text1.SetFocus
         'ad1.Recordset.MoveFirst
    End If
Else
    MsgBox "请输入帐户和密码!", vbCritical, "错误!"
    Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_Load()
'Set db = New ADODB.Connection '设置连接
'Set rs = New ADODB.Recordset

'db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';Data Source=" & App.Path & "\xitong.mdb" '& App.Path &表示程序所在文件夹
'db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';Data Source=" & App.Path & "\xitong.mdb"
'db.ConnectionTimeout = 100
'rs.Open "select name from password", db, adOpenStatic, adLockBatchOptimistic '连接到基本表XH,XM
'Set Text1.DataSource = rs

MyOpen rs, "select * from pw"

Do While rs.EOF = False
    Combo1.AddItem rs(0)
    rs.MoveNext
Loop
Combo1.AddItem "管理员"
Combo1.ListIndex = 0




End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{Tab}"
    End If
End Sub


Private Sub Text1_GotFocus()
    Text1.ForeColor = vbYellow
    Text1.BackColor = vbRed
    Text1.SelStart = 0
    Text1.SelLength = 6
End Sub
Private Sub Text1_LostFocus()
    Text1.ForeColor = vbBlack
    Text1.BackColor = vbWhite
End Sub