数据库课程设计 图书馆管理系统

①建立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//对录入，修改，删除，查询的 *** 作数据进行刷新。

这个简单拉～～！首先你要确定有多少项数据（名称）～～再根据数据分类建几个表～（如书名表，图书库存表，图书借出表，图书归还表等等）～当然借出／归还表要有时间日期等数据～～便于做明细统计～～！建好表～确定好了表与表之间的关系后就可以开始着手建立图书管理系统的窗口～～～　简单的话～就一个表先建一个窗口～再建一个类似目录的窗口（用几个控键把几个表相互连接起来！）　最简单的做发～～！！嘻嘻～嘻嘻！我读大学时要做的比你的复杂多了～～！！

---