company.vb

人事管理系统（VB.NET2005+SQL Server2005）

Imports System
Imports CommonDB
Imports CommonSystem

Public Class Company
    Implements IDataOperation
#Region "Members"

    Public Name As String
    Public Corporation As String
    Public Linkman As String
    Public Phone As String
    Public Fax As String
    Public Email As String
    Public Address As String
    Public PostalCode As String
#End Region

#Region "Properties"
    '
#End Region

#Region "Constructions"

    ' 使用该管理系统的公司，只存在一个该类的实例。从数据库中Company表查询数据，查询语句为：select top 1 * from company
    Public Sub New()
        Dim dsCompany As DataSet
        dsCompany = DbBase.DataInterface().Execute4DS("select top 1 * from company")
        If dsCompany.Tables(0).Rows.Count = 0 Then
            Throw New Exception("There is no company stored in database when call Company's construction New()!")
        Else
            Name = dsCompany.Tables(0).Rows(0).Item("name")
            Corporation = dsCompany.Tables(0).Rows(0).Item("corporation")
            Linkman = dsCompany.Tables(0).Rows(0).Item("linkman")
            Phone = dsCompany.Tables(0).Rows(0).Item("phone")
            Fax = dsCompany.Tables(0).Rows(0).Item("fax")
            Email = dsCompany.Tables(0).Rows(0).Item("email")
            Address = dsCompany.Tables(0).Rows(0).Item("address")
            PostalCode = dsCompany.Tables(0).Rows(0).Item("postalcode")
        End If
    End Sub
    '兼顾到通用情况
    Public Sub New(ByVal sName As String)
        Dim dsCompany As DataSet
        dsCompany = DbBase.DataInterface().Execute4DS("select * from company where name = '" & sName & "'")
        If dsCompany.Tables(0).Rows.Count = 0 Then
            Throw New Exception("Company of name " & sName & " doesn't exists when new Company!")
        Else
            Name = dsCompany.Tables(0).Rows(0).Item("name")
            Corporation = dsCompany.Tables(0).Rows(0).Item("corporation")
            Linkman = dsCompany.Tables(0).Rows(0).Item("linkman")
            Phone = dsCompany.Tables(0).Rows(0).Item("phone")
            Fax = dsCompany.Tables(0).Rows(0).Item("fax")
            Email = dsCompany.Tables(0).Rows(0).Item("email")
            Address = dsCompany.Tables(0).Rows(0).Item("address")
            PostalCode = dsCompany.Tables(0).Rows(0).Item("postalcode")
        End If
    End Sub
#End Region

#Region "Operations"

    Public Function Add() As Short Implements IDataOperation.Add

    End Function

    Public Function Delete() As Short Implements IDataOperation.Delete

    End Function

    Public Function Update() As Short Implements IDataOperation.Update
        Update = DbBase.DataInterface().ExecuteSql("update company set name = '" & Name & "', corporation = '" & Corporation & _
             "', linkman = '" & Linkman & "', phone = '" & Phone & "', fax = '" & Fax & "', email = '" & Email & "', address = '" & Address & _
             "', postalcode = '" & PostalCode & "'")
    End Function

    Public Function View() As DataSet Implements IDataOperation.View
        'Dim dsCompany As DataSet
        'dsCompany = DbBase.DataInterface().Execute4DS("")
        Return Nothing
    End Function


    Public Function List() As DataSet Implements IDataOperation.List
        'Dim dsCompany As DataSet
        'dsCompany = DbBase.DataInterface().Execute4DS("")
        Return Nothing
    End Function

#End Region

End Class