module1.bas

VB礼品店销售管理系统 包括ACCESS数据库访问职工管理 账单管理

Attribute VB_Name = "Module1"
Global mode As Byte
Global dbs As ADODB.Connection
Global rst As ADODB.Recordset
Global UserRole As String
Global userid As String
Global dbFile As String
Global prtFrm As Boolean '用于判断打印窗口是否打开的变量
Global StockInfoFlag As Boolean  '库存查询窗口是否打开
Global InstockFlag As Boolean   '入库及定价窗口
Global UserInfoFlag As Boolean  '客户信息窗口
Global SaleProductFlag As Boolean  '产品销售窗口
Global InquireInstockFlag As Boolean  '入库信息查询窗口
Global SalesInfoFlag As Boolean  '销售系统查询窗口
Global ProductQueryFlag As Boolean '产品查询窗口
Global StaffSalaryFlag As Boolean  '员工工资窗口
Global staffFlag As Boolean '员工信息窗口
Sub Main()
Set dbs = New ADODB.Connection
Set rst = New ADODB.Recordset
dbFile = App.Path & "\db1.mdb"
frmLogin.Show
End Sub