英语翻译这是程序代码,1,integer r_countem_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)//第一次使用空数据库时,系统默认增加用户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_ztinteger r_count,r_co

英语翻译
这是程序代码,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)
//第一次使用空数据库时,系统默认增加用户
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
//判断系统是否维护固定资产信息
select count(*) into :r_count from zz_ztxxb;
if r_count=0 then
\x05messagebox('提示',' 系统还没有任何固定资产信息,请选择【新增】!')
\x05return
end if
//判断所选择的固定资产信息是否存在
dw_zz.accepttext()
g_zth=dw_zz.getitemstring(1,1)
select ztmc into :r_ztmc from zz_ztxxb where zth=:g_zth;