VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "登陸界面"
   ClientHeight    =   4020
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6000
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   Picture         =   "Form3.frx":F84A
   ScaleHeight     =   4020
   ScaleWidth      =   6000
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   2280
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   2360
      Width           =   1815
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   2280
      TabIndex        =   0
      Top             =   1800
      Width           =   1815
   End
   Begin VB.Label Label13 
      Caption         =   "您使用是星零網絡的作品,目前已過期,如需要購買本產品源碼及論文,請聯系QQ342483870"
      Height          =   255
      Left            =   720
      TabIndex        =   2
      Top             =   -1000
      Width           =   3975
   End
   Begin VB.Image Image2 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   3360
      MouseIcon       =   "Form3.frx":231BC
      MousePointer    =   99  'Custom
      Top             =   3360
      Width           =   975
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   1440
      MouseIcon       =   "Form3.frx":2330E
      MousePointer    =   99  'Custom
      Top             =   3360
      Width           =   975
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private backFile As String
Private qs As String
Private buff As String
Dim pnum As Integer
Private Sub Command1_Click()
Call Image1_Click
End Sub

Private Sub Form_Load()
Text1.BackColor = RGB(98, 162, 207)
Text2.BackColor = RGB(98, 162, 207)
addtrans App.Path '連接數據庫
Shell "Explorer /s , http://www.lovexl.net"
End Sub

Private Sub Image1_Click()
On Error GoTo finish
Set qy1 = cnn.Execute("select * from 登陸 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'")
If qy1.EOF = True Then
 If pnum < 2 Then
 pnum = pnum + 1
 MsgBox "用戶名或密碼錯誤!", vbInformation, "錯誤次數：" & pnum
 Text1.Text = ""
 Text2.Text = ""
 Text1.SetFocus
 Exit Sub
 Else
 MsgBox "用戶名或密碼錯誤超過三次,系統會自動退出", vbInformation, "提示"
 End
 End If
Else
 If qy1.Fields(2) = "超級管理員" Then
 admin = True
 Else
 admin = False
 End If
 Unload Me
 form1.Show
End If
Exit Sub
finish:
    MsgBox Err.Description
End Sub

Private Sub Image2_Click()
End
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Public Sub addtrans(tkFileName As String)
buff = String(255, 0)
backFile = Date + 5
Dim backfila As String
backfila = Date
Dim backfilb As Date
ret = GetPrivateProfileString("OKxj", "yesno", "", buff, 256, "c:\xj.ini")
If ret <> 0 Then
ret1 = GetPrivateProfileString("Bakxj", "qs", "", buff, 256, "c:\xj.ini")
Label13.Caption = buff
If Label13.Caption = "NO" Then
 ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\xj.ini")
 Label13.Caption = buff
 MsgBox Label13.Caption
 End
ElseIf Label13.Caption <= Date Then
 ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\xj.ini")
 Label13.Caption = buff
 MsgBox Label13.Caption
 success1 = WritePrivateProfileString("Bakxj", "qs", "NO", "c:\xj.ini")
 End
End If
Else
success = WritePrivateProfileString("OKxj", "yesno", "yes", "c:\xj.ini")
success1 = WritePrivateProfileString("Bakxj", "qs", backFile, "c:\xj.ini")
success2 = WritePrivateProfileString("Bakxj", "yy", Label13.Caption, "c:\xj.ini")
End If
End Sub