variable.bas

设备管理系统包含设备管理

Attribute VB_Name = "Variable"


Public config_dbaddr As String
Public config_dbusername As String
Public config_dbpassword As String
Public config_dbname As String



Public cur_user_id As String
Public cur_username As String
Public cur_truename As String
Public cur_password As String

Public cur_priv_yhgl As String
Public cur_priv_jbzlgl As String
Public cur_priv_sbck As String
Public cur_priv_sbdj As String
Public cur_priv_sbcz As String
Public cur_priv_sbsx As String
Public cur_priv_sbtj As String
Public cur_priv_sbzlxg As String


Public manufacturers
Public devicetypes
Public models

Public Sub Load_Manufacturers()

  Dim MsgText As String
  Dim HasError As Boolean
  
txtSQL = "select manufacturer_id,manufacturer_name from tbl_manufacturer"
Set mrc = ExecuteSQL(txtSQL, MsgText, HasError)
manufacturers = mrc.GetRows
End Sub

Public Sub Load_Devicetypes()

  Dim MsgText As String
  Dim HasError As Boolean
  
txtSQL = "select type_id,type_name from tbl_devicetype"
Set mrc = ExecuteSQL(txtSQL, MsgText, HasError)
devicetypes = mrc.GetRows
End Sub

Public Sub Load_Models()

  Dim MsgText As String
  Dim HasError As Boolean
  
txtSQL = "select model_id,model_name from tbl_model"
Set mrc = ExecuteSQL(txtSQL, MsgText, HasError)
models = mrc.GetRows
End Sub