常用代码及解释

dw_1.retrieve( getitemstring( dw_1.getrow() , 1 ) )






dw_1.dataobject="数据窗口" //设置dw_1的数据窗口名


dw_1.settransobject(sqlca) //dw_1同数据库对象连接

dw_1.retrieve() //从数据库中数据检索

dw_1.update() //使用dw_1对象中的数据库更新数据库

dw_1.insertrow(0) //在dw_1对象的尾部插入一空行

dw_1.getrow() //获取dw_1对象的当前记录号

dw_1.deleterow() //删除一行

dw_1.getitemstring(1,1) //获取一分量


dw_1.ScrollToRow(dw_1.rowcount())



long ll_currentrow,ll_rtn
//得到当前记录的行号
ll_currentrow=dw_1.getrow()
if ll_currentrow<1 then
messagebox("系统提示","请选择要删除的记录！")
return
end if
//删除确定提示
ll_rtn=messagebox("提示"，"确定要删除本记录吗？"，question!,yesno!)
if ll_rtn=1 then //删除数据
dw_1.deleterow(ll_currentrow)
end if


SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=test'"

connect using sqlca;

open(mainwindow)





integer i

SELECT count(*)
INTO : i
FROM mm
WHERE ( mm.yhm = :sle_1.text ) AND
( mm.mm = :sle_2.text )
;
if i=1 then
open(mainwindow)
else
messagebox("温馨提醒","您输入的用户名或密码错误！")
end if
close(parent)








if sle_1.text=sle_2.text then

UPDATE "mm"
SET "mm" =:sle_1.text ;
commit;
messagebox("温馨提醒！","密码修改成功")
else
messagebox("温馨提醒！","两次输入不一致")
end if
close(parent)










//string querytj
integer c;

SELECT count(*)
INTO :c
FROM AMZB.MIMA
WHERE ( AMZB.MIMA.用户名 = :sle_1.text ) AND
( AMZB.MIMA.密码 = :sle_2.text )
// HAVING ( AMZB.MIMA.用户名 = );



//querytj="("+"用户名"+"="+" ' " +sle_1.text+" ' "+")"+"and"+"("+"密码"+"="+" ' "+sle_2.text+" '"+")"

// dw_1.setfilter(querytj)
//dw_1.filter()
//dw_1.retrieve(1)
// sle_1.text=string(dw_1.rowcount())


//if dw_1.rowcount()=0 then
//messagebox("警告","对不起,权限认证出现错误，请确认你是否合法用户并重新检验!")
//close(log_window)
//else
// open(mian_window1)

//end if

if c=1 then
open(main_window1)
else
messagebox("温馨提醒","您输入的用户名或密码错误！")
end if

close(parent)

第一条：
string setting

dw_3.scrolltorow(0)

setting="图书编号="+"'"+dw_1.object.data[1,1]+"'"

dw_4.setfilter(setting)
dw_4.filter()
dw_4.retrieve(1)

前一条：
string setting
integer hh
hh=dw_3.getrow()

if hh=1 then
messagebox("信息提示!!","目前已经是第一条图书记录")
else
dw_3.scrollpriorrow()

hh=dw_3.getrow()

setting="图书编号="+"'"+dw_1.object.data[hh,1]+"'"
dw_4.setfilter(setting)
dw_4.Filter()
dw_4.retrieve(1)
end if

下

一条：
string setting
integer hh
hh=dw_3.getrow()

if hh=dw_3.rowcount() then
messagebox("信息提示!!","目前已经是最后一条图书记录")
else
dw_3.scrollnextrow()

hh=dw_3.getrow()

setting="图书编号="+"'"+dw_3.object.data[hh,1]+"'"
dw_4.setfilter(setting)
Filter(dw_4)
dw_4.retrieve(1)
end if
最后一条：
string setting
integer hh
dw_3.scrolltorow(dw_3.rowcount())

hh=dw_3.getrow()


setting="图书编号="+"'"+dw_3.object.data[hh,1]+"'"
dw_4.setfilter(setting)
Filter(dw_4)
dw_4.retrieve(1)

删除：
long hh
integer net
net=messagebox("信息提示!!","删除数据不可恢复确实要删除吗？",question!,yesno!)
if net=1 then
hh=dw_2.getrow()

deleterow(dw_2,hh)
else
messagebox("信息提示!","数据未删除，任可以使用!")
end if