moddefine.bas

一套简易的MIS系统。带SQLServer数据库。供参考。

Attribute VB_Name = "modDefine"
'----------------------------------------------------------------------------------------------------
'
'
'                变量定义
'
'                日期：2006年6月
'
'                代码编写：王懿岩
'
'
'----------------------------------------------------------------------------------------------------
Global DBCN                As New ADODB.Connection             '数据连结

Global strUnitCode         As String                           '授权单位编码
Global strUnitName         As String                           '授权单位名称

Global strServerName       As String                           '服务器名称
Global strDataBase         As String                           '数据库名称
Global strUID              As String                           '数据库用户名
Global strPWD              As String                           '数据库密码

Global strOprCode          As String                           '操作员编号
Global strOprName          As String                           '操作员名称

Global iAdd_Update         As Integer                           '添加、修改标志 0、添加，1、修改

Global strOpr_Update       As String                           '操作员编码：权限设置时用
Global strOpr_Limited      As String                           '操作员编码：权限设置时用
Global strLimited1(20)     As String                           '一级权限
Global strLimited2(100)    As String                           '二级权限

Global iCountFlag          As Integer                          '统计显示分类
Global strCountTab         As String                           '统计表

'定义一组公共的变量
'因是公共信息，这里不在特意说明
Type tShareInfo
    strCode                As String
    strName                As String
    strType                As String
    strShare               As String
    strShare1              As String
    strShare2              As String
    strShare3              As String
    strShare4              As String
    strShare5              As String
    strShare6              As String
    intFlag                As Integer
    intFlag1               As Integer
    isgShare               As Single
    isgShare1              As Single
    dInDate                As Date
    picInfo                As PictureBox
End Type

Public uShareInfo          As tShareInfo

Type tWindwos              '窗体偏移量
    iTop                   As Integer
    iLeft                  As Integer
    iHeight                As Integer
    iWidth                 As Integer
End Type

Public uWindows            As tWindwos