'***************************************************************************************************** '//開始日期：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 '//本結構存取 數(shù)據庫服務器名（dbserver）、數(shù)據庫用戶id（userid）、 '//數(shù)據庫用戶密碼（userpwd）、數(shù)據庫名（dbase），為聯(lián)接數(shù)據庫提供參數(shù)。 '//為了滿足某些簡單查詢的需要，提供了擴展的變量 常用表名（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的通用函數(shù)**// '//本函數(shù)創(chuàng)建一個到指定數(shù)據庫的連接對象 sqlconnection '//本函數(shù)有1個參數(shù)，ipublicapplication 為公共數(shù)據結構 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的通用函數(shù)**// '//本函數(shù)創(chuàng)建一個到指定數(shù)據庫的連接對象 sqlconnection '//本函數(shù)有1個參數(shù)，ipublicapplication 為公共數(shù)據結構 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（創(chuàng)建連接的狀態(tài)） ''true(創(chuàng)建成功），false（創(chuàng)建失敗） private stateval as boolean public readonly property state() as boolean get return stateval end get end property
'//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的通用函數(shù)**// '//本函數(shù)創(chuàng)建一個到指定數(shù)據庫的連接對象 sqlconnection '//本函數(shù)有1個參數(shù)，ipublicapplication 為公共數(shù)據結構 publicapplicationval，
'//begin define function iparsedeptorgid public function iparsedeptorgid(byval ideptorgid as string) as publicorganidstructure dim organid as new publicorganidstructure() dim orgid as string
