frmwellcom.frm

VB写的通过串口与考勤机连接通讯的程序

VERSION 5.00
Begin VB.Form frmWellcom 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   3030
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   6765
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3030
   ScaleWidth      =   6765
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   5460
      Left            =   0
      Picture         =   "frmWellcom.frx":0000
      ScaleHeight     =   5400
      ScaleWidth      =   7200
      TabIndex        =   0
      Top             =   -120
      Width           =   7260
      Begin VB.Timer Timer1 
         Interval        =   3000
         Left            =   0
         Top             =   120
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Copyright CCLanYa-2002 v1.0 "
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   210
         Left            =   3360
         TabIndex        =   2
         Top             =   2880
         Width           =   2940
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "蓝牙数码考勤系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   495
         Left            =   1560
         TabIndex        =   1
         Top             =   240
         Width           =   3735
      End
   End
End
Attribute VB_Name = "frmWellcom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
If adoCon.State = adStateOpen Then
   adoCon.Close
   Set adoCon = Nothing
End If
Call setConnect
End Sub

Private Sub Timer1_Timer()
Dim I As Integer
Dim J As Integer
        I = Me.Height
        J = Me.Width
    While I >= 10
        I = I - 20
         J = J - 40
            Me.Height = I
            Me.Width = J
           
    Wend
    Unload Me
    frmLogin.Show
    
  
End Sub