brookprintgrid.cls

来自「中专学校的学生操行分管理系统,包含了网络查询的功能」· CLS 代码 · 共 93 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "PrintGrid"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
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 ReportName(ByVal vNewValue As String)
    strName = vNewValue
End Property

Public Property Get ReportName() As String
    ReportName = 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
    rectMargin.left = 15
    rectMargin.top = 20
    rectMargin.right = 15
    rectMargin.bottom = 20
End Sub