mdlstandard.bas

超市管理系统,有课程设计电子文档

Attribute VB_Name = "mdlStandard"
Option Explicit

'改变用来保存当前的用户类型，其中0表示管理人员，1表示仓管人员，2表示销售人员
Public gnUserType As Integer

'表示当前的用户名称
Public gsUserName As String
Public Index As String

'数据连接,在打开记录集和操作记录数据时使用.
Public gConn As ADODB.Connection
Public Declare Function SetWindowPos _
Lib "user32" _
( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, _
    ByVal wFlags As Long _
    ) As Long

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOPMOST = -1