综合实例 图书管理系统
综合实例 图书管理系统
功能鼎求 ●图书信息查询，要提供多种信息查询方式。 ·读者个人借阅记录查询。 ●办理借书、还书手续。 ●读者信息维护。 ●馆藏图书的管理，包括新书入库，图书数据的统计等。 ●当查询读者个人借阅信息时，读者需要输入自己的读 者号及口令、且只能查询自己的信息。 ●面向图书管理员的功能，要核对管理员的编号和密码， 读者不能进入
功能需求 ⚫图书信息查询，要提供多种信息查询方式。 ⚫读者个人借阅记录查询。 ⚫办理借书、还书手续。 ⚫读者信息维护。 ⚫馆藏图书的管理，包括新书入库，图书数据的统计等。 ⚫当查询读者个人借阅信息时，读者需要输入自己的读 者号及口令、且只能查询自己的信息。 ⚫面向图书管理员的功能，要核对管理员的编号和密码， 读者不能进入
数据库表设计 ●管理员表adm(admid管理员编号，admps管理员密码) ●读者信息表reader(rno读者号，rnamei读者姓名，class班级， passwd密码) ●图书信息表books(bno图书编号，bname书名，author作者， price定价，brief简介，cover封皮， num馆藏册数) ●借阅记录borrow(rno读者号，bno图书编号，rdate还书时间)
数据库表设计 ⚫管理员表 adm（admid 管理员编号，admps 管理员密码） ⚫读者信息表reader（rno 读者号，rname读者姓名，class 班级， passwd 密码） ⚫图书信息表books（bno 图书编号，bname书名，author作者， price定价，brief简介，cover封皮， num 馆藏册数 ) ⚫借阅记录borrow (rno读者号, bno图书编号，rdate还书时间）
主界面设计 ☑小型图书管理系统 -回x 办理借还书 图书信良查询 读者信良管理 个人借书查询 新书入库 图书资产统计 几退出 database l
主界面设计 database1
Database1设置 Form1.Database1 Database Object Inspector -Database Database1 Name: TDatabase Alias name: Driver name: mydbl STANDARD Properties Events Parameter overrides AliasName PATH-d:\mydb Defaults Connected True Clear DatabaseN mydb DriverName STANDARD Exclusive False -Options- HandleShar False 厂Login prompt KeepConneTrue Keep inactive connection LoginPromp False Name Database1 Cancel Help Params (TStrings) ReadOnly False SessionNar Default Tag 10 Translsolati tiReadCommitte All shown
Database1设置
主窗体代码 implementation {$R *.dfm} uses unit2,unit3,unit4,unit5,unit6,unit7 ,unit8; procedureTForm1.Button1Click(Sender:TObject): Begin ∥图书信息查询 form2.ShowModal end; procedure TForm1.Button6Click(Sender:TObject): Begin ∥办理借还书 if form8.ShowModal=mrOk then/核查管理员身份 form7.ShowModal end;
主窗体代码 implementation {$R *.dfm} uses unit2,unit3,unit4,unit5,unit6,unit7 ,unit8; procedureTForm1.Button1Click(Sender: TObject); Begin //图书信息查询 form2.ShowModal ; end; procedure TForm1.Button6Click(Sender: TObject); Begin //办理借还书 if form8.ShowModal = mrOk then //核查管理员身份 form7.ShowModal ; end;
管理员身份认证 7管理员身份确认 回x 管理员帐号： SQL属性： 密码： select from adm 确认 撤消 where admid=:admid procedure TForm8.Button1 Click(Sender::TObject);l'确认”按钮 begin query1.Close query1.ParamByName('admid').Value :edit1.Text query1.Open if query1['admps]=null then∥如果帐号查不到，说明帐号错 begin showmessage(管理员帐号错)： exit end
管理员身份认证 SQL属性： select * from adm where admid= :admid procedure TForm8.Button1Click(Sender: TObject); //“确认”按钮 begin query1.Close ; query1.ParamByName('admid').Value := edit1.Text ; query1.Open ; if query1['admps']=null then //如果帐号查不到，说明帐号错 begin showmessage('管理员帐号错'); exit ; end ;
管理员身份认证 if query1['admps]<>edit2.Text then/检查密码 begin showmessage('密码错)； exit end form8.ModalResult:=mrOk;/对话框mrOk返回 end; procedure TForm8.Button2 Click(Sender:TObject);∥"撤销”按钮 begin form8.ModalResult:=mrCancel;;/∥对话框mrCanceli返回 end; procedure TForm8.FormShow(Sender::TObject));l/进入对话框预清 begin edit1.Clear; edit2.Clear; end; end
管理员身份认证 if query1['admps'] <> edit2.Text then //检查密码 begin showmessage('密码错'); exit ; end ; form8.ModalResult := mrOk ; //对话框mrOk返回 end; procedure TForm8.Button2Click(Sender: TObject); //“撤销” 按钮 begin form8.ModalResult := mrCancel; //对话框mrCancel返回 end; procedure TForm8.FormShow(Sender: TObject); //进入对话框预清 begin edit1.Clear; edit2.Clear ; end; end
图书信息查询 7图书查询 ▣x 无条件查询 有条件查询 内容简介 封皮 请选择排序列 本书适合高年级本科生和研究生作为教材 书号 理。邓二部分元数据挖组的算法，系统讨 论了如何构理求解不同尚题的不同琳法。 彩兰都分介绍了如何应用前面封论的算法 书辱 书名 作者 单价馆藏册数二 001数据掘原理 张志或 48 2 002 知识工程和知织苦理 史仁从 38 日致件保传来准得钱与 003面向对象软件开发原理 杨小兰 65 2 004物征驱动开发方法原理与实戏 熊字中 28 4 韩克 49 2 围 几返回
图书信息查询
无条件查询界面 对象名 属性名 属性值 DBGrid1 DataSource DataSource1 Columns 设置各列的标题名 将Cover和Briefi两列的Visibles 属性设置为False DBMemo1 DataSource DataSource1 DataField Brief DBImage1 DataSource DataSource1 DataField Cover ListBox1 Items 书号、书名、作者(3项) MultiSelect False
无条件查询界面 对象名 属性名 属性值 DBGrid1 DataSource DataSource1 Columns 设置各列的标题名 将Cover和Brief两列的Visibles 属性设置为False DBMemo1 DataSource DataSource1 DataField Brief DBImage1 DataSource DataSource1 DataField Cover ListBox1 Items 书号、书名、作者（3项） MultiSelect False