//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...