定义.bas

一间公司的管理系统的源码

Attribute VB_Name = "mobDefine"
Option Explicit
'******************************************
'常量定义
'******************************************
'软件试用次数限制，必须用public定义
Public Const TryoutLimit = 30
'注册码
Public Const RegSN = "frt_2004"
'窗体背景色设置
Public Const BackColorSet = &H80C0FF
'日志文件路径和名称
Public Const LogfileName = "\other\日志.txt"
'数据库路径和名称
Public Const DBname = "\database\main.mdb"
'数据库密码
Public Const DBpass = "zl"





'******************************************
'变量定义
'******************************************
'ADO编程模型连接数据库
Public conn As New ADODB.Connection
Public connStr As String
Public rs As New ADODB.Recordset
Public sql As String
'记录个数或登录用户变量
Public i, j As Integer
'自动编号字段
Public ID As Integer
'数据库路径
Public DBpath As String
'发现错误及错误信息
Public FoundErr As Boolean
Public ErrMsg As String
'弹出窗口的标题和提示信息
Public popTitle, popContent As String
'登录用户的帐号和等级
Public User, Level As String
'检查是否登录
Public Login As Boolean
'INI文件路径
Public INIpath As String
'读写INI文件的背景图像路径
Public IMGpath As String
'读写INI文件的背景颜色
Public BGcolor As Long '背景颜色
Public strCheck As String '增加、修改、删除和修改的标志
'-----------------------------------------
Public SumFields As Integer '字段总数
'-----------------------------------------
'员工查询窗体yuangongchaxun.frm
'查找关键字
Public WhereField, Keywords As String
'-----------------------------------------
'登录窗体和帐号管理窗体(denglu.frm和zhanghao.frm)
 '用户或管理权限总数
Public TotalNum As Long
'-----------------------------------------
'计划管理窗体jihua2.frm
'当前日期的任务
Public ThisDay As Date