*************************************************************************
'//開始日期：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
Dim conn As New SqlConnection()
strconn = "server=" & "erp" & _
";user id=" & "erpsa" & _
";passWord=" & "erpsa" & _
";database=" & "erpdata" & ";"
Try
conn = New SqlConnection(strconn)
conn.Open()
StateVal = True
LinkedSqlServer = conn
Catch ex As Exception
' MsgBox(ex.ToString)
StateVal = False
LinkedSqlServer = Nothing
Exit Function
End Try
End Function
''End defined LinkedSqlServer
''***********************************************************************
''//**定義連接SQL Server Database的通用函數**//
'//本函數創建一個到指定數據庫的連接對象 SqlConnection
'//本函數有1個參數，IPublicApplication 為公共數據結構 PublicApplicationVal，
'//Begin define Function LinkedSqlServer
Public Overloads Function LinkedSqlServer( _
ByVal IPublicApplication As PublicApplicationVal) _
As System.Data.SqlClIEnt.SqlConnection
Dim strconn As String
&
nbsp; Dim conn As New SqlConnection()
strconn = "server=" & IPublicApplication.Dbserver & _
";user id=" & IPublicApplication.UserId & _
";passWord=" & IPublicApplication.UserPWD & _
";database=" & IPublicApplication.DBase & ";"
Try
conn = New SqlConnection(strconn)
conn.Open()
StateVal = True
LinkedSqlServer = conn
Catch ex As Exception
' MsgBox(ex.ToString)
StateVal = False
LinkedSqlServer = Nothing
Exit Function
End Try
End Function
''End defined LinkedSqlServer
''**************************************************************
''定義類DBaseBindComm的ReadOnly屬性State（創建連接的狀態）
''True(創建成功），False（創建失敗）
Private StateVal As Boolean
Public ReadOnly Property State() As Boolean
Get
Return StateVal
End Get
End Property
End Class
Public Class OrganComm
'//Defined Structure PublicOrganIDStructure
'//Structure descriptoin
'//本結構存取 企業組織機構Id
'//頂層（DeptTopID）、一級（DeptMidId），二級ID（DeptLowId）
'//Begin define Structure PublicOrganIDStructure
Public Structure PublicOrganIDStructure
Public DeptTopID As String
Public DeptMidId As String
Public DeptLowId As String
End Structure
'//End define Structure PublicOrganIDStructure
'//******************************************************************
''//**定義連接SQL Server Database的通用函數**//
'//本函數創建一個到指定數據庫的連接對象 SqlConnection
'//本函數有1個參數，IPublicApplication 為公共數據結構 PublicApplicationVal，
'//Begin define Function IParseDeptOrgid
Public Function IParseDeptOrgid(ByVal IDeptOrgid As String) As PublicOrganIDStructure
Dim OrganID As New PublicOrganIDStructure()
Dim Orgid As String
IDeptOrgid = Trim(IDeptOrgid)
Orgid = Microsoft.VisualBasic.Left(Trim(IDeptOrgid), 12)
OrganID.DeptTopID = Microsoft.VisualBasic.Left(Orgid, 6)
OrganID.DeptMidId = Microsoft.VisualBasic.Right(Orgid, 6)
OrganID.DeptLowId = Microsoft.VisualBasic.Right(IDeptOrgid, 6)
IParseDeptOrgid = OrganID
End Function
'//End define Function IParseDeptOrgid
End
Class
End Namespace
'*******************************************************************************
