数据库_通用m.bas

<VB数理统计实用算法>书中的算法源程序

Attribute VB_Name = "ModPublic"
'通用数据库管理程序
'BAS模块
Option Explicit
Public ws As Workspace, db As Database, td As TableDef
Public fd As Field, id As Index, rl As Relation
Public tdMain As TableDef, tdForeign As TableDef
Public rs As Recordset
Public strDBName As String          '保存数据库名字
Public strTDName As String          '保存数据表名字
'**********************
Public strDriveName As String       '保存驱动器名字
Public strDirName As String         '保存目录名字
Public strFileName As String        '保存文件名字
Public intFileNumber As Integer     '文件号
Public intRow As Integer            '行数
Public intRowAll As Integer         '包括标题、行标和列标的总行数
Public intCol As Integer            '列数
Public blnTitle As Boolean          '是否有标题
Public blnRowLabel As Boolean       '是否有行标
Public blnColLabel As Boolean       '是否有列标
Public dbArray()                    '保存数据

'“菜单_近期访问文件”部分
'在INI文件中取出键名和键值。
'lpApplicationName为段名。
'lpKeyName键名。若指定的段中不存在该键，则创建。
'如果给定的lpKeyName在INI文件中没有找到，则用lpDefault作为
'lpReturnedString缺省字符串返回。
'用nSize为lpReturnedString指定大小。
'lpFileName为INI文件名。
Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, _
    ByVal nSize As Long, ByVal lpFileName As String) As Long
'将键名和键值写入INI文件。
'lpString是被写入INI文件的字符串。如果为空，则其所指向的键将被删除。
'其余参数同上。
Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
    ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Const MaxFileNumber = 5      '菜单数组中可容纳的最多文件数