mdlparameter.bas

雨点进销存软件,绝对可以用,大家可以拿来使用

Attribute VB_Name = "MdlParameter"
Option Explicit
'DAO变量
Public gWrks As Workspace
Public gDbFish As Database
Public gRst As Recordset
Public l_sql As String


Public mConn As Connection
Public user_type As Integer
Public user_name As String
Public factory_type As Integer
Public kind_type As Integer
Public Table_Name As String   '定义表名变量
Public Table_Name_Sys As String  '定义数据字典表名变量
Public Field_Name As String   '定义数据字典字段名称
Public PD_OUT_kind_type As String



'DSN变量
Public gDSN As String
Public gUserID As String
Public gPwd As String
Public gDbName As String

'工作环境状态变量
Public gComputerName


Public gRfshNode As Boolean '是否单击节点即刷新

Type NodeInfo
    Node_ID As String
    'Value As String
    Field_En_Name As String
    Where_Str As String
    'Order_Str As String
    
    Tree_Type As Integer
    Tree_Name As String
    Tree_User_Name As String
    Parent_Node_ID As Integer
    Node_Level_Index As Integer
    Field_Cn_Name As String
    Is_Root As Integer
    Field_Value As String
    Table_Name As String
    Node_Type As Integer
    View_List As Integer
End Type