图书馆借阅管理数据库系统的设计

针对图书馆管理系统的需求，设计如下面所示的数据项和数据结构：

表1：书籍基本信住

包括的数据项有：索书号、图书名称、作者、出版社、出版日期、书价、ISBN、备注信息等。

 表2：读者信息基本信息

包括的数据项有：读者编号、学号、姓名、性别、年龄、学院、专业、籍贯、读者类别、最大借阅数、已借阅数、可借阅数、有效日期、读者备注等。

 表3：借书基本信息

包括的数据项有：索书号、借书日、应还日、续借次数、读者编号等。

 表4：还书基本信息

包括的数据项有：索书号、还书日、逾期天数、逾期罚款、续借日、读者编号等。

表4：管理员基本信息：包括的数据项有：管理ID、管理员帐号、管理密码等。

我建议你再根据你设计的图书馆管理的需求，看下还有没有其它字段要添加上去，那样就更好了。

①建立Access数据库

先新建一个数据库（access)：建立Microsoft Access->命名为Text->否->打开->设计（添加学生所需信息）->表保存命名为lm(information)->否

②进行ADO配置

“开始” ->“程序” ->“Borland Delphi 7” ->“File” ->“Open Project” ->“Project1” ->Ctrl+F12选择“Main” ，按F12后出现MainForm窗体:

1)在程序主窗体MainForm上放置一个 “ADOConnection1”在Properties里LoginPrompt的属性设为false；ConnectionString ->Use ConnectionString 点Build” ->“Microsoft Jet 4.0 OLE DB Provider”后点“下一步”，选择创建的Access 2003 数据库的路径->“测试连接”出现成功后点“确定”->ok；Connected属性设为True

2)在主窗体上放一个“ADOTable1”属性Connection->ADOConnection1，属性TableName->lm，属性Active->T(简称阀门）

3) 在主窗体上放DataSource1->DataSet->ADOTable14）在主窗体上放一个-DBGrid1-->DataSource->DataSource1

①splashForm在工程文件(.dpr)中核心代码

SplashForm := TSplashForm.Create(Application) //启动屏创建

Application.CreateForm(TMainForm, MainForm) //创建主窗体

Application.CreateForm(TLoginForm, LoginForm) //创建用户验证窗体

SplashForm.Close //关闭启动屏窗体

SplashForm.Free //释放启动屏窗体所占的内存

②loginForm核心代码

LoginForm.ModalResult := mrOK//确定按钮,可以进入主界面

LoginForm.ModalResult := mrCancel //取消按钮

③mainForm 核心代码

1） 在Onshow中的核心代码：

LoginForm.ShowModal

if LoginForm.ModalResult = mrCancel then

Application.Terminate//（登陆界面进入主界面的过程中只要用户名密码都对时，登陆界面自动消失）

2） 在录入按钮的核心代码：

ADOQuery1.SQL.Clear

ADOQuery1.SQL.Add('Insert Into lm(num, name, sex,

shijian,class,zhuzhi,link,gs,yy,jsj)')

ADOQuery1.SQL.Add('Values (:snum,:sname,:ssex,:sshijian,

:sclass,:szhuzhi,:slink,:sgs,:syy,:sjsj)')

ADOQuery1.Parameters.ParamByName('sNum').Value := Edit1.Text

（输入学生的基本信息跟各科成绩后，点“录入”，便可在DBGrid1中添加所输入的信息）。

3） 在修改按钮的核心代码：

ADOQuery1.SQL.Clear

ADOQuery1.SQL.Add(‘Update lm')

ADOQuery1.SQL.Add(‘set num=:snum, name=:sname sex=:ssex,shijian=:sshijian,class=:sclass,zhuzhi=:szhuzhi,link=:slink,gs=：sgsyy=:syy,jsj=:sjsj')

ADOQuery1.SQL.Add(‘ Where Num = :sNum2')

ADOQuery1.Parameters.ParamByName(‘snum').Value := Edit11.Text

(在“输入要修改的学号”处输入某学号，再重新输入该基本信息与各科成绩，点击即可)。

4） 在删除按钮的核心代码：

ADOQuery1.SQL.Clear

ADOQuery1.SQL.Add(‘Delete From lm Where num = :snum')

ADOQuery1.Parameters.ParamByName(‘snum').Value := Edit1.Text

ADOQuery1.ExecSQL

showmessage(‘ok')//d出对话框，提示 *** 作成功

（输入学号，即可删除该学号的全部信息）。

5） 在查询按钮的核心代码：

ADOQuery2.Close

ADOQuery2.SQL.Clear

ADOQuery2.SQL.Add(‘Select * From lm Where num = :snum')

ADOQuery2.Parameters.ParamByName(‘snum').Value :=Edit1.Text

ADOQuery2.Open

(通过输入学号，点击“查询”按钮后即可查询该学号对应的信息)。

6） 刷新核心代码：

ADOTable1.Close

ADOTable1.Open//对录入，修改，删除，查询的 *** 作数据进行刷新。

---