用delphi7写简单的图书管理系统

[设计目标]

编写一个图书管理系统，要求具有以下内容：

1） 存储图书信息、采购和淘汰情况、租借情况

2） 实现图书采购、淘汰、租借功能。

3） 实现图书信息、采购和淘汰、库存和租借情况查询

4） 实现图书的采购、库存、淘汰、租借情况等统计

[所用组件及设置]

1）配置数据库应用程序所需的组件：

ADOconnection:建立连接到mysql数据库。

ADOQuery:因为需要动态查询，输入查询语句，所以不选用ADOTable。

DataSource

DBGrid:用来显示查询结果。

2）界面设置

Edit1:显示提示信息。

ComboBox1、ComboBox2、ComboBox3:下拉菜单，选择要进行的操作。

DateTimePicker1:获取当天的时间信息，用于设置借阅日期及应还日期。

Button1:点击进行查询/修改操作。

通过每个控件中的Font属性进行字体大小及颜色的设置。

3）功能设置过程。

• ComboBox控件设置：

  通过ComboBox.Visible()函数可以设置该组件是否可见。

  通过ComboBox.Items.Add()函数可以设置下拉菜单的内容。

  通过ComboBox.ItemIndex()函数可以判断选中的是哪一项菜单，从而判断选中的哪项功能。

  ​ 实验中使用该控件的重点在于设置好了各种菜单选项后，在调试时，选择了相应的功能，但是所需要的变化并没有被触发（比如在ComboBox1中选择了“图书信息查询功能”，但此时ComboBox2并没有跳出来要求选择具体的查询功能）。

  ​ 经过查询得知，关键在于每个控件的“Events”，其中有“OnChange”和”OnClick”,当ComboBox控件被改变/点击时触发事件。

  设计结果：ComboBox1：图书信息查询/图书信息修改，选择后显示ComboBox2：(查询图书基本/采购/淘汰/库存/借阅信息)

• Edit控件设置：

  通过Edit.Visible()函数可以设置该组件是否可见。

  通过Edit5.Text()函数可以获取控件中的信息内容。

  ​ 实验中一开始为了满足不同查询功能输入不同提示信息的要求（比如有的提示信息为“书名”，有的提示信息为“学号”）设置了过多的Edit控件，但是经查询后发现在一次查询之后可以清空原来的信息，需要使用Edit.clear()函数。

• DateTimePicker控件设置：

  通过DateTimePicker1.DateTime:=date();函数来获取当前日期。

  ​ 重点在获取的时间的格式，在表中设置的是datetime格式的日期，只需要年月日，所以在从控件获取时间时只需要日期而不需要具体的小时和分钟，如果格式错误之后将无法插入。

• Button控件设置：

  通过Button1Click()函数中的设置，使得当该按钮被点击时，函数定义的内容会被执行。

  此控件中的设置为本实验的重点，将进行较为详细的阐述。

  • adoquery1.Close; adoquery1.SQL.Clear;对上一次查询的结果进行清理。

  • if ComboBox1.itemindex=0 then ()判断选择的是查询功能还是更新功能。

  if ComboBox2.itemindex=0 then()、if ComboBox3.itemindex=0 then判断选择的具体功能。

  其中所用重点函数内容如下：

  adoquery1.SQL.Add()函数可以添加sql语言，把查询需要的语句变为字符串输入进去。

  例如：adoquery1.SQL.Add(‘select * from SumInfoPBxxx where SumInfoPBxxx.书名=’+’ ”’ + Edit2.Text +”’ ‘)

  难点在于要从Edit控件中获得其内容并作为sql语言的一部分，要用三个引号”’ + Edit2.Text +”’

​ 也可以用参数形式：

​ adoquery1.SQL.Add(‘insert into BuyInfoPBxxx values(:书名,:书号,:定价,:采购数量)’);

​ 其中书名、书号等为数据库中属性名，前面加上冒号。

​ ADOQuery1.Parameters.ParamByName(‘书名’).value:=Edit5.Text;

​ 可以通过上述函数对参数进行赋值。

​ 编写图书信息修改部分代码时，当一张表被改变时对应着也有其它表需要修改，所以又插入了几个

​ ADOQuery控件。

​ 最后当一次查询执行完毕时，把相关控件的参数情况，可视化置为false，以便下一次查询。