modpubvar.bas

中专学校的学生操行分管理系统,包含了网络查询的功能

Attribute VB_Name = "modPubVar"
'打印数据网格控件   黄敬东
'公共变量
Option Explicit

Public Const UNIT = 0.03937 * 1440     'tip到mm的换算
Public Const MSGTEXT = "BrookPrint"

Public strReportID As String           '报表ID号，唯一区分报表
Public rstReport As ADODB.Recordset    '被打印的记录集
Public objGrid As Columns              '显示记录集的数据网格
Public strName As String               '报表的名称
Public strRemark As String             '报表尾的备注
Public Remark As New Collection

Public strConnectionString As String    'ADO控件的连接字符串
Public strRecordSource As String        '基ADO控件的数据集SQL字符串
Public strUserName As String            '连接用户名
Public strPassWord As String            '连接密码

Public rsFlag As ReportStyle            '标识当前控件以什么方式被调用
                                        '0　－－　调用网格窗体方式　1　－－　调用打印窗体方式
Public intHeaderHeight As Integer       '列头总高度
Public intRowHeight As Integer          '报表行高

'Public itemInfo() As PrintInfo          '上层列标头结构数组

Public strPath As String                '当前工程的路径

Public bReportCalc As Boolean           '当前报表表尾计算项
Public varReportCalc() As Variant          '保存表尾计算项的值

Public iHeadHeight As Integer           '页头区的高度
Public iFootHeight As Integer           '页尾区的高度

Public rectMargin As RECT '边界
Public bIsChange As Boolean  '判断在打印设置窗口中做的修改是否保存
Public intRange As Integer  '打印范围，1--表示全部，2--表示当前页，3--表示选择页码范围
Public intStart As Integer  '开始页码
Public intEnd As Integer    '结束页码

Public bShowAbout As Boolean

Public lPageWidth As Long       '纸张宽度
Public lPageHeight As Long      '纸张高度

Public iPercent As Integer             '打印的缩放比例