毕业论文 家庭图书管理系统设计 源程序清单_图书管理系统毕业论文
毕业论文 家庭图书管理系统设计 源程序清单由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“图书管理系统毕业论文”。
源程序清单
应用对象脚本：
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:ygyg.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;//判断是否已读完表
图书管理系统毕业论文......
图书管理系统毕业论文高校合并后必将对原有的资源进行整合 ,而原有的图书馆业务管理系统也必须满足这种新的需求。一起来看看图书管理系统毕业论文吧!图书馆管理系统的需求......
图书管理系统设计1、需求分析图书管理信息采用文件保存，因而要提供文件的输入输出操作；要实现对图书基本信息的查询，则要提供查找操作（提供按书名、作者名查询两种查询方式）和显......
图书管理系统设计报告一系统开发的目标与意义1.1设计题目此次VFP课程设计是综合应用所学过的数据库理论知识，自行设计并实现一个较为完整的应用系统。结合一个实际信息系统开......
3 数据库设计 .................................................................2 3.1 专门术语的定义 ...................................................2 3.1.1 系......
