vbprivate.bas

VB版风景区售票管理系统Access版

Attribute VB_Name = "VBprivate"
Public fjtable As String
Public fjsave As Boolean
Public fjedit As Boolean
Public fjdel As Boolean
Public hang As Integer
'Download by http://www.codefans.net
Public sql As String
Public ddangjia As Double
Public nnum, numpage As Integer
Public adminname As String
Public fjnumber As Integer '定义当前表的列数,供grid控件使用