welcome.frm

学校管理系统 V1.0 正式企业版是一款面向中小型企业、个体私营企业

VERSION 5.00
Begin VB.Form frmWelcome 
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2160
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3285
   ForeColor       =   &H00000000&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2160
   ScaleWidth      =   3285
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   1500
      Left            =   2760
      Top             =   1680
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H00404080&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   300
      Left            =   0
      ScaleHeight     =   300
      ScaleWidth      =   3285
      TabIndex        =   0
      Top             =   0
      Width           =   3285
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   100
         TabIndex        =   1
         Top             =   75
         Width           =   3105
      End
   End
   Begin VB.Label lbl04 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   1560
      Width           =   2535
   End
   Begin VB.Label lbl03 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Label lbl02 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   360
      TabIndex        =   3
      Top             =   840
      Width           =   2535
   End
   Begin VB.Label lbl01 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   360
      TabIndex        =   2
      Top             =   480
      Width           =   2535
   End
End
Attribute VB_Name = "frmWelcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New ADODb.Connection
Dim rs As New ADODb.Recordset
Dim strSql As String

Private Sub Form_Initialize()
If App.PrevInstance Then
  MsgBox "本程序正在运行，这个窗口将自动结束！"
  End
End If
End Sub

Private Sub Form_Load()

Call SetOnTop(Me)

Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2


Picture1.BorderStyle = 0
Label1.Left = (Me.Width - Label1.Width) / 2
Label1.Alignment = vbCenter
Label1.ForeColor = vbYellow
Label1.FontSize = 10
Label1.BackStyle = 0

DBpath = App.Path + "\database\school.mdb"
strSql = "provider=Microsoft.Jet.oledb.4.0;data source=" & DBpath & ";Jet OLEDB:Database Password=" & pwd & ";"
conn.Open strSql

strSql = "Select * from 学校资料"
rs.Open strSql, conn, adOpenKeyset, adLockPessimistic
Label1.Caption = rs.Fields("学校名称")
lbl01.Caption = rs.Fields("学校名称")
lbl02.Caption = rs.Fields("法人代表")
lbl03.Caption = rs.Fields("网址")
lbl04.Caption = rs.Fields("学校地址")

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim I As Integer
        I = Me.Height
    While I >= Picture1.Height
        I = I - 10
        If I > Picture1.Height Then
            Me.Height = I
        Else
            Me.Height = Picture1.Height
        End If
        
        DoEvents
    Wend
    
    I = Me.Top
    I = Me.Top
    While I > 0
        Me.Move Me.Left, I, Me.Width, Me.Height
        I = I - 10
        DoEvents
        
    Wend
    I = Me.Left
    While I < Screen.Width
        Me.Move I, 0, Me.Width, Me.Height
        I = I + 20
        DoEvents
       
    Wend
End Sub


Private Sub Timer1_Timer()
Unload Me
End
End Sub