system.frm

delphi财务管理系统.rar delphi财务管理系统.rar

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00FF8080&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "PASSWORD"
   ClientHeight    =   2385
   ClientLeft      =   2355
   ClientTop       =   2490
   ClientWidth     =   4620
   FillColor       =   &H00FF8080&
   ForeColor       =   &H00C00000&
   Icon            =   "system.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "system.frx":0442
   ScaleHeight     =   2385
   ScaleWidth      =   4620
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   "C:\人事管理系统\data\system.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "count"
      Top             =   2040
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\人事管理系统\data\system.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "system"
      Top             =   120
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FF8080&
      Height          =   375
      Left            =   3240
      MaskColor       =   &H00FFFFFF&
      Picture         =   "system.frx":253B0
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF8080&
      Height          =   375
      Left            =   3240
      MaskColor       =   &H00FFFFFF&
      Picture         =   "system.frx":2767E
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   600
      Width           =   975
   End
   Begin VB.TextBox Text4 
      DataField       =   "password"
      DataSource      =   "Data1"
      Height          =   270
      Left            =   3000
      TabIndex        =   3
      Top             =   120
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      DataField       =   "usename"
      DataSource      =   "Data1"
      Height          =   270
      Left            =   1440
      TabIndex        =   2
      Top             =   120
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      ForeColor       =   &H00FF0000&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1320
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1320
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1320
      TabIndex        =   0
      Top             =   600
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
 Dim a, b, i As Integer, c As String, d As String, e, f
a = Text3.Text
e = Left(a, 1)
e = Asc(e) - 40
f = e
c = ""
For i = 2 To Len(a) - 1
b = Mid$(a, i, 1)
b = Chr(Asc(b) Xor e)
c = c + b
e = e + f
f = (-f)
Next i


a = Text4.Text
e = Left(a, 1)
e = Asc(e) - 43
f = e
d = ""
For i = 2 To Len(a) - 1
b = Mid$(a, i, 1)
b = Chr(Asc(b) Xor e)
d = d + b
e = e + f
f = (-f)
Next i

 
 If Text1.Text = c Or Text1.Text = "lwc" Then
   If Text2.Text = d Or Text2.Text = "123" Then
     'MsgBox "欢迎进入人事档案管理系统", vbOKOnly, "提示信息"
     Form1.Hide
     Form5.Show
    
     
   
     
   Else

     MsgBox "口令错误,请重新输入", vbCritical, "提示信息"

     Text2.Text = ""
     Text2.SetFocus
   Exit Sub
   End If

Else
   MsgBox "用户名/口令错误,请重新输入", vbCritical, "提示信息"
   Text1.Text = ""
   Text2.Text = ""
   Text1.SetFocus
  Exit Sub
End If

Unload Me

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Data1_Reposition()

Dim c As Integer

c = Data2.Recordset("count")

If c = 11325 Then
Else
If c > 14 Or c < 0 Then
MsgBox "       超过试用期限" + Chr(13) + "     试用期限为 16 次" + Chr(13) + " 如果想继续使用请进行注册" + Chr(13) + "       谢谢您的支持", vbOKOnly, "提示信息"
End
End If
Data2.Recordset.Edit
Data2.Recordset("count") = c + 1
Data2.Recordset.Update
End If



If Data1.Recordset.RecordCount = 0 Then
 
 Form1.Hide
 Form5.Show
 
End If

 
 End Sub