畢業(yè)論文家庭圖書(shū)管理系統(tǒng)設(shè)計(jì)源程序清單

1、源程序清單源程序清單應(yīng)用對(duì)象腳本：應(yīng)用對(duì)象腳本：sqlca.DBMS=ProfileString(“pb.ini““database““dbms“““)sqlca.database=ProfileString(“pb.ini““database““database“““)sqlca.userid=ProfileString(“pb.ini““database““userid“““)sqlca.dbpass=ProfileString(“

2、pb.ini““database““dbpass“““)sqlca.logid=ProfileString(“pb.ini““database““l(fā)ogid“““)sqlca.logpass=ProfileString(“pb.ini““database““LogPassWd“““)sqlca.servername=ProfileString(“pb.ini““database““servername“““)sqlca.dbparm=P

3、rofileString(“pb.ini““database““dbparm“““)SQLCA.DBMS=“ODBC“SQLCA.AutoCommit=FalseSQLCA.DBParm=“Connectstring=DSN=tushu“connectopen(w_login)版本信息窗口：版本信息窗口：確定按鈕腳本：確定按鈕腳本：close（parent）統(tǒng)計(jì)窗口：統(tǒng)計(jì)窗口：打開(kāi)腳本：打開(kāi)腳本：dw_1.settransobject(

4、sqlca)dw_1.retrieve()oldsql=dw_1.getsql()統(tǒng)計(jì)條件一的腳本：統(tǒng)計(jì)條件一的腳本：stringwheresqlstringnewsql設(shè)置模糊查詢的WHERE條件wheresql=“whereqikan.qikannolike“sle_1.text““合成新的SQL語(yǔ)句newsql=oldsqlwheresql數(shù)據(jù)窗口進(jìn)行查詢dw_1.setsql(newsql)dw_1.retrieve()圖書(shū)查詢

5、窗口腳本：圖書(shū)查詢窗口腳本：sle_1.text=““sle_2.text=““sle_3.text=““sle_4.text=““sle_6.text=““sle_7.text=“““tushu“.“bookname““tushu“.“bookno““tushu“.“zuozhe““tushu“.“wenxianleixing““tushu“.“weizhi““tushu“.“isbn“INTO:sle_1.text:sle_4.te

6、xt:sle_2.text:sle_3.text:sle_6.text:sle_7.textFROM“tushu“WHERE“tushu“.“bookname“=:sle_5.textifsle_1.text=““thensle_1.text=“無(wú)此書(shū)“endif登陸窗口腳本：登陸窗口腳本：stringpasswd=“hjsfdjayewhr“passwd.passwdinto:passwdfrompasswdwherepasswd.i