全部代码.txt

The Management Information System of Library using .NET

        System.Data.ParameterDirection.ReturnValue, _
         False, _
          0, _
          0, _
          String.Empty, _
          DataRowVersion.Default, _
          Nothing))
        Return command
    End Function

    Public ReadOnly Property DSN() As String
        Get
            Return m_DSN
        End Get
    End Property
    Public Overloads Function RunSP(ByVal sprocName As String) As Int32
        Dim result As Int32
        Connection.Open()
        Dim command As SqlCommand = Me.CreateCommand(sprocName)
        command.ExecuteNonQuery()
        result = CType(command.Parameters("Return Value").Value, Int32)
        Me.Connection.Close()
        Return result
    End Function
    Public Overloads Function RunSP(ByVal sprocName As String, ByVal parameters() As IDataParameter) As Int32
        Dim result As Int32
        Connection.Open()
        Dim command As SqlCommand = Me.CreateCommand(sprocName, parameters)
        command.ExecuteNonQuery()
        result = CType(command.Parameters("Return Value").Value, Int32)
        Me.Connection.Close()
        Return result
    End Function

    Public Overloads Function RunSP(ByVal sprocName As String, _
   ByVal parameters() As IDataParameter, ByVal DataSet As DataSet) As Int32
        Dim result As Int32
        Dim sqlDA As New SqlDataAdapter
        Connection.Open()
        sqlDA.SelectCommand = Me.CreateCommand(sprocName, parameters)
        sqlDA.Fill(DataSet, "SourceTable")
        result = CType(sqlDA.SelectCommand.Parameters("Return Value").Value, Int32)
        Connection.Close()
        Return result
    End Function
    Public Overloads Function RunSP(ByVal sprocName As String, _
    ByRef DataSet1 As DataSet) As Int32
        Dim result As Int32
        Dim sqlDA As New SqlDataAdapter
        Connection.Open()
        sqlDA.SelectCommand = Me.CreateCommand(sprocName)
        sqlDA.Fill(DataSet1)
        result = CType(sqlDA.SelectCommand.Parameters("Return Value").Value, Int32)
        Connection.Close()
        Return result
    End Function
    Public Overloads Function RunSP(ByVal sprocName As String, _
       ByVal parameters() As IDataParameter, ByRef DataSet As DataSet, ByVal TableName As String) As Int32
        Dim result As Int32
        Dim sqlDA As New SqlDataAdapter
        Connection.Open()

        sqlDA.SelectCommand = Me.CreateCommand(sprocName, parameters)
        sqlDA.Fill(DataSet, TableName)
        result = CType(sqlDA.SelectCommand.Parameters("Return Value").Value, Int32)
        Connection.Close()
        Return result
    End Function
    Public Function Construct(ByVal ConstructString As String)
        m_DSN = ConstructString
    End Function
    Public Function Activate()
        Connection = New SqlConnection(m_DSN)
    End Function
    Public Function Deactivate()
        Connection = Nothing
    End Function

    Public Sub New()

    End Sub
    Public Sub New(ByVal ConstrucString As String)
        Construct(ConstrucString)
        Me.Activate()
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
        Me.Deactivate()
    End Sub
End Class
'将数据服务器信息序列化为xml文件的类
Imports System.Xml.Serialization
Imports System.IO
Imports System.Collections
Public Class CsetCnInfo
    Structure CnInfo
        Public server As String
        Public database As String
        Public uid As String
        Public password As String
    End Structure
    Private mCC(4) As String
    Public Function setCnTofile()
        Dim mcn As CnInfo
        mcn.server = mCC(0)
        mcn.database = mCC(1)
        mcn.uid = mCC(2)
        mcn.password = mCC(3)
        Dim xmlS As New XmlSerializer(GetType(CnInfo))
        Dim txtwt As TextWriter = New StreamWriter("cninfo.xml")
        xmlS.Serialize(txtwt, mCn)
        txtwt.Close()
    End Function
    Public Function GetCnFromfile() As String
        Dim mcn As CnInfo
        Dim xmls As New XmlSerializer(GetType(CnInfo))
        Dim txtwt As TextReader = New StreamReader("cninfo.xml")
        Try
            mcn = xmls.Deserialize(txtwt)
            mCC(0) = mcn.server
            mCC(1) = mcn.database
            mCC(2) = mcn.uid
            mCC(3) = mcn.password
        Catch ex As Exception
            Throw ex
        Finally
            txtwt.Close()
        End Try
        Return returnCnstr()
    End Function
    Public Function returnCnstr() As String
        Return "server=" + mCC(0) + ";database=" _
        + mCC(1) + ";uid=" + mCC(2) + ";pwd=" + mCC(3)
    End Function
    Public Property cnstr() As String()
        Get
            Return mCC
        End Get
        Set(ByVal Value As String())
            Value.CopyTo(mCC, 0)
        End Set
    End Property
    Public Sub New()

    End Sub
End Class
<?xml version="1.0" encoding="utf-8" ?>
<xs:schema id="Dataset1" targetNamespace="http://tempuri.org/Dataset1.xsd" elementFormDefault="qualified"
	attributeFormDefault="qualified" xmlns="http://tempuri.org/Dataset1.xsd" xmlns:mstns="http://tempuri.org/Dataset1.xsd"
	xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
	<xs:element name="Dataset1" msdata:IsDataSet="true">
		<xs:complexType>
			<xs:choice maxOccurs="unbounded">
				<xs:element name="searchBook">
					<xs:complexType>
						<xs:sequence>
							<xs:element name="条形码" type="xs:string" />
							<xs:element name="图书名称" type="xs:string" />
							<xs:element name="图书作者" type="xs:string" minOccurs="0" />
							<xs:element name="出版社" type="xs:string" minOccurs="0" />
							<xs:element name="ISBN号" type="xs:string" minOccurs="0" />
							<xs:element name="出版日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="图书页数" type="xs:int" minOccurs="0" />
							<xs:element name="图书价格" type="xs:decimal" minOccurs="0" />
							<xs:element name="入馆日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="存放位置" type="xs:string" minOccurs="0" />
							<xs:element name="图书分类" type="xs:string" minOccurs="0" />
						</xs:sequence>
					</xs:complexType>
				</xs:element>
			</xs:choice>
		</xs:complexType>
		<xs:unique name="Dataset1Key1" msdata:PrimaryKey="true">
			<xs:selector xpath=".//mstns:searchBook" />
			<xs:field xpath="mstns:条形码" />
		</xs:unique>
	</xs:element>
</xs:schema><?xml version="1.0" encoding="utf-8" ?>
<xs:schema id="Dataset1" targetNamespace="http://tempuri.org/Dataset1.xsd" elementFormDefault="qualified"
	attributeFormDefault="qualified" xmlns="http://tempuri.org/Dataset1.xsd" xmlns:mstns="http://tempuri.org/Dataset1.xsd"
	xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
	<xs:element name="Dataset1" msdata:IsDataSet="true">
		<xs:complexType>
			<xs:choice maxOccurs="unbounded">
				<xs:element name="searchBook">
					<xs:complexType>
						<xs:sequence>
							<xs:element name="条形码" type="xs:string" />
							<xs:element name="图书名称" type="xs:string" />
							<xs:element name="图书作者" type="xs:string" minOccurs="0" />
							<xs:element name="出版社" type="xs:string" minOccurs="0" />
							<xs:element name="ISBN号" type="xs:string" minOccurs="0" />
							<xs:element name="出版日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="图书页数" type="xs:int" minOccurs="0" />
							<xs:element name="图书价格" type="xs:decimal" minOccurs="0" />
							<xs:element name="入馆日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="存放位置" type="xs:string" minOccurs="0" />
							<xs:element name="图书分类" type="xs:string" minOccurs="0" />
						</xs:sequence>
					</xs:complexType>
				</xs:element>
			</xs:choice>
		</xs:complexType>
		<xs:unique name="Dataset1Key1" msdata:PrimaryKey="true">
			<xs:selector xpath=".//mstns:searchBook" />
			<xs:field xpath="mstns:条形码" />
		</xs:unique>
	</xs:element>
</xs:schema><?xml version="1.0" encoding="utf-8" ?>
<xs:schema id="Dataset1" targetNamespace="http://tempuri.org/Dataset1.xsd" elementFormDefault="qualified"
	attributeFormDefault="qualified" xmlns="http://tempuri.org/Dataset1.xsd" xmlns:mstns="http://tempuri.org/Dataset1.xsd"
	xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
	<xs:element name="Dataset1" msdata:IsDataSet="true">
		<xs:complexType>
			<xs:choice maxOccurs="unbounded">
				<xs:element name="searchBook">
					<xs:complexType>
						<xs:sequence>
							<xs:element name="条形码" type="xs:string" />
							<xs:element name="图书名称" type="xs:string" />
							<xs:element name="图书作者" type="xs:string" minOccurs="0" />
							<xs:element name="出版社" type="xs:string" minOccurs="0" />
							<xs:element name="ISBN号" type="xs:string" minOccurs="0" />
							<xs:element name="出版日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="图书页数" type="xs:int" minOccurs="0" />
							<xs:element name="图书价格" type="xs:decimal" minOccurs="0" />
							<xs:element name="入馆日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="存放位置" type="xs:string" minOccurs="0" />
							<xs:element name="图书分类" type="xs:string" minOccurs="0" />
						</xs:sequence>
					</xs:complexType>
				</xs:element>
			</xs:choice>
		</xs:complexType>
		<xs:unique name="Dataset1Key1" msdata:PrimaryKey="true">
			<xs:selector xpath=".//mstns:searchBook" />
			<xs:field xpath="mstns:条形码" />
		</xs:unique>
	</xs:element>
</xs:schema><?xml version="1.0" encoding="utf-8" ?>
<xs:schema id="Dataset1" targetNamespace="http://tempuri.org/Dataset1.xsd" elementFormDefault="qualified"
	attributeFormDefault="qualified" xmlns="http://tempuri.org/Dataset1.xsd" xmlns:mstns="http://tempuri.org/Dataset1.xsd"
	xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
	<xs:element name="Dataset1" msdata:IsDataSet="true">
		<xs:complexType>
			<xs:choice maxOccurs="unbounded">
				<xs:element name="searchBook">
					<xs:complexType>
						<xs:sequence>
							<xs:element name="条形码" type="xs:string" />
							<xs:element name="图书名称" type="xs:string" />
							<xs:element name="图书作者" type="xs:string" minOccurs="0" />
							<xs:element name="出版社" type="xs:string" minOccurs="0" />
							<xs:element name="ISBN号" type="xs:string" minOccurs="0" />
							<xs:element name="出版日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="图书页数" type="xs:int" minOccurs="0" />
							<xs:element name="图书价格" type="xs:decimal" minOccurs="0" />
							<xs:element name="入馆日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="存放位置" type="xs:string" minOccurs="0" />
							<xs:element name="图书分类" type="xs:string" minOccurs="0" />
						</xs:sequence>
					</xs:complexType>
				</xs:element>
			</xs:choice>
		</xs:complexType>
		<xs:unique name="Dataset1Key1" msdata:PrimaryKey="true">
			<xs:selector xpath=".//mstns:searchBook" />
			<xs:field xpath="mstns:条形码" />
		</xs:unique>
	</xs:element>
</xs:schema>
<?xml version="1.0" encoding="utf-8" ?>
<xs:schema id="Dataset1" targetNamespace="http://tempuri.org/Dataset1.xsd" elementFormDefault="qualified"
	attributeFormDefault="qualified" xmlns="http://tempuri.org/Dataset1.xsd" xmlns:mstns="http://tempuri.org/Dataset1.xsd"
	xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
	<xs:element name="Dataset1" msdata:IsDataSet="true">
		<xs:complexType>
			<xs:choice maxOccurs="unbounded">
				<xs:element name="searchBook">
					<xs:complexType>
						<xs:sequence>
							<xs:element name="条形码" type="xs:string" />
							<xs:element name="图书名称" type="xs:string" />
							<xs:element name="图书作者" type="xs:string" minOccurs="0" />
							<xs:element name="出版社" type="xs:string" minOccurs="0" />
							<xs:element name="ISBN号" type="xs:string" minOccurs="0" />
							<xs:element name="出版日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="图书页数" type="xs:int" minOccurs="0" />
							<xs:element name="图书价格" type="xs:decimal" minOccurs="0" />
							<xs:element name="入馆日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="存放位置" type="xs:string" minOccurs="0" />
							<xs:element name="图书分类" type="xs:string" minOccurs="0" />
						</xs:sequence>
					</xs:complexType>
				</xs:element>
			</xs:choice>
		</xs:complexType>
		<xs:unique name="Dataset1Key1" msdata:PrimaryKey="true">
			<xs:selector xpath=".//mstns:searchBook" />
			<xs:field xpath="mstns:条形码" />
		</xs:unique>
	</xs:element>
</xs:schema><?xml version="1.0" encoding="utf-8" ?>
<xs:schema id="Dataset1" targetNamespace="http://tempuri.org/Dataset1.xsd" elementFormDefault="qualified"
	attributeFormDefault="qualified" xmlns="http://tempuri.org/Dataset1.xsd" xmlns:mstns="http://tempuri.org/Dataset1.xsd"
	xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
	<xs:element name="Dataset1" msdata:IsDataSet="true">
		<xs:complexType>
			<xs:choice maxOccurs="unbounded">
				<xs:element name="searchBook">
					<xs:complexType>
						<xs:sequence>
							<xs:element name="条形码" type="xs:string" />
							<xs:element name="图书名称" type="xs:string" />
							<xs:element name="图书作者" type="xs:string" minOccurs="0" />
							<xs:element name="出版社" type="xs:string" minOccurs="0" />
							<xs:element name="ISBN号" type="xs:string" minOccurs="0" />
							<xs:element name="出版日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="图书页数" type="xs:int" minOccurs="0" />
							<xs:element name="图书价格" type="xs:decimal" minOccurs="0" />
							<xs:element name="入馆日期" type="xs:dateTime" minOccurs="0" />
							<xs:element name="存放位置" type="xs:string" minOccurs="0" />
							<xs:element name="图书分类" type="xs:string" minOccurs="0" />
						</xs:sequence>
					</xs:complexType>
				</xs:element>
			</xs:choice>
		</xs:complexType>
		<xs:unique name="Dataset1Key1" msdata:PrimaryKey="true">