PB家庭图书管理系统 第15页

密码查询窗口脚本：

sle_1.text=""

sle_2.text=""

SELECT "password"."id",

"password"."password"

INTO :sle_1.text,

     :sle_2.text

FROM "password"

WHERE "password"."id" = :sle_3.text

;

if sle_1.text="" then

       sle_1.text="无此用户"

end if

期刊查询窗口脚本：

dw_1.settransobject(sqlca)

string ls_qikanno,ls_qikanname

string ls_issn,ls_chubanshe

DECLARE lcursor_qikanno CURSOR FOR 

SELECT  distinct

        "qikan"."qikanno",

                "qikan"."qikanname",

                "qikan"."issn",

                "qikan"."chubanshe"

              FROM   "qikan"

ORDER BY "qikan"."qikanno" ASC ;

        open lcursor_qikanno ;

fetch lcursor_qikanno into :ls_qikanno, :ls_qikanname, :ls_issn, :ls_chubanshe;

do while sqlca.sqlcode = 0                                      //判断是否已读完表

   ddlb_1.additem(ls_qikanno)

       ddlb_2.additem(ls_qikanname)                    

       ddlb_3.additem(ls_issn)

       ddlb_4.additem(ls_chubanshe)                 //若未读完表，将数据加入到拉列表框中

fetch lcursor_qikanno into :ls_qikanno, :ls_qikanname, :ls_issn, :ls_chubanshe;

loop

close lcursor_qikanno ;                                    //判断是否已读完表

 << 上一页  [11] [12] [13] [14] [15]