[習題]Calendar日曆控制項的.OnDayRender()方法與 DayRender事件 #2--搭配資料庫,個人行事曆

摘要:[習題]Calendar日曆控制項的.OnDayRender()方法與 DayRender事件 #2--搭配資料庫,設計自己的個人行事曆行事曆





 

 

這個範例,請您務必先完成另一個基礎,才能進行下去。

      使用上一個範例的技巧

      ([習題]Calendar日曆控制項的.OnDayRender()方法與 DayRender事件),作法其實很雷同。

 

 

 

 

 

 

1.  除了上述的範例(日曆控制項的 DayRender事件),您要先學會之外,

2.  另外要寫一些 ADO.NET程式(在此使用 DataReader來作)

 

程式執行結果:

     

 

本範例已經收錄在這本書裡面:

C#版:http://24h.pchome.com.tw/books/prod/DJAA2V-A83003754

VB版:http://24h.pchome.com.tw/books/prod/DJAA2V-A84340111

 

 

 


'----自己(宣告)寫的----
Imports System
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
'----自己(宣告)寫的----



    Protected Sub calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender

        Dim Conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("事先寫在Web.Config檔裡面的連結字串").ConnectionString)
        Dim dr As SqlDataReader = Nothing
        Dim cmd As SqlCommand = New SqlCommand("select * from Calendar_Schedule", Conn)

        Try     '==== 以下程式,只放「執行期間」的指令!=====================
            Conn.Open()  

            dr = cmd.ExecuteReader()  

            While dr.Read()
                Dim csTime As Date = FormatDateTime(dr("cs_time"), DateFormat.ShortDate)
                '*******************************************************(start)
                '-- Cell 屬性表示正在呈現的儲存格,
                '-- Day 屬性則表示要呈現在儲存格中的日期。 

                '--新增一個 Label控制項到日曆裡面的 cell。
                If e.Day.Date = csTime Then

                    '-- 出現一個 Label控制項。
                    Dim LB As New Label
                    LB.Text = dr("cs_title")

                    e.Cell.Controls.Add(LB)
                End If
                '*******************************************************(end)
            End While

        Catch ex As Exception   '---- 如果程式有錯誤或是例外狀況,將執行這一段
            Response.Write("Error Message----  " + ex.ToString())

        Finally
            If Not (dr Is Nothing) Then
                cmd.Cancel()
                '----關閉DataReader之前,一定要先「取消」SqlCommand
                '參考資料: http://blog.darkthread.net/blogs/darkthreadtw/archive/2007/04/23/737.aspx
                dr.Close()
            End If
            If (Conn.State = ConnectionState.Open) Then
                Conn.Close()
                Conn.Dispose() '---- 一開始宣告有用到 New的,最後必須以 .Dispose()結束
            End If
        End Try

    End Sub



 


//----自己(宣告)寫的----
using System.Web.Configuration;
using System.Data;
using System.Data.SqlClient;
//----自己(宣告)寫的----


    protected void Calendar1_DayRender(object sender, DayRenderEventArgs e)
    {
        SqlConnection Conn = new SqlConnection(WebConfigurationManager.ConnectionStrings["先寫在Web.Config檔裡面的連結字串"].ConnectionString);
        SqlDataReader dr = null;
        String sqlstr = "Select * From Calendar_Schedule";
        SqlCommand cmd = new SqlCommand(sqlstr, Conn);

        try     //==== 以下程式,只放「執行期間」的指令!===================
        {
            Conn.Open();
            dr = cmd.ExecuteReader(); 

            while (dr.Read())
            {
                DateTime csTime = DateTime.Parse(dr["cs_time"].ToString());
                //日期格式的轉換,請參閱 http://www.dotblogs.com.tw/mis2000lab/archive/2011/04/28/formatdatetime_vb_csharp_20110428.aspx

                //*******************************************************(start)
                //-- Cell 屬性表示正在呈現的儲存格,
                //-- Day 屬性則表示要呈現在儲存格中的日期。 

                //--新增一個 Label控制項到日曆裡面的 cell。
                if (e.Day.Date.ToShortDateString() == String.Format("{0:yyyy/M/d}", csTime))
                {   //***因為 e.Day.Date產生的日期,不會自動補零。例如 2013/1/1
                    //***在C#語法裡面,將會對應不到資料庫裡面的日期(2013/01/01)。VB語法會自動處理這個缺失。
                    
                    //-- 出現一個 Label控制項。
                    Label LB = new Label();
                    LB.Text = dr["cs_title"].ToString();

                    e.Cell.Controls.Add(LB);
                }
                //*******************************************************(end)
            }
        }
        catch (Exception ex)
        {   //---- 如果程式有錯誤或是例外狀況,將執行這一段
            Response.Write("Error Message----  " + ex.ToString()); 
               } 
               finally { 
                    if (dr != null) { 
                        cmd.Cancel(); 
                        dr.Close(); 
                    } 
                    if (Conn.State == ConnectionState.Open) { 
                        Conn.Close(); 
                        Conn.Dispose(); 
                    } 
               } 
       }

 

 

上面程式的缺點:

補充(一)......................................................................................................................................

缺點一:Calendar的 DayRender事件,是日曆上的「每一天」都會執行一次。

           一個月有30天,就會重複執行 30次。 如此一來,就會重複開關資料庫 30之多。

           如果您的DB裡面有 30筆記錄,上面的程式就會跑900次迴圈,很沒效率!

缺點二:SQL指令應該只抓取"當天"、或是"當月份"的資料即可。要用 Select * from 資料表的寫法。

................................................................................................................................................................

 

這篇文章真難得,一天改了三次。

補充(二)

我們作業流程作了改變,(1). 程式碼就大幅減少了,而且(2). 程式執行的迴圈次數也大幅縮短

簡單地說,未來改進的特點如下:

  • 月曆控制項的 DayRender事件,在月曆控制項上面的當月份,「每一天」都會執行一次。如果一個月有 30天,本範例頂多只執行 30次而已。
  • 每次 DayRender事件產生時,就拿即時產生的「那一天(也就是程式碼e.Day.Date去比對資料庫。那一天有行程,才在畫面上呈現出來。

................................................................................................................................................................

 

 

ADO.NET的程式是書本裡面, Ch. 14的 DataReader範本,也提供了C# 版本,您可以在書上找到。

唯一小小修正的部分,只有在 While 迴圈

書裡的光碟,VB、C#都提供給您了,一魚兩吃!

 

==== 廣 告 ====================================================

很多人、很多書商,輕視這些基礎的、入門的 Web控制項,

但是我們真正寫程式,用最多的就是這些基礎控制項。

 

您對他越熟悉,基本功夫就會越穩固。

 

ASP.NET 4.0 專題實務 / 松崗出版
「上集」第三章

我就搜錄各種最常用的範例、程式碼,將近一百頁!

      比較一下你手邊的書本,看看他提供什麼範例給你,

      您就知道他是要教會你?還是隨便帶過去、混過去?

 

說不定,您手邊的入門書,連自己動手寫程式連結資料庫都  "沒有"  呢.....

這就是 ADO.NET程式...........

 

 

網路上找到的好範例:

 

 

 

 

我將思想傳授他人, 他人之所得,亦無損於我之所有;

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學,遠距教學 (Web Form 約51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學,遠距教學 (ASP.NET MVC 約75~88hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

ASP.NET MVC線上課程 第一天 免費看 (5.5小時) 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.台灣  或  school (at) mis2000lab.net


ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。 

................   facebook社團   https://www.facebook.com/mis2000lab   ......................

................  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載,請看 這裡 ...... https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍(嚴格認定)

...................................................................................................................................................... 

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講

事先錄製好的影片,並非上課時側錄!   觀看影片時,有如我「一對一」跟您面對面講課

 

ASP.NET MVC 5 線上教學

         累積時數約 75~ 88小時...... 第一天(5.5小時)完整內容,"免費"讓您評估