事件:用户登录机房收费系统,添加上机记录。需要向数据库中写入用户的上机日期,上机时间。
方法:获得系统的日期、时间写到数据库。
过程: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