modvalue.bas

企业ERP系统 采用VB+SQL2000实现。 有客户合约

Attribute VB_Name = "modValue"
Option Explicit

Public Cn As ADODB.Connection  '连接对象
Public strCap As String '当前窗口标题
Public strSqlCustomer As String '客户加加权限搜索
Public objDatabase As New clsDatabase

Public Stopwait As Boolean  '查询是否结束
Public viewFlag As Boolean '查看原布与成品标记
Public objDispalyIni As New clsDispalyIni
Public BillReport As New RepBeforeLabdipColor
Public BillReportLayout As New RepBeforeLabdipLayout
Public BillReportReference As New RepBeforeLabdipReference
Public BillEmbryoContract As New RepProductionEmbryoContract
Public BillReportNotices As New RepShipmentsNotices
Public BillReportInvoice As New RepShipmentsInvoice
Public BillReportInvoiceClassA As New RepShipmentsInvoicesClassA
Public BillReportProductionFollow As New RepProductionFollow
Public BillReportProductionFollowA As New RepProductionFollowA
Public BillReportLabel As New RepBasicLabel
Public BillReportShipmentsTodo As New RepShipmentsTodo
Public Type USER_INFO
    userID As String
    userName As String
    userPassword As String
    userCompany As String   '公司
    userDept As String  '单位
    customerRole As Integer '客户权根 0不能看,1可看本人,2可看部门,3可看全部
    customerUpdate As Boolean 'true 可维护客户信息,false不能
    loginId As Long '登录时ID号
    localName As String '计算名名
    localIP As String   'IP地址
    loginDate As Date '登录时间
    MAC As String   '网卡MAC地址
End Type
Public userInf As USER_INFO