vbprivate.bas

一个很不错的风景区售票系统

Attribute VB_Name = "VBprivate"
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控件使用