*************************************************************************
'//開始日期：2002年5月27日
'//結束日期：2002年5月27日
'***********************************************************************
Option Explicit On
'Option Strict On
'//***********************************************************************
Imports System.Data.SqlClIEnt
'//*************************************************************************
'//Begin defined namespace
Namespace Sunerp.CommClass.Comm
'//Defined Structure PublicApplicationVal
'//Structure descriptoin
'//本結構存取 數據庫服務器名（Dbserver）、數據庫用戶ID（UserId）、
'//數據庫用戶密碼（UserPWD）、數據庫名（DBase），為聯接數據庫提供參數。
'//為了滿足某些簡單查詢的需要，提供了擴展的變量 常用表名（DBTable）、
'//查詢字段名（QueryFIEldName）、查詢字段值
'//Begin define Structure PublicApplicationVal
Public Structure PublicApplicationVal
' Public Dbserver, UserId UserPWD DBase DBTable Account.
Public Dbserver As String
Public UserId As String
Public UserPWD As String
Public DBase As String
Public DBTable As String
Public QueryFIEldVale As String
Public QueryFIEldName As String
End Structure
'//End define Structure PublicApplicationVal
'//********************************************************************
'//Begin defined Class
Public Class DBaseBindComm
''*****************************************************************
''//**定義連接SQL Server Database的通用函數**//
'//本函數創建一個到指定數據庫的連接對象 SqlConnection
'//本函數有1個參數，IPublicApplication 為公共數據結構 PublicApplicationVal，
'//Begin define Function LinkedSqlServer
Public Overloads Function LinkedSqlServer() As System.Data.SqlClIEnt.SqlConnection
Dim strconn As String
