*************************************************************************
'//開始日期：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

            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

'*******************************************************************************