加密
if sle_1.text="111" and sle_2.text="111" then
    open(w_main)
    close(w_zhu)
else
        messagebox("密码错误"，"按确定退出!",exclamation!,ok!)
end if
窗口
dw_1.settransobject(sqlca)
dw_1.retrieve()
统计
string aa,ff,qq
aa=trim(ddlb_1.text)
ff=trim(sle_1.text)
if aa="客户代码" then
qq="chdm = '"+ff+"'"
dw_1.setfilter(qq)
dw_1.filter()
dw_1.retrieve()
elseif aa="单位名称" then
qq="dwmc = '"+ff+"'"
dw_1.setfilter(qq)
dw_1.filter()
dw_1.retrieve()
end if

统计
string aa,sql
aa=trim(sle_1.text)
sql="select * from t_xuelibiandong where depart ='"+aa+"'"
dw_1.settransobject(sqlca)
dw_1.setsqlselect(sql)
dw_1.retrieve()
删除
int i
i = messagebox("提示","是否要删除该记录？")
if i = 1 then
dw_1.deleterow(0)
messagebox("提示","请按'保存'按钮保存操作过程。")
else
    rollback;
end if

打印
if messagebox("提示！","确定要打印吗?",    question!,Yesno!,1) = 1 then
    if PrintSetup () = -1 then
        messagebox('提示！','请检查是否正确安装打印机！',Exclamation!)
        return
    else
        dw_1.Print()
    end if
end if

上一条

dw_1.scrollpriorrow()
dw_1.selectrow(0,false)
dw_1.selectrow(dw_1.getrow(),true)
下一条
dw_1.scrollnextrow()
dw_1.selectrow(0,false)
dw_1.selectrow(dw_1.getrow(),true)

第一条
dw_1.ScrollToRow(1)
dw_1.selectrow(0,false)
dw_1.selectrow(dw_1.getrow(),true)

末一条
dw_1.ScrollToRow(dw_1.rowcount())
dw_1.selectrow(0,false)
dw_1.selectrow(dw_1.getrow(),true)

查询两个
string aa,ff
aa=ddlb_1.text
ff=sle_1.text
if aa="员工编号" then
dw_1.setfilter("code = '"+ff+"'")
dw_1.filter()
dw_1.retrieve()
elseif aa="工种" then
dw_1.setfilter("gongzong = '"+ff+"'")
dw_1.filter()
dw_1.retrieve()
end if
查询三个
string aa,ff
aa=ddlb_1.text
ff=sle_1.text
if aa="员工编号" then
dw_1.setfilter("code = '"+ff+"'")
dw_1.filter()
dw_1.retrieve()
elseif aa="员工姓名" then
dw_1.setfilter("name = '"+ff+"'")
dw_1.filter()
dw_1.retrieve()
elseif aa="性别" then
dw_1.setfilter("sex = '"+ff+"'")
dw_1.filter()
dw_1.retrieve()
end if

预览
dw_2.settransobject(sqlca)
dw_2.retrieve()

查寻
string ls_query
ls_query = sle_1.text
if rb_1.checked = true then
dw_1.SetFilter("cpdm = '"+ ls_query +"'")
dw_1.filter()
dw_1.retrieve()
elseif rb_2.checked = true then
dw_1.SetFilter("cpmc = '"+ ls_query +"'")
dw_1.filter()
dw_1.retrieve()
end if
if dw_1.rowcount() = 0 then
    messagebox("提示","没有符合条件的数据！")
end if




lizhen脚本
string querytj
querytj="("+"YHMC"+"="+"'"+sle_1.text+"'"+")"+"and"+"("+"YHMM"+"="+"'"+sle_2.text+"'"+")"
dw_1.setfilter(querytj)
Filter(dw_1)
dw_1.retrieve(1)
if dw_1.RowCount()=0 then
    MessageBox("警告","对不起,请确认你是否有权访问该系统!")
else
    open(wd_main)
    close(wd_password)
end if


录入：
long hh
dw_1.insertrow(0)
hh=dw_1.getrow()
dw_1.scrollnextrow()
确认录入：
if update(dw_1,true,false)=1 then
    dw_1.resetupdate()
    commit;
else
    rollback;
    messagebox("警告","计划录入失败!")
end if

删除：
integer hh
integer net
hh=dw_1.getrow()
net=messagebox("警告!","数据删除将不可恢复!确定要删除吗?",question!,YesNo!)
if net=1 then
    deleterow(dw_1,hh)
else
    messagebox("提示","数据未删除,仍可使用!")
end if
if update(dw_1,true,false)=1 then
    dw_1.resetupdate()
    commit;
else
    rollback;
    messagebox("警告","数据保存失败!")
end if


查询：
string tj
if ddlb_1.text="合同编码" then
tj="HTBM = '"+sle_1.text+"'"
dw_1.setfilter(tj)
dw_1.filter()
elseif ddlb_1.text="客户编码" then
    tj="KHBM = '"+sle_1.text+"'"
    dw_1.setfilter(tj)
    dw_1.filter()
elseif ddlb_1.text="产品代码" then
    tj="CPDM = '"+sle_1.text+"'"
    dw_1.setfilter(tj)
    dw_1.filter()
elseif ddlb_1.text="产品名称" then
    tj="CPMC = '"+sle_1.text+"'"
    dw_1.setfilter(tj)
    dw_1.filter()
end if
    dw_1.retrieve()