frmabout.frm

在线图书馆系统 包括VB程序设计的后台与ASP的网页

VERSION 5.00
Begin VB.Form FrmAbout 
   Caption         =   "关于"
   ClientHeight    =   4590
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7590
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   4590
   ScaleWidth      =   7590
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CmdSys 
      Caption         =   "系统信息"
      Height          =   495
      Left            =   3360
      TabIndex        =   4
      Top             =   3480
      Width           =   1095
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "确定"
      Height          =   495
      Left            =   5160
      TabIndex        =   3
      Top             =   3480
      Width           =   1215
   End
   Begin VB.Line Line1 
      BorderColor     =   &H8000000E&
      BorderWidth     =   2
      Index           =   1
      X1              =   2640
      X2              =   7320
      Y1              =   2990
      Y2              =   2990
   End
   Begin VB.Line Line1 
      Index           =   0
      X1              =   2640
      X2              =   7320
      Y1              =   3000
      Y2              =   3000
   End
   Begin VB.Label Label3 
      Caption         =   "版本  2.0"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3000
      TabIndex        =   2
      Top             =   1320
      Width           =   1575
   End
   Begin VB.Label Label2 
      Caption         =   "本程序使用Microsoft Visual Basic 6.0与Microsoft SQL Server 2000开发。"
      Height          =   735
      Left            =   2880
      TabIndex        =   1
      Top             =   1920
      Width           =   3735
   End
   Begin VB.Label Label1 
      Caption         =   "图书馆管理系统"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   375
      Left            =   3600
      TabIndex        =   0
      Top             =   600
      Width           =   2295
   End
   Begin VB.Image Image1 
      Height          =   4275
      Left            =   240
      Picture         =   "FrmAbout.frx":0000
      Stretch         =   -1  'True
      Top             =   120
      Width           =   2175
   End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdOK_Click()
    Unload Me
End Sub

Private Sub CmdSys_Click()
 On Error GoTo SysInfoErr
        Dim rc As Long
        Dim SysInfoPath As String

        ' Try To Get System Info Program Path\Name From Registry...
        If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then
        ' Try To Get System Info Program Path Only From Registry...
        ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then
                ' Validate Existance Of Known 32 Bit File Version
                If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then
                       SysInfoPath = SysInfoPath & "\MSINFO32.EXE"

                ' Error - File Can Not Be Found...
                Else
                        GoTo SysInfoErr
                End If
        ' Error - Registry Entry Can Not Be Found...
        Else
                GoTo SysInfoErr
        End If
        
        Call Shell(SysInfoPath, vbNormalFocus)
        
        Exit Sub
SysInfoErr:
        MsgBox "System Information Is Unavailable At This Time", vbOKOnly
End Sub