Private m_DataConn ''数据源,必须已经打开 Private m_QueryType ''查询类型:1,直接用sql 2,用存储过程 Private m_SQLArr ''返回的数据数组 Private m_RecordCount
Rem 公共属性 ''缓存时间 Public Property Let CacheTime(v) m_CacheTime = v End Property Public Property Get CacheTime CacheTime = m_CacheTime End Property ''每页大小 Public Property Let PageSize(v) m_PageSize = v End Property Public Property Get PageSize PageSize = m_PageSize End Property ''xml缓存页大小 Public Property Let CachePageNum(v) m_CachePageNum = v End Property Public Property Get CachePageNum CachePageNum = m_CachePageNum End Property ''xml路径,用绝对地址 Public Property Let XmlFile(v) m_XmlFile = v End Property Public Property Get XmlFile XmlFile = m_XmlFile End Property
''xml路径,用绝对地址 Public Property Let Sql(v) m_Sql = v End Property Public Property Get Sql Sql = m_Sql End Property
''表名或者视图名 Public Property Let TableName(v) m_TableName = v End Property Public Property Get TableName TableName = m_TableName End Property ''列名 用,隔开 Public Property Let Columns(v) m_Columns = v End Property Public Property Get Columns Columns = m_Columns End Property ''当前页 Public Property Let CurPage(v) m_CurPage = v End Property Public Property Get CurPage CurPage = m_CurPage End Property ''缓存类型:1,列表 2,详情 Public Property Let CacheType(v) m_CacheType = v End Property Public Property Get CacheType CacheType = m_CacheType End Property ''缓存类型 |