//該程式用于重繪體溫單中的點-線資訊
//引數ai_item:0 表示全部專案重繪
// 1,-1 表示僅重繪體溫專案,負數表示隱藏
// 2,-2 表示僅重繪脈搏專案,負數表示隱藏
// 3,-3 表示僅重繪呼吸專案,負數表示隱藏
integer i
string ls_m
long ll_first,ll_last
ll_first=long(dw_1.Object.DataWindow.FirstRowOnPage)
if ll_first=0 then return 0
ll_last=min(dw_1.rowcount() - ll_first,41)
if ai_item>0 then
if ai_item=1 then
ib_temprature=true
elseif ai_item=2 then
ib_pulse=true
elseif ai_item=3 then
ib_breath=true
end if
end if
for i=0 to ll_last
if (ai_item=0 and ib_temprature) or (ai_item=1) then
if dw_1.object.tw[i+ll_first]<>0 then
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2100 - 35 - (dw_1.object.tw[i+ll_first] - 36)*220)+"'"
dw_1.Modify(ls_m)
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.tw[i+ll_first - 1]<>0 then
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2100 - 0 - (dw_1.object.tw[i+ll_first - 1] - 36)*220)+"'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2100 - 0 - (dw_1.object.tw[i+ll_first] - 36)*220)+"'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-1 then
ib_temprature=false
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
if (ai_item=0 and ib_pulse) or (ai_item=2) then
if dw_1.object.mb[i+ll_first]<>0 then
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2148 - 80 - (dw_1.object.mb[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.mb[i+ll_first - 1]<>0 then
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2164 - 63 - (dw_1.object.mb[i+ll_first - 1] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2164 - 63 - (dw_1.object.mb[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-2 then
ib_pulse=false
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
if (ai_item=0 and ib_breath) or (ai_item=3) then
if dw_1.object.hx[i+ll_first]<>0 then
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2148 - 66 - (dw_1.object.hx[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.hx[i+ll_first - 1]<>0 then
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2164 - 67 - (dw_1.object.hx[i+ll_first - 1] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2164 - 67 - (dw_1.object.hx[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-3 then
ib_breath=false
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
next
if ll_last<>41 and ai_item=0 then
for i=ll_last+1 to 41
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
next
end if
ii_week=dw_1.object.zc[ll_first]
return ii_week
uj5u.com熱心網友回復:
住院天數:第一天的0怎么改成1uj5u.com熱心網友回復:
你這個報表是本來設計好的還是代碼CREATE的,要改變數值的話,直接就是dw_1.object.text1[1]=1就可以了uj5u.com熱心網友回復:
報表是設計好的uj5u.com熱心網友回復:
求大神幫忙,紅線的起點應該在11.25那欄紅色4的那格里,現在向左偏了三格。
uj5u.com熱心網友回復:
這個問題解決了,雖然與你說不一樣,但還是要感謝你給提供的思路。非常感謝。
轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/14798.html
標籤:非技術版
