事件：用户登录机房收费系统，添加上机记录。需要向数据库中写入用户的上机日期，上机时间。

方法：获得系统的日期、时间写到数据库。

过程：D层建立获得系统日期、时间的类，并写入方法

Imports System.Data.sqlClient
Imports System.Configuration '配置文件，获得连接数据库的字符串


Public Class GetDateTime
    
    '获得连接数据库的字符串
    Private ReadOnly strConnection As String = ConfigurationManager.AppSettings("connString") '设置连接
    Dim conn As New sqlClient.sqlConnection(strConnection)
    ''' <summary>
    ''' 查询系统日期
    ''' </summary>
    ''' <returns>String,日期类型为字符串</returns>
    ''' <remarks>2013-11-17 12:34:21</remarks>
    Public Function GetDate() As String

        '定义查询命令变量
        Dim cmd As sqlClient.sqlCommand
        '定义查询结果变量
        Dim dr As sqlClient.sqlDataReader
        '定义系统时间变量
        Dim mydateDAL As String

        '定义默认日期
        mydateDAL = "2013-01-01"

        cmd = conn.CreateCommand()
        '查询日期sql语句
        cmd.CommandText = "select Datename(year,GetDate()) + '-'+ datename(month,GetDate()) + '-'+ Datename(day,GetDate())"
        '设置查询类型
        cmd.CommandType = CommandType.Text
        '打开连接
        conn.Open()
        '执行查询
        dr = cmd.ExecuteReader()

        '如果查询结果不为空，读取结果，赋给mydateDal变量
        If dr.HasRows Then
            While (dr.Read())
                mydateDAL = Trim(dr(0).ToString)
            End While
        End If

        '返回系统日期
        Return mydateDAL
    End Function



    ''' <summary>
    ''' 获得系统时间
    ''' </summary>
    ''' <returns>String,系统时间为字符串</returns>
    ''' <remarks>2013-11-17 12:35:06</remarks>
    Public Function GetTime() As String
        '定义查询命令
        Dim cmd As sqlClient.sqlCommand
        Dim dr As sqlClient.sqlDataReader
        Dim mytimeDAL As String

        '设置默认系统时间
        mytimeDAL = "2013-01-01"

        cmd = conn.CreateCommand()
        '查询系统时间语句
        cmd.CommandText = "Select Datename(HH,GetDate()) + ':'+ Datename(MI,GetDate()) + ':' + Datename(Second,GetDate())"
        '语句类型
        cmd.CommandType = CommandType.Text
        '打开连接
        conn.Open()
        '执行查询
        dr = cmd.ExecuteReader()
        '如果返回结果不为空，读取并赋给mytimeDAL变量

        If dr.HasRows Then
            While (dr.Read())
                mytimeDAL = Trim(dr(0).ToString)
            End While
        End If

        '返回系统时间
        Return mytimeDAL

    End Function
End Class