毕业论文 家庭图书管理系统设计 源程序清单

源程序清单

应用对象脚本：

sqlca.DBMS= ProfileString (\"pb.ini\", \"database\", \"dbms\",\"\") sqlca.database= ProfileString (\"pb.ini\", \"database\", \"database\",\"\") sqlca.userid= ProfileString (\"pb.ini\", \"database\", \"userid\",\"\") sqlca.dbpa= ProfileString (\"pb.ini\", \"database\", \"dbpa\",\"\") sqlca.logid= ProfileString (\"pb.ini\", \"database\", \"logid\",\"\") sqlca.logpa= ProfileString (\"pb.ini\", \"database\", \"LogPaWord\", \"\") sqlca.servername = ProfileString (\"pb.ini\", \"database\", \"servername\", \"\") sqlca.dbparm= ProfileString (\"pb.ini\", \"database\", \"dbparm\",\"\")

SQLCA.DBMS = \"ODBC\"

SQLCA.AutoCommit = False

SQLCA.DBParm = \"Connectstring=\'DSN=tushu\'\"

connect;

open(w_login)

版本信息窗口：

确定按钮脚本：

close（parent）

统计窗口：

打开脚本：

dw_1.settransobject(sqlca)

dw_1.retrieve()

oldsql=dw_1.getsqlselect()

统计条件一的脚本：

string wheresql

string newsql

//设置模糊查询的WHERE条件

wheresql=\"where qikan.qikanno like \'\"+sle_1.text+\"\'\"

//合成新的SQL Select语句

newsql=oldsql+wheresql

//数据窗口进行查询

dw_1.setsqlselect(newsql)

dw_1.retrieve()

统计条件二的脚本：

string wheresql

string newsql

//设置模糊查询的WHERE条件

wheresql=\"where qikan.qikanname like \'\"+sle_2.text+\"\'\"

//合成新的SQL Select语句

newsql=oldsql+wheresql

//数据窗口进行查询

dw_1.setsqlselect(newsql)

dw_1.retrieve()

统计条件三的脚本：

string wheresql

string newsql

//设置模糊查询的WHERE条件

wheresql=\"where qikan.nian like \'\"+sle_4.text+\"\'\"

//合成新的SQL Select语句

newsql=oldsql+wheresql

//数据窗口进行查询

dw_1.setsqlselect(newsql)

dw_1.retrieve()

统计条件四的脚本：

string wheresql

string newsql

//设置模糊查询的WHERE条件

wheresql=\"where qikan.chubanshe like \'\"+sle_3.text+\"\'\"

//合成新的SQL Select语句

newsql=oldsql+wheresql

//数据窗口进行查询

dw_1.setsqlselect(newsql)

dw_1.retrieve()

刷新按钮的脚本：

dw_1.setsqlselect(oldsql)

dw_1.retrieve()

sle_1.text=\"\"

sle_2.text=\"\"

sle_3.text=\"\"

sle_4.text=\"\"

sle_6.text=\"\"

sle_7.text=\"\"

SELECT \"tushu\".\"bookname\",

\"tushu\".\"bookno\",

\"tushu\".\"zuozhe\",

\"tushu\".\"wenxianleixing\",

\"tushu\".\"weizhi\",

\"tushu\".\"isbn\"

INTO :sle_1.text,

:sle_4.text,

:sle_2.text,

:sle_3.text,

:sle_6.text,

:sle_7.text

FROM \"tushu\"

WHERE \"tushu\".\"bookname\" = :sle_5.text

;

if sle_1.text=\"\" then

sle_1.text=\"无此书\"

end if

登陆窗口脚本：

string paword=\"hjsfdjayewhr\"

select paword.paword

into :paword

from paword

where paword.id=:sle_1.text;

if paword=sle_2.text then

open(w_main)

else

meagebox(\"提示信息\",\"错误密码!\")

end if

close(w_login)

w_luilan_1.dw_1.accepttext()

integer li_rtn

if w_luilan_1.dw_1.modifiedcount() > 0 then

li_rtn = meagebox(\'提示信息\',\'保存数据吗?\',question!,yesno!,1)

else

close(w_luilan_1)

return

end if

if li_rtn=1 then

cb_3.TriggerEvent(clicked!)

close(w_luilan_1)

elseif li_rtn=2 then

close(w_luilan_1)

end if

录入书籍窗口脚本：

w_luru_1.dw_1.accepttext()

integer li_rtn

if w_luru_1.dw_1.modifiedcount() > 0 then

li_rtn = meagebox(\'提示信息\',\'保存数据吗?\',question!,yesno!,1)

else

close(w_luru_1)

return

end if

if li_rtn=1 then

cb_3.TriggerEvent(clicked!)

close(w_luru_1)

elseif li_rtn=2 then

close(w_luru_1)

end if

录入按扭脚本：

long ll_current_row

string ls_wire_name

ll_current_row = parent.dw_1.insertrow(0)

parent.dw_1.scrolltorow(ll_current_row)

parent.dw_1.setcolumn(1)

parent.dw_1.setfocus()

图书数据存取窗口脚本：

dw_1.settransobject(sqlca)

dw_1.retrieve()

dw_2.settransobject(sqlca)

dw_2.retrieve()

integer li_row,li_cnt

li_row=dw_2.rowcount()

//逐条删除记录

for li_cnt=1 to li_row

dw_2.deleterow(1)

next

dw_2.update()

图书数据备份按扭脚本：

string pname,fname

integer li_rtn,li_save

//获取存储文件名

li_rtn=GetFileSaveName(\"请输入保存的文件名\",pname,fname,\"TXT\",\"Text Files(*.txt),*.txt\") if li_rtn=1 then

li_save=dw_1.saveas(pname,text!,false)

if li_save=1 then

meagebox(\"成功\",\"存储文件成功\")

end if

end if

图书数据读取按扭脚本：

string pname,fname

integer li_rtn,li_count

li_rtn=GetFileOpenName(\"请选择导入的文件\",pname,fname,\"TXT\",\"Text Files(*.txt),*.txt\") if li_rtn=1 then

li_count=dw_2.importfile(\"g:\\yg\\yg.txt\")

if li_count>0 then

sle_1.text=string(li_count)

dw_2.update()

else

meagebox(\"错误\",\"导入文件错误\")

end if

end if

密码查询窗口脚本：

sle_1.text=\"\"

sle_2.text=\"\"

SELECT \"paword\".\"id\",

\"paword\".\"paword\"

INTO :sle_1.text,

:sle_2.text

FROM \"paword\"

WHERE \"paword\".\"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_in,ls_chubanshe

DECLARE lcursor_qikanno CURSOR FOR

SELECTdistinct

\"qikan\".\"qikanno\",

\"qikan\".\"qikanname\",

\"qikan\".\"in\",

\"qikan\".\"chubanshe\"

FROM\"qikan\"

ORDER BY \"qikan\".\"qikanno\" ASC ;

open lcursor_qikanno ;

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

do while sqlca.sqlcode = 0//判断是否已读完表ddlb_1.additem(ls_qikanno)

ddlb_2.additem(ls_qikanname)

ddlb_3.additem(ls_in)

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

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

loop

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

图书管理系统设计

图书管理系统数据库设计

图书管理系统设计报告

图书管理系统

图书管理系统

图书管理系统

图书管理系统

图书管理系统

图书管理系统

系统分析师学习图书清单

《毕业论文 家庭图书管理系统设计 源程序清单.doc》

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档