DataWindow Style幫你格式化資料視窗樣式

來源:互聯網
上載者:User
window|資料
DataWindow Style幫你格式化資料視窗樣式

作者:壞人張,發表時間:2004-9-19

      在使用DataWindow時,通常我們都是手工在資料視窗畫板中來調整資料視窗對象的樣式(列寬、列高、標題、顏色等等)。但是在大型的應用中,往往會有眾多的資料視窗,而反覆的手工去調整這些資料視窗會給我們的開發工作帶來極大的不便,即使耐心的一個一個地修改了資料視窗對象的樣式,也難免不能做到精確的統一,這樣即不符合功能複用的精神,也給系統的使用效果帶來一定的影響。

      為了很好的解決這一問題,特提出了此解決方案,此方案是專門針對Grid類型的資料視窗的,在此基類中,通過代碼遍曆資料視窗的所有可視列,來改變列以及欄位標題的樣式,以及改變擁有下拉子資料視窗的列中的資料視窗的樣式,從而達到格式化資料視窗樣式的目的。

      你可以在以下的圖示中觀察到這一功能的最終效果:



 

圖1.DataWindow Style效果樣本

      實現機制:

      1.首先要有一個資料視窗的基類,作為以後封裝各類資料視窗相關的特徵代碼的容器。

      2.所有要格式化的DWObject的屬性均需設定為變數的形式,並為他們賦值。

      3.通過Describe("DataWindow.Column.Count") 函數來得到資料視窗的列數,並遍曆列,使用Modify(" ")函數來實現改變DWObject其相關的屬性(例如:執行Modify( "id_t .Font.Face='宋體'" )來改變id_t的字型 )。

      4.重複3的過程,但不同的是,這次遍曆的是子資料視窗的列,也就是DataWindowChild對象,注意:別忘記了先判斷資料視窗是否擁有DataWindowChild,有的話記住先得到他們。

      5.也是最後一步,你是否需要儲存資料視窗的樣式呢?( 比如:保持同樣的列寬,下次再開啟此視窗時可以保持與上次調整的列寬一樣。) 這裡只是做了一個提醒,至於如何具體實現,本例中不做說明了,或許以後有專門講解系統配置方面的專題中再加以說明吧。

      主要代碼實現:

      1.變數的聲明:

         private:
         integer                   ii_style =  1            //預設樣式

         constant  integer    STYLE_DEFAULT = 1

         //STYLE_DEFAULT
         constant  string      colheader_fontcolor_default = "16777215"
         constant  string      colheader_bgcolor_default = "10040064"
         constant  string      col_bgcolor_default= "536870912~tif(mod(getrow(),2)=0,rgb(239,236,229),rgb(255,255,255))"

      2.主要函數:

      1)   integer of_getchild(ref datawindowchild adwc[])

            integer                  i, j, li_col_cnt
            integer                  li_ret
            string                    ls_col
            datawindowchild   ldwc_child[]

            li_col_cnt = integer( this.describe( "DataWindow.Column.Count" ) )

            if li_col_cnt < 1 then return -1

            for i = 1 to li_col_cnt
                 ls_col = this.of_getcolumndisplayname( i )
                 li_ret = this.getchild( ls_col, ldwc_child[i] )
                 if li_ret = 1 then
                    j++
                    this.getchild( ls_col, adwc[j] )
                 end if
            next

            return j

      2)   string of_getcolumndisplayname(integer ai_colnumber)

            string ls_colname

            ls_colname = this.describe ("#" + string (ai_colnumber) + ".name")
            if ls_colname = " " or ls_colname = "!" then
               return "!"
            end if

            return of_getColumnDisplayName (ls_colname)

      3)   string of_getcolumndisplayname(string as_colname)

            string ls_coldisplayname

            ls_coldisplayname = this.describe (as_colname + ".name")

            return ls_coldisplayname

      4)   string of_getheadername(string as_column)

            string ls_defaultheadersuffix = "_t"
            string   ls_colhead

            ls_colhead = as_column + ls_defaultheadersuffix

            return ls_colhead

      5)   string of_getheadertext(string as_column)

            string ls_defaultheadersuffix = "_t"
            string   ls_colhead

            ls_colhead = this.describe ( as_column + ls_defaultheadersuffix + ".Text" )
            if ls_colhead = "!" then
              //No valid column header, use column name.
              ls_colhead = as_column
            end if

            return ls_colhead

      6)   integer of_setstyle(integer ai_style)

            integer          i, j
            integer          li_column_cnt                  //列數
            string           ls_column_name               //列名
            string           ls_column_width               //列寬
            string           ls_child_column_name      //子資料視窗列名
            string           ls_column_headername     //欄位標題
            string           ls_colheader_fontcolor      //欄位標題字型顏色
            string           ls_colheader_bgcolor        //欄位標題背景顏色
            string           ls_col_bgcolor                  //列背景顏色
            datawindowchild  ldwc_child[]             //子資料視窗

            choose case ai_style
             case 1
              ls_colheader_fontcolor = colheader_fontcolor_default
              ls_colheader_bgcolor = colheader_bgcolor_default
              ls_col_bgcolor = col_bgcolor_default
             case else
              ls_colheader_fontcolor = colheader_fontcolor_default
              ls_colheader_bgcolor = colheader_bgcolor_default
              ls_col_bgcolor = col_bgcolor_default  
            end choose

            //禁止列移動
            this.modify("DataWindow.Grid.ColumnMove=No")
            //禁止滑鼠全選擇
            this.modify("DataWindow.Selected.Mouse=No")
            //調整列以及欄位標題
            li_column_cnt = integer( this.describe("DataWindow.Column.Count") )

            for i = 1 to li_column_cnt
              //調整列樣式
              ls_column_name = this.of_getcolumndisplayname( i )

              this.modify( ls_column_name + ".Font.Face='宋體'" )
              this.modify( ls_column_name + ".Font.Height='-9'" )
              this.modify( ls_column_name + ".Y='4'" )
              this.modify( ls_column_name + ".Height='56'")
              this.modify( ls_column_name + ".Background.Mode='0'" )
              this.Modify( ls_column_name + ".Background.Color='" + ls_col_bgcolor + "'" )
              //調整欄位標題樣式
              ls_column_headername = this.of_getheadername( ls_column_name )

              this.modify( ls_column_headername + ".Color='" + ls_colheader_fontcolor + "'" )
              this.modify( ls_column_headername + ".Font.Face='Arial'" )
              this.modify( ls_column_headername + ".Font.Height='-9'" )
              this.modify( ls_column_headername + ".Y='0'" )
              this.modify( ls_column_headername + ".Height='68'")
              this.modify( ls_column_headername + ".background.mode='0'" )
              this.modify( ls_column_headername + ".Background.Color='" + ls_colheader_bgcolor + "'")
            next

            //帶區樣式
            this.modify("DataWindow.Header.Height='68'")
            this.modify("DataWindow.Detail.Height='68'")
            this.modify("DataWindow.Footer.Height='40'")

            //this.modify("DataWindow.Footer.Color= '" + ls_colheader_bgcolor + "'")

            //調整datawindowchild樣式
            this.of_getchild( ldwc_child[] )

            for i = 1 to upperbound( ldwc_child )
              if isvalid( ldwc_child[i] ) then
                 ldwc_child[i].settransobject( sqlca )
                 //禁止列移動
                 ldwc_child[i].modify("DataWindow.Grid.ColumnMove=No")
                 //禁止滑鼠全選擇
                 ldwc_child[i].modify("DataWindow.Selected.Mouse=No")
                 //調整表頭高度為0
                 ldwc_child[i].modify("DataWindow.Header.Height='0'")
                 //調整資料區高度
                 ldwc_child[i].modify("DataWindow.Detail.Height='68'")
                 //datawindowchild的列數
                 li_column_cnt = integer( ldwc_child[1].describe("DataWindow.Column.Count") )
                 //調整datawindowchild的列樣式
                 for j = 1 to li_column_cnt
                       //調整列樣式
                       ls_child_column_name = ldwc_child[i].describe ("#" + string (j) + ".name")
    
                       if ls_child_column_name = " " or ls_child_column_name = "!" then
                       ls_child_column_name = ''
              else
                 ls_child_column_name = ldwc_child[i].describe ( ls_child_column_name + ".name" )
              end if
    
              ldwc_child[i].modify( ls_child_column_name + ".Font.Face='宋體'" )
              ldwc_child[i].modify( ls_child_column_name + ".Font.Height='-9'" )
              ldwc_child[i].modify( ls_child_column_name + ".Y='4'" )
              ldwc_child[i].modify( ls_child_column_name + ".Height='56'")
              ldwc_child[i].modify( ls_child_column_name + ".Background.Mode='0'" )
             ldwc_child[i].Modify( ls_child_column_name + ".Background.Color='" + ls_col_bgcolor + "'" )
            next
          end if
         next

         return 1

      至此,已經為你詳細介紹了如何?利用代碼來統一資料視窗樣式的方法,你只需要加入到你的基類中即可,如果有任何疑問或者更好的方法,歡迎與我聯絡!

 


相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。