imexmodule.bas

便利店管理系统 VB+ACCESS 附上数据库和源码

Attribute VB_Name = "ImExModule"
Option Explicit

'销售时客户付钱用
Public Type PayMoney
   Total As Double
   Pay As Double
   Change As Double
   Flag As Integer
End Type



'系统用户
Public Type SystemUser
    uID As String
    uPWS As String
    uName As String
    uTel As String
    uOp0001 As Integer
    uOp0002 As Integer
    uOp0003 As Integer
    uOp0101 As Integer
    uOp0102 As Integer
    uOp0103 As Integer
    uOp0104 As Integer
    uOp0201 As Integer
    uOp0202 As Integer
    uOp0203 As Integer
    uOp0301 As Integer
    uOp0302 As Integer
    uOp0303 As Integer
    uOp0304 As Integer
    uRemark As String
End Type