frmsplash.frm

婚姻介绍所管理信息系统

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H80000009&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4245
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   7380
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4245
   ScaleWidth      =   7380
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H80000009&
      Height          =   4050
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   7080
      Begin VB.Image Image1 
         Height          =   3105
         Left            =   5715
         Picture         =   "frmSplash.frx":0C62
         Top             =   900
         Width           =   1305
      End
      Begin VB.Image imgLogo 
         Height          =   2385
         Left            =   90
         Picture         =   "frmSplash.frx":200F
         Stretch         =   -1  'True
         Top             =   1575
         Width           =   1815
      End
      Begin VB.Label lblWarning 
         BackColor       =   &H80000009&
         Caption         =   "警告：版权所有，禁止拷贝"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   3105
         TabIndex        =   1
         Top             =   3600
         Width           =   2355
      End
      Begin VB.Label lblVersion 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "版本"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   6240
         TabIndex        =   2
         Top             =   2400
         Width           =   510
      End
      Begin VB.Label lblPlatform 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "平台"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   6240
         TabIndex        =   3
         Top             =   2040
         Width           =   510
      End
      Begin VB.Label lblCompanyProduct 
         AutoSize        =   -1  'True
         BackColor       =   &H80000009&
         Caption         =   "婚介信息管理系统"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   435
         Left            =   720
         TabIndex        =   4
         Top             =   585
         Width           =   3720
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Private Sub Form_KeyPress(KeyAscii As Integer)
        Unload Me
End Sub

Private Sub Form_Load()
    FrmMain.AdoMain.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mgydb.mdb;Persist Security Info=False"
        FrmMain.AdoMain.CommandType = adCmdText
        FrmMain.AdoMain.RecordSource = "select 编号,年龄,属相,身高,体重,学历,职业,收入,住房,婚姻,孩子,户口,姓名,要求对方,交往情况 from mgydb order by 编号"
        FrmMain.AdoMain.Refresh
        FrmMain.DataGrid1.Refresh
        CountAll = FrmMain.AdoMain.Recordset.RecordCount
        FrmMain.StatusBar1.Panels.Item(2).Text = "共有" & CountAll & "条记录"
        FrmMain.Show
    
End Sub

Private Sub Frame1_Click()

        Unload Me

End Sub