英语翻译
这是程序代码,1,integerr_count
em_rq.text=string(today(),'yyyy-mm-dd')
dw_zz.settransobject(sqlca)
dw_zz.insertrow(0)
selecttop1zthinto:g_zthfromzz_ztxxb;
dw_zz.setitem(1,1,g_zth)
//第一次使用空数据库时,系统默认增加用户
selectcount(*)into:r_countfromzz_czyxxb;
ifr_count=0thenx05
x05INSERTINTOzz_czyxxb(zth,czybh,czyxm,czymm,ssbm_code,czyqx_code)
x05VALUES('00','1','用户','1','00','00');x05
endif,
2,stringr_pass,r_id,r_mm,r_ztmc,r_zt
integerr_count,r_count_km
//判断系统是否维护固定资产信息
selectcount(*)into:r_countfromzz_ztxxb;
ifr_count=0then
x05messagebox('提示','系统还没有任何固定资产信息,请选择【新增】!')
x05return
endif
//判断所选择的固定资产信息是否存在
dw_zz.accepttext()
g_zth=dw_zz.getitemstring(1,1)
selectztmcinto:r_ztmcfromzz_ztxxbwherezth=:g_zth;
邮箱: 联系方式: