图书馆信息管理系统程序设计手册

*0

记录：囚|1[_►_][M]>^]共有记录数：13

⑶.名称：借阅图书信息表;

表名称标识：lend；

表构造如下所示:

・Lend:表

字段名称数据类型说明

1F教字

Code文本书号

ReaderlD文本借书证号

OutD&te日期/时间借出日期

借阅图书信息表数据如下所示:

■Lend:表飒

IDCodeReaderlDOutDate

►3a0020803040322010-6-9

1a0030803040012010-5-1

4zOOl0803040312010-5-12

6a0040803040442010-4-3

7eOOl0803040322010-6-5

9bOOl0803040422010-5-8

10a0050803040012010-4-23

23cOOl0803040432010-6-8

24b0020803040312010-6-3

*0

记录：0|7LOLETKE*］共有记录数：9

⑷.名称：顾客信息表;

表名称标识:usera；

表构造图如下所示:

顾客名称信息表数据如下所示:

五、系统模块设计：

(1).主窗体的创立

主窗体的I名字：mainform,对应依J单元文献为：main.pas,在窗体中添加一种

mainmenu组件，一种statusbar组件，一种image组件，程序界面如下图所示:

程序重要代码:

Mainform:TMainform;

mypath:string;

implementation

usesbook,reader,lend,infoquery,dl,xgmm,xgyh,about,gz;

{$R*.dfm)

procedureTMainform.FormCrcatc(Scndcr:TObjcct);

begin

mypath:=extraclfilepath(paramstr(O));//程序目前的J途径

shortdatefbrmat:='yyyy/mrr/dd';

nl.enabled:=false;

ablcd:=false;

n3.enabled:二false;

n4.enabled:=false;

n5.enabled:=false;

n6.enabled:=false;

ablcd:=false;

n8.enabled:=false;

nll.enabled:=false;

ahlcd:=falsc;

Mainform.statusbarl.panels[4].Text:=datetostr(now);〃显示目前时间

end;

procedureTMainform.Button1Click(Sender:TObject);

begin

bookform.show;

end;

procedureTMainform.Button2Click(Sender:TObject);

begin

readerfbrm.show;

end;

procedureTMainform.Button3Click(Sender:TObject);

begin

lendforni.show;

end;

procedureTMainform.Button4Click(Sender:TObject);

begin

close;

end;

procedureTMainfbnn.Biitton5Click(Sender:Tobject);

begin

queryform.show;

end;

procedureTMainform.Button6Click(Scndcr:TObjcct);

begin

button5click(sender);

end;

procedureTMainform.Button7Click(Scndcr:TObjcct);

begin

bu(ton5click(sender);

end;

procedureTMainform.Button8Click(Sender:TObject);

begin

dl_form.show;

end;

procedureTMainfc门Ti.Ruttcn11Click(Sender:TOhject);

begin

close;

end;

procedureTMainfonn.ButtonIOClick(Sender:TObject);

begin

xgmm_Form.show;

end;

procedureTMainform.Button9Click(Sender:TObject);

begin

xgyh_Form.show;

end;

procedureTMainform.N2Click(Scndcr:TObjcct);

begin

queryform.show;〃显示图书查询

end;

procedureTMainform.N3Click(Sender:TObject);

begin

button5click(sender);//显示图书管理系统

end;

procedureTMainform.N4Click(Sender:TObject);

begin

button5click(sendcr);〃显示借阅杳询

end;

procedureTMainform.N6Click(Sender:TObject);

begin

bookform.show;〃显示图书管理

end;

procedure1Mainform.N/Click(Sender:lObjecl);

begin

rcadcrform.show;〃显示读者管理

end;

procedureTMainform.N8Click(Sender:TObject);

begin

lendfonn.show;〃显示借阅管理

end;

procedureTMainforni.NIOCIick(Sender:TObject);

begin

dl_form.show;〃显示登录

find;

procedureTMainform.N11Click(Sender:TObject);

begin

xgyh_Form.show;〃显示顾客管理

end;

procedureTMainform.N12Click(Sender:TObject);

begin

xgmm_Form.sho\v;〃显示修改密码

end;

procedureTMainform.N13Click(Sender:TObject);

begin

close;〃退出系统

end;

procedureTMainform.Timer1Timer(Sender:TObject);

begin

Mainform.statusbarl.panelsl4|.Text:=Forina(DateTime('yyyy《Fmm月dd

日.,,now())+timetostr(now);

end;

procedureTMainform.N16Click(Sender:TObject);

begin

about_form.show;〃显示图书馆背景

end;

procedureTMainform.N15Click(Sender:TObject);

begin

gz_form.show;〃显示图书馆规章制度

end;

⑵.数据模块设计窗体：

建立一种数据模块(datamodule)来寄存ADO组件对象，便于窗体统一使用ADO

组件来访问数据库，命名为：DataModulcADO,在窗体中添加一种ADOConncction

组件，三个ADOQuery组件，两个ADOTable组件，一种DataSource组件。程序

界面如下图所示:

DataloduleADO・I_I/X

ADOConnedionlAD0Query1

ADOTablelAD0Query2

聪

DataSourcelAD0Query3

程序重要代码如下:

procedureTDataModuleADO.DataModuleCreate(Sender:TObject);

begin

adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User

ID=admin;DataSource='

+mypath+'\data\bookmanage.mdb;PersistSecurityInfo=False,;

adoquery1.Connection:=adoconncction1;

adotable1.Connection:=adoconneclion1;

ADOQuery2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=.\data\bookmanage.mdb;PersistSecurityInf□二False';

ADOQuery3.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=.\data\bookmanagc.mdb;PersistSecurityInfo=False';

end;

⑶.登录窗体设计:

窗体的名字为：dlform,对应的单元文献为：dl.pas。在窗体中添加两个label

组件，两个edit组件，两个speedbutton组件。程序的界面如下所示:

程序的重要代码如下：

procedureTdlForm.ButtonlClick(Sender:TObject);

begin

close;

end;

procedureTdlForm.SpccdButtonlClick(Sender:TObject);

var

vqx:string;

begin

withdataModuleADO.ADOQueryldo

begin

close;

sql.Clear;

SQL.Add('select*fromuserawhere(yhm=:yhml)and(mm=:mml)1;

parameters.ParamB)rName(,yhml*).Vaiue:=Editl.text;

parameters.ParamBjrName(*mml*).Value:=Edit2.text;

open;

ifrecordcount=0then

begin

showmessageC顾客名或密码错！’)；

edit2.Text;

end

else

begin

vqx:=fieldbynameCqx').asstring;

Mciinform.d1name:=mainform.statusbarl.panels[0].text;

Mainform.statusbar1.panels[0].Text:=>登录顾客

'+trim(dl_form.Editl.text);

mainform.nl2.enabled:=true;

ifvqx=,Tthen

begin

Mainform.statusbarl.panels[l].Text:二'顾客权限:读者';

mainform.nil.enabled:=falsp：

mainform.nl.enabled:=true;

mainform.n2.enabled:=true;

mainform.n3.enabled:=falsc;

mainform.n4.enabled:=true;

mainform.n5.enabled:=true;

mainform.n6.enabled:=false;

mainform.n7.enabled:=false;

mainform.n8.enabled:=true;

end

else

begin

Mainform.statusbarl.panels[l].Text:=’顾客权限:管理者’;

mainform.nil.enabled:=true;

niciinform,nl.enabled:=true;

mainform.n2.enabled:=true;

mainform.n3.enabled:=true;

niciinform.n4.enabled:=true;

mainform.n5.enabled:=true;

mainform.n6.enabled:=true;

mainform.n7.enabled:=true;

mainform.n8.enahlpd：=trup：

end;

ButtonlClick(Sender);

editl.text:=

edit2.text:=*';

end;

end;

end;

procedureTdl_Form.SpecdButton2Click(Sender:TObject);

begin

close;

end;

(4),顾客密码窗体设计：

窗体B'J名字为：xxghform,对应B、J单元文献为：xxgh.paSo在窗体中添加一种

Dbgrid组件，一种datasource组件，一种mainmcnu组件，界面如下所示:

程序重要的代码如下：

procedureTxgyhForm.FormShow(Sender:TObject);

var

sqlstr:string;

begin

DataSource1.DataSet:=dataModuleADO.ADOQueryl;

DBGridl.DataSource:=DataSourcel;

sqlstr:=,selectyhmas顾客名，mmas密码,qxas权限fromusera);

withdataModuleADO.ADOQueryldo

begin

close;

sql.Clear;

SQL.Add(sqlstr);

open;

end;

end;

procedureTxgyhForm.N1C1ick(Sender:TObject);

begin

xgyh_Form.Visible:=false;

tjyhForm.show;

end;

procodnrpTxgyhForm.N2C1ick(Sender:TOhjpct);

var

vmsg,vyhm,sqlstr:string;

begin

vyhm:=dataModu1eADO.ADOQueryLFieldByNameC,顾客名').AsString;

ifvyhm=mainForm.dlnamethen

begin

ShowMessage('不能删除目前顾客!');

exit;

end;

vmsg:='确实要删除“'+vyhm+'”顾客？';

ifMessageDlg(vmsg,mtConfirmation,[mbYes,mbNo],0)=mrNothen

exit;

sqlstr:=，deletefromuserawhere(yhm='''+vyhm+''')';

withdataModuleADO.ADOQueryldo

begin

Close;

SQL.Clear;

SQL.Add(sqlstr);

ExecSQL;

end;

xgyhEorm.EormShow(Sender);

end;

procedureTxgyhEorm.N3Click(Sender:TObject);

begin

cln«e;

end;

⑸.添加顾客窗体设计：

窗体H勺名字为：tjyh_fonn,对应的单元文献为tjyh.pas<,在窗体中添加三个

label组件，两个edit组件，一种combobox组件，两个button组件，程序的

界面如下:

/tjyh_For>

程序口勺重要代码如下：

procedureTtjyh_Form.Button2Click(Sender:TObject);

begin

xgyhForm.Visible:=true;

xgyhForm.FormShow(Sender);

close;

end;

procedureTtjyhForm.ButtonlClick(Sender:TObjsct);

var

vmm,vyhm,vqx,sqlstr:string;

begin

iftrim(Editl.Tcxt)=,*then

begin

ShowMessage('顾客名不能为空！')；

exit;

end;

vmm:=Edit2.Text;

vyhm:=Editl.Text;

sqlstr:=，select*fromuserawhere(yhm='''+vyhm+''')';

withdataModuleADO.ADOQueryldo

begin

close;

sql.Clear;

SQL.Add(sqlstr);

open;

end;

ifdataModuleADO.ADDQueryl.RecordCount>0then

begin

ShowYessage('该顾客已经存在，请选择“删除顾客"！’)；

exit;

end;

ifComboBoxl.Text='管理员'then

vqx：=，T

elsp

vqx:=，0';

sqlstr:=，insertintousera(yhm,mm,qx)values(:yhm,:mm,:qx)

withdataModuleADO.ADOQueryldo

begin

Close;

SQL.Clear;

SQL.Add(sqlstr);

Parameters.ParamByName(*yhm,).Value:=vyhm;

Parameters.ParamByName(,mm,).Value:=vmm;

Parameters.ParamByNameCqx').Value:=vqx;

ExecSQL;

end;

tjyh.Form.Button2Click(Sender);

end;

(6).修改密码窗体设计：

窗体的名字：xxgm_form,对应的单元文献为：xxgm.pas<,在窗体中添加

三个edit组件，三个label组件，两个button组件，程序界面如下：⑺

程序的重要代码：

procedureTxgmm_Form.ButtonIC1ick(Sender:TObject);

var

vymm,vxmm,vyhm,sqlstr:string;

begin

vymm:=Edi11.Text;

vxmm:=Edit2.Text;

vyhm:=mainForm.dlname;

sqlstr:=，select*fromuserawhere(yhm='''+vyhm+''')

withdataModuleADO.ADOQueryldo

begin

close;

sql.Clear;

SQL.Add(sqlstr);

open;

ifrecordcount>0then

begin

vymm:=Fie1dByName(,nun').AsString;

ifvymmOEditl.Textthen

begin

ShowMessage(,原密码不对H勺！')；

exit;

end

else

begin

ifEdit2.TextOEdit3.Textthen

begin

ShowMessageC1新密码与确认密码不一致！')；

exit;

end

else

begin

sqlstr:-updateuserasetmm='''+vxmm+'''where

(yhm='''+vyhm+''')'：

Close;

SQL.Clear;

SQL.Add(sqlstr);

ExecSQL;

xgmmForn.Button2Click(Sender);

end;

end;

end;

end;

ShowMessage(，密码更改成功！’);

end;

procedureTxgmmForm.Button2Click(Sender:TDbjcct);

begin

close;

nnd;

⑺.信息查询窗体设计：

窗体的名字为：queryform,对应的单元文献为：infoquery.pas。信息查询包括图

书信息查询、读者信息查询和借阅信息查询3个功能。在窗体中添加一种

tPageConlrol组件，在lPageConlrol组件对象中建立三个页面，尚有一种bullon

组件，并输入如下代码：

procedureTqueryform.Button1Click(Sender:TObject);

begin

close;

end;

i.查询图书基本信息页面：在窗体中添加i种GroupBox组件，一-种button组

件，四个radiobuHon组件，一种checkbox组件，一种edit组件，一种listview

组件，一种statictext组件，一种label组件。

程序界面如下:

程序重要代码如下:

procedureTqueryform.RadioButton1Click(Sender:TObjeci);

begin

edit3.Text

edit3.MaxLength:=4;〃输入最大长度为4；

end;

procedureTqueryfoim.RadioButton2Click(Sender:TObject);

begin

e(lit3.Text

edit3.MaxLength:=0;〃输入长度小限

end;

procedureTqueryfoim.RadioButton3Click(Sender:TObject);

begin

edit3.Text

edit3.MaxLength:=0;

end;

procedureTqueryfonn.RadioButton4Click(Sender:TObject);

begin

edit3.Text

edit3.MaxLength:=0;

end;

procedureTqueryfonn.Edit2KeyDown(Sender:TObject;varKey:Word;

Shift:TShiftState);

begin

ifkey=13then〃按同车键

button4click(sender);

end;

procedureTqueryform.Edit3KeyPress(Sender:TObject;varKey:Char);

begin

iford(kcy)=13thenButton2Click(Scndcr);

end;

procedureTqueryform.Button2Click(Sender:TObject);

var

content:string;

begin

叮

listviewl.ltems.Clear;

withdatamoduleado.ADOQuery1do

begin

content:=edit3.Text;〃将查询内容寄存到变量content中

ifcheckbox1.Checked:hen〃假如选择了模糊查询

content:='%'+conten【+'%’;

sql.Clear;

ifradiobuttonI.Checkedthen〃按书号查询

begin

sqLAdd('selcctcode,namc,author,prcss,outdatc,cost,mcmoOfrombookwhere

codelike:code');

parameters.ParamByNameCcode').Value:=content;

end;

ifradiobullon2.Checkedthen〃按书名查询

begin

sql.Add('selectcode,name,author,press,outdate,cost,memoOfrombookwhere

namelike:name');

parameters.ParamByNameCname').Value:=content;

end;

ifradiobutton3.Chcckcdthen

begin〃按出版社查询

sql.Add(*selectcode,name,au(hor.press,outdate,cost,memoOfrombookwhere

presslike:press');

parameters.ParamByName('press').Value:=content;

end;

ifradiobutton4.Checkedthen〃按作者查询

begin

sql.Add(*selectcode,name,author,press,outdate,cost,memoOfrombookwhere

authorlike:author');

parameters.ParamByNameCauthor').Value:=content;

end;

open；

whilenoteofdo

begin

wilhlislviewl.Items.Adddo〃将查询到的I成果加入到列表lislviewl

begin

caption:=fieldbyname('code').AsString;

subitenis.addCfieldbynameCname^,AsString);

subitems.add(ficldhyname('author').AsString);

subitems.addCfieldbynameCpress^.AsString);

subitcms.add(ficldbynamc('outdatc').AsString);

subitems.addCfloattostrCfieldbynameCcost^.AsFloLit));

subitems.add(fieldbyname('memoO').AsString);

end;

next;

end;

statictext2.Caption:='共'+inttostr(recordcount)+'条记录显示查询到口勺记录

close;

end;

except

messagedig('查询失败',mlerro邙mbok],0);

end;

end;

ii•读者基本信息查询页面：在窗体中添加一种GroupBox组件，一种button组

件，两个radiobutton组件,一种checkbox组件，一种edit组件，一种listview

组件，一种statictext组件，一种label组件。

程序界面如下：

程序重要代码:

procedureTqucryform.Button3Click(Scndcr:TObjcct);

var

content:string;

begin

listview2.Items.Clear;

withdatamoduleadc.ADOQuery1do

begin

content:=editl.Text;〃将查询内容保留到变量content'I'

ifcheckbox2.Checkedthen〃假如选择了模糊查询

content:='%'+content+,%';

sql.Clear;

ifradiobutton5.Checkedthen〃按借书证号查询

begin

sql.Add('selectreaderid,name,sex,idcardnofromreaderwherereaderid

Hke:readerid');

paramctcrs.ParamByNamc('rcadcrid').Value:=contcnt;

end;

ifradiobutton6.Checkedthen〃按姓名查询

begin

sql.AddCselectreaderid,name,sex,idcardnofromreaderwherename

like:name');

parameters.ParamByName('name').Vaiue:=content;

end;

open;

whilenoteofdo

begin

withlistview2.Items.Adddo〃将查询成果加入到列表listview2中

begin

caption:=ficldhynainc('rcadcrid').AsString;

subitems.add(fieldbyname('name').AsString);

iffieldbyname('sex').AsString=Tthen

subitems.add('女')

else

subitems.add('男');

subitems.add(fieldbyname('idcardno').AsString);

end;

next;

end;

statictext4.Caption:='共'+imios【r(recordcount)+'条记录〃显示查询到的记录数

close;

end;

except

messaged】g('查询失败mtenor,[mbok],0);//显示查询失败

end;

end;

procedureTqueryform.Edit2KeyDovvn(Sender:TObject;varKey:Word;

Shift:TShiftState);

begin

ifkey=13then〃按回车键

hutton4click(sendcr);

end

道.借阅基本信息查询页面：在窗体中添加一种GroupBox组件，一种bulton组

件，一种radiobutton组件，一种checkbox组件,一种edit组件，一种listview

组件,一种statictext组件，一种label组件。

程序界面如下:

程序H勺重要代码如下:

procedureTqueryfbrin.BuLton4Click(Sender:TObject);

content:string;

begin

try

listview3.Items.Clear;

withdatamoduleado.ADOQuery1do

begin

conlent:=edit2.Text;

ifcheckbox3.Checkedthen

contcnt:='%'+contcnt+'%';

sql.Clear;

ifradiobulton7.Checked(hen〃按借书证查询

begin

sql.Add('selecllend.readerid,name,sex,idcardno,outdate,codefrom

end,readerwherelend.readeridlike:rcadcridand

reader.readerid=lend.readeridorderbylend.readerid');

parameters.ParamByName('readerid').Value:=content;

end;

open;

whilenotcofdo

begin

withlistview3.Items.Adddo〃符查询成果加入到列表lislview3中

begin

caption:=fieldbyname('readerid').AsString;

subitems.add(fieldbyname('name').AsString);

iffieldbynanie(,sex').AsString='1'then

subitems.add('女')

else

subitems.add('男');

subitems.add(fieldbyname('code').AsString);

subitems.add(fieldbyname(,outdate,).AsString);

subitems.add(floattosti(date-fieldbyname('outdate').AsDateTime));

subitems.addCfieldbynameCidcardno^.AsString);

ifdate-fieldbyname('outdate').AsDateTime>60then

subitems.Add(floattostr((date-fieldbyname('outdate,).AsDateTime-60)*0.1))

else

subitems.add('O');

end;

next;

end;

statictext6.Caption:='共'+inttostr(recordcount)+'条记录';〃显示查询到H勺记录

close;

end;

except

messagedig('查询失败',mteiror,[mbok],0);

end;

end;

(8).图书管理窗体设计：

窗体的I名字为：bookform,对应口勺单元文献为：book,pas0信息查询窗体包新

书入库和图书管理两个功能。在窗体中添加一种tPageControl组件，在t

PagcControl组件对象中建立两个页面,

i.新书入库设计：在窗体中添加七个statictext组件，六个DBedit组件,

一种DBmemo组件，两个button组件。程序界面如下：

程序的I重要代码：

procedureTbookform.TabSheet1Show(Sender:TObjcct);

begin

TabSheet2.Caption:=，图书浏览';

codcedit.SetFocus;

CodeEdit.SelectAll;

NameEdit.Text

AuthorEdit.Text:=''；

OutTimeEdit.Text:=>

CostEdit.Text;

PressEdit.Text:=''；

Memol.Lines.Clear;

end;

procedureTbookform.ButtonlClick(Sender:TObject);

var

vcode,vname,vauthor,vpress,voutdate,vcost,vmemoO,s