[设计目标]
编写一个图书管理系统,要求具有以下内容:
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,以便下一次查询。