bsdim.bas

一套简单的销售管理系统

Attribute VB_Name = "bsdim"
Public gridaddnew As Boolean '测试是否添加状态
Public gridsave As Boolean '当前是否可保存状态
Public gridedit As Boolean '当前是否可修改状态
Public griddelete As Boolean '当前是否可删除状态
Public tkbase As String '当前操作表名称
Public jnumber As Integer '表中字段的个数
Public nnumber As Integer '操作进程数
Public nnum As Integer '数据总页数
Public numpage As Integer '数据当前页数
Public hang1 As Integer '取值当前表格grid1鼠标所在为多少行
Public hang2 As Integer '取值当前表格grid2鼠标所在为多少行
Public Const msgerror = "当前操作不被允许!"
Public jsql As String '当前生成SQL语句
Public duixiang As Integer '新增加产品时对象操作窗体
Public loginname As String '当前操作员
Public isadmin As Boolean '是否管理员