PB通用按鈕的代碼與日期函數

 1> ADD按鈕的click事件

long tot,tot1,tot2
tot1 = dw_1.rowcount()
tot2=dw_1.insertrow(0)
tot=tot1+1
dw_1.setitem(tot2,1,tot)
dw_1.SetFocus()
dw_1.ScrollToRow(tot2)
dw_1.SetColumn(1)
st_rows.text=string(dw_1.rowcount()) //顯示數據行數
----------------------------------------------------------------------------
 2> DELETE按鈕的click事件

if dw_1.rowcount()=0 then
 return
end if
int p_message
p_message= MessageBox("WARNING","do you delete?",Exclamation!, OKCancel!, 2)
//刪除數據後要做一次刷新
choose  case p_message
 case 1
 dw_1.deleterow(dw_1.getrow())
 cb_save.PostEvent(Clicked!)
end choose
-------------------------------------------------------------------------------
 3> SAVE按鈕的click事件

   if dw_1.rowcount()=0 then
 return
   end if
   if dw_1.update(true,false)=1 then
 dw_1.resetUpdate()
 commit;
   messagebox("OK","The data is saved successfully!")
   else
 rollback;
   end if

   dw_1.SetRedraw(FALSE)
   cb_search.PostEvent(Clicked!)  //SAVE數據後從新SERACH數據
   dw_1.SetRedraw(TRUE)
-------------------------------------------------------------------------------

4> COPY按鈕的click事件

if dw_1.rowcount()=0 then
 return
end if
int selectrow,objectrow
selectrow=0
selectrow=dw_1.getrow()
//if selectrow=1 then return
objectrow=selectrow+1
dw_1.RowsCopy(selectrow,selectrow, Primary!,dw_1,objectrow,primary!)
dw_1.ScrollToRow(objectrow) //滾動行copy本行到下一行
dw_1.object.detail[objectrow]=""
st_rows.text=string(dw_1.rowcount())
-------------------------------------------------------------------------------
5> EXCEL按鈕的click事件

if dw_1.rowcount()=0 then
 return
end if
dw_1.saveas('',excel!,true)
-------------------------------------------------------------------------------
6> PRINT按鈕的click事件

if dw_1.rowcount()=0 then
 return
end if
int p_message
p_message= MessageBox("WARNING","do you print?,~r~n YES,~r~n NO! ", &
Exclamation!, OKCancel!, 2)
choose case p_message
 case 1
 dw_1.print()
end choose
-------------------------------------------------------------------------------
7> SEARCH按鈕的click事件

   要在數據窗口裏ARGUMENT設置三個參數
string s,c,w
s=trim(ddlb_s.text)
c=trim(ddlb_c.text)
w=trim(sle_w.text)

w=lower(w)
if s="" then
 s="%"
else
 s=s+"%"
end if

if c="" then
 c="%"
else
 c=c+"%"
end if 
if w="" then
 w="%"
else
 w="%"+w+"%"
end if

dw_1.retrieve(s,c,w)
st_rows.text=string(dw_1.rowcount())
-------------------------------------------------------------------------------
8> RESET按鈕的click事件
   有數據的全部置空
dw_1.reset()
st_rows.text="0"
sle_w.text=""
ddlb_c.text=""
ddlb_s.text=""
-------------------------------------------------------------------------------

9> 鼠標右鍵功能的事件
   首先：要做一個菜單 m_popup,子菜單爲add,detele,copy
  
   add的click事件代碼：
     long newrow
     newrow=w_wording.dw_1.insertrow(0)
     w_wording.dw_1.scrolltorow(newrow)
   detele的click事件代碼：
     w_wording.dw_1.deleterow(0)
   copy的click事件代碼：
     if w_wording.dw_1.rowcount()=0 then
 return
     end if
     int selectrow,objectrow
     selectrow=0
     selectrow=w_wording.dw_1.getrow()
     if selectrow=1 then return
     objectrow=selectrow+1
   第二步：在DW_1數據窗口的rbuttondown的事件下寫如下代碼
    m_popup=CREATE m_popup 
 m_popup.PopMenu(parent.PointerX()+1, parent.PointerY()+1)                
           在DW_1數據窗口的click的事件下寫如下代碼
    this.selectrow(0,false)
        this.selectrow(row,true)
-------------------------------------------------------------------------------

 

日期函數

   

定義 return type          為string

       Argument type     為 date

       function name      month_day

       Argument name   qs_date

 

string english_mouth[12]={"January","February","March","April","May","June","July","August","September","October","November","December"}
string return_mouth
return_mouth=english_mouth[Month(qs_date)]+' '+string(day(qs_date))
return return_mouth