英语翻译这是程序代码,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)//第一次使用空数据库时,系统默认增
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/27 20:13:58
英语翻译这是程序代码,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)//第一次使用空数据库时,系统默认增
英语翻译
这是程序代码,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;
英语翻译这是程序代码,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)//第一次使用空数据库时,系统默认增
第一行都是声明变量,你应该懂.说下面主要意思是:
从em_rq.text=string(today(),'yyyy-mm-dd')逐行说起!
em_rq这个控件赋值,赋值赋的是是今天的日期.格式是'yyyy-mm-dd',然后在dw_zz数据窗口中插入一行空白行.从数据库中zz_ztxxb这张表中选择第一行的zth字段的值付给g_zth//应该是个全局变量.然后设置dw_zz数据窗口的第一行第一列的zth字段值为刚才从zz_ztxxb取过来g_zth.然后是r_count字段取的是zz_czyxxb这个表中数据的行数.如果为0即 没有数据的话.向zz_czyxxb表中插入一行数据.INSERT INTO zz_czyxxb ( zth,czybh,czyxm,czymm,ssbm_code,czyqx_code ) VALUES ( '00','1','用户','1','00','00') ;
2,第一行还是声明变量,就此就不提了.然后从数据库中,zz_ztxxb这个表中取出数据的行数赋值给r_count变量.如果为0即没数据.弹出对话框messagebox('提示',' 系统还没有任何固定资产信息,请选择【新增】!'),然后retrun
不执行下面的脚本.
然后是dw_zz.accepttext(),它的意思就是dw_zz数据窗接收修改后数据,存入缓存区.
然后g_zth=dw_zz.getitemstring(1,1)意思是得到dw_zz数据窗的第一行第一列的值赋给g_zth变量.
最后一句select ztmc into :r_ztmc from zz_ztxxb where zth=:g_zth;意思是从zz_ztxxb 表中取得当zth字段的值等于g_zth变量中的值时的ztmc这个字段的值、赋给r_ztmc这个变量.
【如还有问题可以及时问我】