db_module1.vb

来自「windows mobile下的一个东西」· VB 代码 · 共 64 行

Module DB_Module1

    Public db_c As System.Data.SqlServerCe.SqlCeConnection
    Public AppPath As String
    Public Sys_name As String
    Public Sys_ad As String
    Public week As String

    Public Function ModifyDTGColumn(ByVal WFist As Integer, ByVal WSecond As Integer) As DataGridTableStyle
        Dim DtgTsTextBox1 As New DataGridTextBoxColumn
        Dim DtgTsTextBox2 As New DataGridTextBoxColumn
        Dim DtgTsTextBox3 As New DataGridTextBoxColumn
        Dim DtgTsTextBox4 As New DataGridTextBoxColumn
        ModifyDTGColumn = New DataGridTableStyle

        DtgTsTextBox1.MappingName = "W_year"
        DtgTsTextBox1.HeaderText = " 年 "
        DtgTsTextBox1.Width = WFist
        ModifyDTGColumn.GridColumnStyles.Add(DtgTsTextBox1)

        DtgTsTextBox2.MappingName = "W_month"
        DtgTsTextBox2.HeaderText = " 月 "
        DtgTsTextBox2.Width = WFist
        ModifyDTGColumn.GridColumnStyles.Add(DtgTsTextBox2)

        DtgTsTextBox3.MappingName = "W_day"
        DtgTsTextBox3.HeaderText = " 日 "
        DtgTsTextBox3.Width = WFist
        ModifyDTGColumn.GridColumnStyles.Add(DtgTsTextBox3)

        DtgTsTextBox4.MappingName = "Weather"
        DtgTsTextBox4.HeaderText = " 天气"
        DtgTsTextBox4.Width = WSecond
        ModifyDTGColumn.GridColumnStyles.Add(DtgTsTextBox4)

    End Function

    Public Function WhichWeek(ByVal Y As Integer, ByVal M As Integer, ByVal D As Integer) As String
        Dim Sweek As String
        Dim time As New DateTime
        Dim myDateTimeValue As String = M.ToString + "/" + D.ToString + "/" + Y.ToString
        time = DateTime.Parse(myDateTimeValue)
        Sweek = "星期"
        Select Case time.DayOfWeek
            Case DayOfWeek.Monday
                Sweek = "星期一"
            Case DayOfWeek.Tuesday
                Sweek = "星期二"
            Case DayOfWeek.Wednesday
                Sweek = "星期三"
            Case DayOfWeek.Thursday
                Sweek = "星期四"
            Case DayOfWeek.Friday
                Sweek = "星期五"
            Case DayOfWeek.Saturday
                Sweek = "星期六"
            Case DayOfWeek.Sunday
                Sweek = "星期日"
            Case Else
        End Select
        Return Sweek
    End Function
End Module