variable.bas

网路设备资产管理系统

Attribute VB_Name = "Variable"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/09/25
'描    述：江苏大学网络信息中心网络管理系统 - v1.0 Beta
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

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