frm_splash.frm

提供给入门级别的GPRS编程人员

VERSION 5.00
Begin VB.Form frm_splash 
   BorderStyle     =   0  'None
   Caption         =   "GPRS用电管理系统"
   ClientHeight    =   7200
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9585
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7200
   ScaleWidth      =   9585
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Height          =   7215
      Left            =   0
      Picture         =   "frm_splash.frx":0000
      ScaleHeight     =   7155
      ScaleWidth      =   9555
      TabIndex        =   0
      Top             =   0
      Width           =   9615
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   6120
         Top             =   1440
      End
   End
End
Attribute VB_Name = "frm_splash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
    OpenCn
End Sub

Private Sub Timer1_Timer()
    Dim strsql As String
    strsql = "select * from gongdiansuoreg"
    OpenCn
    openrs strsql
    If Not rs.EOF Then
        clors
        clocn
        Unload Me
        frm_login.Show
        Exit Sub
    Else
        clors
        clocn
        '        frm_reg.Show
        Unload Me
        MsgBox ("您还没有注册，请您先注册！"), vbOKOnly + vbInformation, "提示"
        frm_reg.Show
        Exit Sub
    End If
End Sub