flogin.frm

为个人用户开发的车险秘书系统

VERSION 5.00
Begin VB.Form Flogin 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "登录系统"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7890
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3225
   ScaleWidth      =   7890
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   3225
      Left            =   0
      Picture         =   "Flogin.frx":0000
      ScaleHeight     =   3225
      ScaleWidth      =   7890
      TabIndex        =   0
      Top             =   0
      Width           =   7890
      Begin VB.TextBox Tlogin 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Index           =   0
         Left            =   2640
         TabIndex        =   2
         Text            =   "月影穹苍"
         Top             =   1320
         Width           =   3855
      End
      Begin VB.TextBox Tlogin 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   375
         IMEMode         =   3  'DISABLE
         Index           =   1
         Left            =   2640
         PasswordChar    =   "*"
         TabIndex        =   1
         Text            =   "111111"
         Top             =   1920
         Width           =   3855
      End
      Begin 保险秘书.isButton isBok 
         Height          =   375
         Left            =   3960
         TabIndex        =   5
         Top             =   2520
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         Icon            =   "Flogin.frx":394C
         Style           =   5
         Caption         =   " 登  录"
         IconAlign       =   1
         iNonThemeStyle  =   0
         ShowFocus       =   -1  'True
         Tooltiptitle    =   ""
         ToolTipIcon     =   0
         ToolTipType     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Value           =   -1  'True
      End
      Begin 保险秘书.isButton isBcel 
         Height          =   375
         Left            =   5280
         TabIndex        =   6
         Top             =   2520
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         Icon            =   "Flogin.frx":4226
         Style           =   5
         Caption         =   "取 消"
         IconAlign       =   1
         Tooltiptitle    =   ""
         ToolTipIcon     =   0
         ToolTipType     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "用  户"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   1800
         TabIndex        =   4
         Top             =   1440
         Width           =   690
      End
      Begin VB.Label Label2 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "密  码"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   210
         Left            =   1800
         TabIndex        =   3
         Top             =   2040
         Width           =   690
      End
   End
End
Attribute VB_Name = "Flogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub timecheck()
    Dim RemainDay, Rda As Long
    Dim RemainDay1 As String
    Dim vnum As Integer
    
    RemainDay = GetSetting("MyApp", "set", "day", 0)
    Rda = GetSetting("MyApp", "set", "times", 0)
    
    If RemainDay = 0 Then
        SaveSetting "MyApp", "set", "Start_time", Date
        SaveSetting "MyApp", "set", "day", 1
    Else
        RemainDay1 = GetSetting("MyApp", "set", "Start_time", 0)
        vnum = DateDiff("d", CDate(RemainDay1), Date) + 1
        SaveSetting "MyApp", "set", "day", vnum
    End If
    
    If RemainDay >= 30 Then
        MsgBox "试用期已过，请联系月影穹苍 QQ：7440942"
        Unload Me
        Exit Sub
    End If
        
    MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！"
    If Day(Now) - RemainDay > 0 Then
        Rda = Rda + 1
    End If
    SaveSetting "MyApp", "set", "times", Rda
    
End Sub

Private Sub Form_Load()
    Call timecheck
End Sub

Private Sub isBcel_Click()
    Unload Me
End Sub

Private Sub isBOk_Click()
    Dim vdb As Boolean
    Dim vname, vpws, sql As String
    Dim vnum As Integer
    
    vname = Trim$(Tlogin(0).Text)
    vpws = Trim$(Tlogin(1).Text)
    If vname = "" Or vpws = "" Then
        MsgBox "请填写用户名或密码！"
        Tlogin(0).SetFocus
        Exit Sub
    End If
    
    
    vdb = ExcSql
    If vdb = True Then
        sql = "select count(*) from pass where 用户='" & vname & "' and 密码='" & vpws & "'"
        vnum = conn.Execute(sql)(0)
        'MsgBox sql & vnum
        If vnum > 0 Then
            loginuser = vname
            MDIFmain.Show
        Else
            MsgBox "用户名或密码不正确！"
        End If
    End If

    Unload Me
End Sub

Private Sub Tlogin_GotFocus(Index As Integer)
    Tlogin(Index).BackColor = &HFFC0C0
End Sub

Private Sub Tlogin_LostFocus(Index As Integer)
    Tlogin(Index).BackColor = &HFFFFFF
End Sub