brookprintlabel.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "PrintLabel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'打印数据网格控件   黄敬东
'第一版：能打印传递进来的网格   2001.6
'第二版：保留第一版的功能，增加显示网格表单，能根据传递进来的数据集SQL语句显示数据并打印　2001.8
'第三版：保留第二版的功能，增加报表双层列标头结构的处理，能编辑列标头结构并保存XML文档中，
'　　　　能从XML文档中读取列头结构  2001.8
'第四版：保留第三版的功能，增加报表列宽度的处理，能将列宽度保存XML文档中，
'　　　　能从XML文档中读取列宽度  2001.9
'第五版：保留第四版的功能，对于过宽的报表，可以自动的将报表分成适应打印纸的宽度
'        打印在多页上   2001.10
'第六版：保留第五版的功能，增加报表尾合计功能，增加页码跳转功能，修改打印信息的字体属性   2001.10

Option Explicit

Public Property Let AppPath(ByVal vNewValue As String)
    strPath = vNewValue
End Property

Public Property Get AppPath() As String
    AppPath = strName
End Property

Public Property Let ConnectionString(ByVal vNewValue As String)
    strConnectionString = vNewValue
End Property

Public Property Let RecordSource(ByVal vNewValue As String)
    strRecordSource = vNewValue
End Property

Public Property Let UserName(ByVal vNewValue As String)
    strUserName = vNewValue
End Property

Public Property Let PassWord(ByVal vNewValue As String)
    strPassWord = vNewValue
End Property

Public Property Get ConnectionString() As String
    ConnectionString = strConnectionString
End Property

Public Property Get RecordSource() As String
    RecordSource = strRecordSource
End Property

Public Property Get UserName() As String
    UserName = strUserName
End Property

Public Property Get PassWord() As String
    PassWord = strPassWord
End Property

Public Property Let ShowAbout(ByVal vNewValue As Boolean)
    bShowAbout = vNewValue
End Property

Public Sub Show()
'    intFlag = 0
'    frmGrid.Show vbModal
End Sub

Public Sub About()
    Dim strAbout As String
    
    strAbout = Chr(10) & Chr(13) & Space(8) & "本控件是测试版软件，如果您在使用过程中发现BUG或有什么建议，请与作者联系。" & Chr(10) & Chr(13) & Chr(10) & Chr(13) _
                & "由于是测试版控件，作者对使用本控件所造成的一切后果不付任何责任。" & Chr(10) & Chr(13) & Chr(10) & Chr(13) _
                & Space(8) & "作者  ：小溪" & Chr(10) & Chr(13) & Chr(10) & Chr(13) _
                & Space(8) & "QQ    ：36287066" & Chr(10) & Chr(13) & Chr(10) & Chr(13) _
                & Space(8) & "E_mail：[e-mail]"
    MsgBox strAbout, , "关于打印控件"
End Sub

Private Sub Class_Initialize()
    bShowAbout = True
End Sub