vbprivate.bas

采用最新的XP类模块

Attribute VB_Name = "VBprivate"
Public cgtable As String
Public cgsave As Boolean
Public cgedit As Boolean
Public cgdel As Boolean
Public hang As Integer
Public sql As String
Public ddangjia As Double
Public nnum, numpage As Integer
Public loginname As String
Public cgnumber As Integer '定义当前表的列数,供grid控件使用
Public system(0 To 11) As Boolean