英語翻譯
這是程序代碼,1,integer r_count
em_rq.text=string(today(),'yyyy-mm-dd')
dw_zz.settransobject(sqlca)
dw_zz.insertrow(0)
select top 1 zth into :g_zth from zz_ztxxb ;
dw_zz.setitem(1,1,g_zth)
//第一次使用空數(shù)據(jù)庫時(shí),系統(tǒng)默認(rèn)增加用戶
select count(*) into :r_count from zz_czyxxb ;
if r_count=0 then\x05
\x05 INSERT INTO zz_czyxxb ( zth,czybh,czyxm,czymm,ssbm_code,czyqx_code )
\x05 VALUES ( '00','1','用戶','1','00','00') ;\x05
end if,
2,string r_pass,r_id,r_mm,r_ztmc,r_zt
integer r_count,r_count_km
//判斷系統(tǒng)是否維護(hù)固定資產(chǎn)信息
select count(*) into :r_count from zz_ztxxb;
if r_count=0 then
\x05messagebox('提示',' 系統(tǒng)還沒有任何固定資產(chǎn)信息,請(qǐng)選擇【新增】!')
\x05return
end if
//判斷所選擇的固定資產(chǎn)信息是否存在
dw_zz.accepttext()
g_zth=dw_zz.getitemstring(1,1)
select ztmc into :r_ztmc from zz_ztxxb where zth=:g_zth;