rl_about.frm

图书管理软件,基本功能已具备

VERSION 5.00
Begin VB.Form RL_About 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   6060
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6750
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6060
   ScaleWidth      =   6750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txt_More 
      Height          =   1095
      Left            =   200
      MultiLine       =   -1  'True
      TabIndex        =   2
      Text            =   "RL_About.frx":0000
      Top             =   3510
      Width           =   4125
   End
   Begin VB.Label lbl_Copyright 
      BackStyle       =   0  'Transparent
      Caption         =   "lbl_Copyright"
      Height          =   195
      Left            =   195
      TabIndex        =   1
      Top             =   3240
      Width           =   4575
   End
   Begin VB.Label lbl_Ver 
      BackStyle       =   0  'Transparent
      Caption         =   "lbl_Ver"
      Height          =   225
      Left            =   200
      TabIndex        =   0
      Top             =   4710
      Width           =   1695
   End
   Begin VB.Image Image1 
      Height          =   5100
      Left            =   0
      Picture         =   "RL_About.frx":000B
      Top             =   0
      Width           =   4800
   End
End
Attribute VB_Name = "RL_About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************
'*公司名：华夏学院晨光网络公司
'*系统名：红杉图书信息管理系统
'*程序名：图书类型管理
'*程序ID：RL_BooksType
'*版本：1.2.1
'*最后修改时间：2005/3/25
'*修改人：cuitianlong
'*
'*-------------------------------------------------------------
'*  [年月日]        [制造者]
'*-------------------------------------------------------------
'*  2005/3/23       cuitianlong
'*
'***************************************************************
Option Explicit

'***************************************************************
'*  窗体加载
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Form_Load()
    On Error GoTo Form_Load
    
    Image1.Top = 0
    Image1.Left = 0
    Me.Height = Image1.Height
    Me.Width = Image1.Width
    
    '--- 窗体居中设置
    Call Cmn_Form_Center(Me)
    
    lbl_Copyright.Caption = Got_About_Copyright
    lbl_Ver.Caption = Got_About_Ver
    txt_More.text = Got_About_More
    Exit Sub
Form_Load:
    MsgBox "Form_Load()---出错", vbCritical, "错误"
End Sub

Private Sub Image1_Click()
    Unload Me
End Sub

'****************************************************************
'*  Got_About_Copyright
'*
'*  [参数]
'*      无
'*  [返回]
'*      字符串
'*  [使用示例]
'*      Call Got_About_Copyright
'****************************************************************
Public Function Got_About_Copyright() As String

    Dim INI_Path  As String
    Dim S_Section As String
    Dim S_Key     As String
    Dim S_Path    As String
    Dim Buffer    As String
    Dim rtn       As Long
    
    Buffer = Space(MAX_PATH)                      '路径最大长度
    rtn = GetSystemDirectory(Buffer, Len(Buffer)) '得到系统目录
    WinSysPath = Left(Buffer, rtn)                '将取得的路径去掉无用的字符后传递给WinSysPath
    
    S_Path = WinSysPath '将WinSysPath的值传递给S_Path

    INI_Path = S_Path & "\RLSET.ini" '设置INI文件存在的路径
    S_Section = "ABOUT"              '设置在INI文件中查找的范围
    S_Key = "Copyright"              '设置在INI文件中查找的关键字
    
    Got_About_Copyright = Trim(ReadOneString(INI_Path, S_Section, S_Key))
    
End Function

'****************************************************************
'*  Got_About_Ver
'*
'*  [参数]
'*      无
'*  [返回]
'*      字符串
'*  [使用示例]
'*      Call Got_About_Ver
'****************************************************************
Public Function Got_About_Ver() As String

    Dim INI_Path  As String
    Dim S_Section As String
    Dim S_Key     As String
    Dim S_Path    As String
    Dim Buffer    As String
    Dim rtn       As Long
    
    Buffer = Space(MAX_PATH)                      '路径最大长度
    rtn = GetSystemDirectory(Buffer, Len(Buffer)) '得到系统目录
    WinSysPath = Left(Buffer, rtn)                '将取得的路径去掉无用的字符后传递给WinSysPath
    
    S_Path = WinSysPath '将WinSysPath的值传递给S_Path

    INI_Path = S_Path & "\RLSET.ini" '设置INI文件存在的路径
    S_Section = "ABOUT"              '设置在INI文件中查找的范围
    S_Key = "Ver"                    '设置在INI文件中查找的关键字
    
    Got_About_Ver = Trim(ReadOneString(INI_Path, S_Section, S_Key))
    
End Function

'****************************************************************
'*  Got_About_More
'*
'*  [参数]
'*      无
'*  [返回]
'*      字符串
'*  [使用示例]
'*      Call Got_About_More
'****************************************************************
Public Function Got_About_More() As String

    Dim INI_Path  As String
    Dim S_Section As String
    Dim S_Key     As String
    Dim S_Path    As String
    Dim Buffer    As String
    Dim rtn       As Long
    
    Buffer = Space(MAX_PATH)                      '路径最大长度
    rtn = GetSystemDirectory(Buffer, Len(Buffer)) '得到系统目录
    WinSysPath = Left(Buffer, rtn)                '将取得的路径去掉无用的字符后传递给WinSysPath
    
    S_Path = WinSysPath '将WinSysPath的值传递给S_Path

    INI_Path = S_Path & "\RLSET.ini" '设置INI文件存在的路径
    S_Section = "ABOUT"              '设置在INI文件中查找的范围
    S_Key = "More"                    '设置在INI文件中查找的关键字
    
    Got_About_More = Trim(ReadOneString(INI_Path, S_Section, S_Key))
    
End Function