vbprivate.bas

超市管理~~~ 付款~审核~收货~退货~~~~ AND SO ON

Attribute VB_Name = "VBprivate"
'****************************************************************************
'人人为我，我为人人
'作者：性灵工作室
'发布日期：2007/03/03
'描    述：简单小型超市采购系统
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
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