declares.bas

即时通讯

Attribute VB_Name = "Declares"
Option Explicit

' 功能模块的定义
'-----------------仓库管理模块--------------------
Public Const WAREHOUSE_LIST = 44             ' 仓库列表管理
Public Const WAREHOUSE_SINGLE = 43           ' 仓库资料管理
Public Const BOMTABLE_DESIGN = 20            ' BOM资料设计
Public Const NAVIGATION_WIN = 70             ' 导航窗体
Public Const CUSTOMER_LIST = 6             ' 客户管理
Public Const SUPPLIER_LIST = 5             ' 客户管理
Public Const STOCK_ORDER = 71             ' 采购定单
Public Const STOCKORDER_LIST = 16             ' 采购定单列表
Public Const STOCK_STOREC = 17             ' 采购入库
Public Const EMPLOYEE_SINGLE = 25                 ' 员工管理
Public Const Goods_Manager = 2                 ' 商品管理
Public Const Part = 3                      ' 零件管理
Public Const PRODUCT_SCHEME_LIST = 21       ' 生产计划单列表管理
Public Const PRODUCTION = 4                ' 产品管理
Public Const PRODUCTYPE = 11                ' 产品类别设置
Public Const COOPERATE_SINGLE = 72                ' 单条外协生产单
Public Const COOPERATE_LIST = 28                ' 外协生产单列表
Public Const POSITIONQD = 45                    ' 库位清单
Public Const COOPERATE_FINISH_LIST = 30         ' 外协完工单列表
Public Const COOPERATE_REDO_LIST = 31         ' 外协返工单列表
Public Const COOPERATEDROWMATERIAL = 73         ' 仓库领料
Public Const STOCK_BACKGOODS_LIST = 18         ' 采购退货
Public Const COOPERATEDROWMATERIALQD = 29      ' 领料清单
Public Const COOPERATE_STAT = 33              ' 外协生产单统计窗体
Public Const checkvalue = 38                  ' 检验值管理窗体
Public Const CHECKVALUEGROUP = 41             ' 检验组管理窗体
Public Const CHECK_OPTION = 37                   '产品检验项目窗体
Public Const CHECKOPTIONGROUP1 = 40              '产品检验项目组窗体
Public Const PRODUCE_LIST = 22              '生产单的列表管理
Public Const PRODUCE_FINISH_LIST = 24              '生产完工单的列表管理
Public Const CHECKSTANDARD = 36                  '检验类型管理窗体
Public Const PRODUCEDRAWMATERIAL = 23            '生产领料窗体
Public Const CHECKPRODUCTION = 35                '质量检验
Public Const COOPERATE_COUNTERCLAIM = 32          '外协索赔
Public Const EMPLOYEE_PASSWORD = 74               '修改密码
Public Const BOMPROCESS_LIST = 12                 '工序列表
Public Const LXMD_LIST = 13                       '联系目的设置
Public Const LXFS_LIST = 14                       '联系方式设置
Public Const GYSLB_LIST = 8                      '供应商类别设置
Public Const KHDJ_LIST = 9                       '客户等级设置
Public Const KHLY_LIST = 10                       '客户来源设置

Public Const CHECK_P = 46                       '产品检验的权限
Public Const CHECK_CHECK_P = 47                 '产品核检的权限
Public Const PRODUCE_MODIFY_P = 48             '生产单修改的权限
Public Const COOPERATE_MODIFY_P = 49           '外协生产单修改的权限
Public Const RE_CONNECT_TO_SERVER = 101          ' 重新联接到服务器

Public Const PRODUCTION_NEW = 50            ' 产品的新增权限
Public Const PRODUCTION_MODIFY = 51         ' 产品的修改权限和删除
Public Const PRODUCTION_CX = 52             ' 产品的查询权限

Public Const PART_NEW = 53                  ' 零件的新增权限
Public Const PART_MODIFY = 54               ' 零件的修改权限和删除
Public Const PART_CX = 55                   ' 零件的查询权限

Public Const GOODS_NEW = 56                 ' 商品的新增权限
Public Const GOODS_MODIFY = 57              ' 商品的修改权限和删除
Public Const GOODS_CX = 58                  ' 商品的查询权限

Public Const SUPPLIER_NEW = 59              ' 供应商的新增权限
Public Const SUPPLIER_MODIFY = 60           ' 供应商的修改权限和删除
Public Const SUPPLIER_CX = 61               ' 供应商的查询权限

Public Const CUSTOMER_NEW = 62              ' 客户的新增权限
Public Const CUSTOMER_MODIFY = 63           ' 客户的修改权限和删除
Public Const CUSTOMER_CX = 64               ' 客户的查询权限
Public Const PARTCHECKMETHOD_p = 65           ' 零件检验方式
Public Const PARTCHECKMETHOD_JY = 66            '零件检验
Public Const PARTCHECKMETHOD_HJ = 67            '零件核检
Public Const PARTCHECKMETHOD_RK = 68            '零件入库
Public Const COOPERATELOSS_L = 69           '外协报损
Public Const SUPPLIER_DELETE = 75            '供应商删除
Public Const SUPPLIER_LXR = 76            '供应商联系人
Public Const SUPPLIER_GZ = 77            '供应商跟踪

Public Const POSITION_NEW = 78            ' 库位新增\删除
Public Const POSITION_MQ = 79             ' 修改库位的数量
Public Const POSITION_MP = 80             ' 修改位号架号存号
Public Const PASSWORD_MODIFY = 81           '修改员工密码

Public Const DEPARTMENT_LIST = 82                '部门
Public Const MYCOMPANYINFO1 = 83            '公司信息


Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type

Public Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type

Public Type SAFEARRAY2
    cDims As Integer
    fFeatures As Integer
    cbElements As Long
    cLocks As Long
    pvData As Long
    CE0 As Long
    LB0 As Long
    CE1 As Long
    LB1 As Long
End Type

Declare Function CreateDIBSection Lib "gdi32" (ByVal hdc As Long, pBitmapInfo As BITMAPINFOHEADER, ByVal un As Long, lplpVoid As Long, ByVal handle As Long, ByVal dw As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Declare Function GetObjectA Lib "gdi32" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (Destination As Any, ByVal Length As Long)

Declare Function timeGetTime Lib "winmm.dll" () As Long
Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Public Sub CallDateControl(bzlx As Integer, Scdwnr As String)                          '调入编码参照窗体
    
    '函数参数:帮助类型(0-通用型 1-日期型 2-特殊型),帮助编码,首次定位内容
    On Error GoTo ErrHandle
    XT_calendar.Xtfhcs = ""
    Select Case bzlx
        Case 1
            XT_calendar.xtcdcs = Date
            XT_calendar.show 1      '显示日历窗体
           
    End Select
    
ErrHandle:

End Sub