lotus 基本開發功能總結 二

2021-05-22 04:29:20 字數 4305 閱讀 6083

//domino資料庫資料拷貝(源資料庫即:被拷貝的資料庫;目的資料庫即:存放拷貝資料的資料庫)

1 跨資料庫拷貝

方法一 :

使用**拷貝資料

step1: 在資料來源庫中新建資料拷貝**,選擇**中的操作,新增操作

step2: 新增操作中選擇拷貝到資料庫,選擇目的資料庫,填寫好相關資訊,儲存就 ok

step3: 執行**。開啟乙個檢視,在新視窗中執行資料拷貝**,執行拷貝**需要選中檢視中的資料,預設為0條資料

方法二:

使用指令碼拷貝資料到目的資料庫

/dim wk as new notesuiworkspace

dim session as new notessession

dim uiview as notesuiview

dim doc as notesdocument

dim entrydc as notesviewentrycollection

dim entry as notesviewentry

dim count as integer

dim db_oj as notesdatabase

dim db as notesdatabase

set uiview =wk.currentview

count=uiview.documents.count

set db=wk.currentdatabase.database

dim server as string

dim serverpath as string

server=db.server

serverpath="lotus_learn2.nsf"

set db_oj=session.getdatabase(server,serverpath)

if count> 0 then '當前有選中的資料,就拷貝選中的資料 否則就拷貝所有

'set entrydc=uiview.view.allentries

'set entry=entrydc.getfirstentry

for j=1 to uiview.documents.count 

set doc=uiview.documents.getnthdocument(j)

call doc.copytodatabase(db_oj)

'set entry=entrydc.getnthentry(j)

next

j=j-1

msgbox "over:"+cstr(j)

else

set entrydc=uiview.view.allentries

set entry=entrydc.getfirstentry

dim i as integer

i=0while not entry is nothing

set doc=entry.document

call doc.copytodatabase(db_oj)

set entry=entrydc.getnextentry(entry)

i=i+1

wend

msgbox "over:"+cstr(i)  

end if

/lotus基本的四個前台類:notesuiworkspace/notesuidocment/notesuiview/notesuidatabase

/notesuiworkspace的基本方法

屬性currentdatabase   返回notesuidatabase物件

currentdocument   返回notesuidocment物件

currentview       返回notesuiview物件

方法editdocument  開啟乙個記錄文件

viewrefresh   重新整理當前檢視

///select case  貨幣數字轉換人寫幣大寫

function getchar(s as string)

select case s

case "1" 

getchar="壹" 

case "2"

getchar="貳" 

case "3"

getchar="叄" 

case "4"

getchar="肆" 

case "5"

getchar="伍" 

case "6"

getchar="陸" 

case "7"

getchar="柒" 

case "8"

getchar="捌" 

case "9"

getchar="玖" 

case "0" 

getchar="零" 

end select

end function

function getch_money(s as string)

dim cur as string

dim lef as string

dim rig as string

dim pos as integer

dim ch_s as string

cur="萬仟佰拾億仟佰拾萬仟佰拾元"

pos =instr(s,".")+2

s=left(s,pos) '保證資料小數是2位

lef=left(s,len(s)-3)

rig=right(s,2)

'左邊部分的分析

for i=1 to len(lef)

ch_s=ch_s+getchar(mid(lef,i,1))+mid(cur,13-len(lef)+i,1) 

next

'右邊部分的分析

ch_s=ch_s+getchar(left(rig,1))+"角"+getchar(right(rig,1))+"分"

getch_money=ch_s

end function

///數字日期與中文日期的轉換

function getchar(s as string )

select case s

case "1" 

getchar="一" 

case "2"

getchar="二" 

case "3"

getchar="三" 

case "4"

getchar="四" 

case "5"

getchar="五" 

case "6"

getchar="六" 

case "7"

getchar="七" 

case "8"

getchar="八" 

case "9"

getchar="九" 

case "0" 

getchar="0" 

end select

end function

function getzh_date(s as string)

dim y as string

dim m as string

dim d as string

dim date_zh as string

if len(s)=10 then

y=left(s,4)

m=mid(s,6,2)

d=mid(s,9,2)

if instr(m,"0")=1 then

m=right(m,1)

end if

if instr(d,"0")=1 then

d=right(d,1)

end if

'年部分

for i=1 to len(y)

date_zh=date_zh+getchar(mid(y,i,1))

next

date_zh=date_zh+"年"

msgbox date_zh

'月部分

for i=1 to len(m)

date_zh=date_zh+getchar(mid(m,i,1))

next

date_zh=date_zh+"月"

msgbox date_zh

'日部分

for i=1 to len(d)

date_zh=date_zh+getchar(mid(d,i))

next

date_zh=date_zh+"日"

getzh_date=date_zh

msgbox date_zh

end if

end function

wepy 開發總結 功能點

開發小程式中,遇到的wepy的幾點坑,記錄一下 更詳細的專案總結記錄請見我的個人部落格 1.定時器 在頁面中有需要用到倒計時或者其他定時器任務時,新建的定時器在解除安裝頁面時一定要清除掉,有時候頁面可能不止乙個定時器需求,在解除安裝頁面 onunload鉤子函式 的時候一定要清除掉當前不用的定時器 ...

交流 總結 高效的開發功能

怎樣高效的開發功能?現在感覺越來越不知道怎樣高效開發乙個功能了?各位大大,能否給小弟一點指點,交流交流 謝了 開發流程應該可以固定,從而尋找出最好最快的開發模式 結合以前的開發,我總結了一下,準備用這個來做乙個持續改進和總結 畫ui草圖 預期效果圖 定呼叫介面 根據草圖確定主要是有哪些action參...

商城公告功能開發總結

效果如下 1.定在頭部 position fixed z index 999 top 0 opacity 1 2.ajax處理json資料 獲取 公告 function getnotice datatype json 設為json之後,就能夠很好的處理獲取的json資料,json.status as...