vbprivate.bas

来自「VB版风景区售票管理系统Access版」· BAS 代码 · 共 13 行

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控件使用