module1.bas

忘不了密码小管家（分类管理各种密码的小工具［包括上网密码

Attribute VB_Name = "Module1"





Option Explicit

Public gTitle_vstr(1 To 3) As String
Public gTableField_VStr(1 To 4)  As String   '字段名
Public gDBCurrent_Vstr As String

Public Const gDBName As String = "密码簿"
Public Const gMSG_AppName As String = "忘不了密码小管家"

Public Const gMSG_Info1 As String = "密码显示"
Public Const gMSG_Info2 As String = "说明"
Public Const gMSG_UnWritten As String = "尚未添加"


Public Const gMSG1 As String = "请输入添加的项目名称"
Public Const gMSG2 As String = "新项目将被添加到:"
Public Const gMSG3 As String = "请输入添加的项目'组'名称"
Public Const gMSG4 As String = "新项目'组'将被添加到:"
Public Const gMSG6 As String = "你确信删除此项目："
Public Const gMSG7 As String = "你确信删除此项目'组'："
Public Const gMSG8 As String = "根目录下的目录不允许删除"
Public Const gMSG9 As String = "选择的目录下包含有子项目，请先删除子项目"

Public Const gMSG_SimDirName As String = "SimMap"
Public Const gMSG_CrackLen As String = 20






Public Sub IntVariables()

'--------------------------表结构-------------------------------
'密码名称 真实密码 层次 说明
'密码名称 -------在TreeView控件中所显示的项目标题 *30 String
'真实密码 -------密码 *30 String
'层次 -----------标识了一个文件项目（目录除外）在TreeView中的层次,与Node 的
'                FullPath 属性相关
'说明 -----------文字描述 *50 String
'-----------------------------------------------------------------

gTitle_vstr(1) = "软件密码及序列号"
gTitle_vstr(2) = "游戏密技"
gTitle_vstr(3) = "网络密码"

gTableField_VStr(1) = "密码名称"
gTableField_VStr(2) = "真实密码"
gTableField_VStr(3) = "层次"
gTableField_VStr(4) = "说明"

End Sub