vbprivate.bas

售票管理系統

Attribute VB_Name = "VBprivate"
'****************************************************************************
'人人为我，我为人人
'作者：星零工作室
'发布日期：2007/03/08
'描    述：双龙风景区售票系统 Ver 1.0
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Public fjtable As String
Public fjsave As Boolean
Public fjedit As Boolean
Public fjdel As Boolean
Public hang As Integer
Public sql As String
Public ddangjia As Double
Public nnum, numpage As Integer
Public adminname As String
Public fjnumber As Integer '定义当前表的列数,供grid控件使用