Question

delphi7中 4个button对应4个栏。点每个按钮时都能在下栏中得到查询。源代码怎么写？

Answer 1

包装查询：双击包装查询的button按钮，在代码窗口里产生procedure，在里面添加代码，代码内容：if（包装查询条件）查询到数据库符合你的查询条件的对象
then 将这些对象显示在你对应的显示页里

同理其他三个查询也是那么做。
具体的代码怎么写要看具体的项目内容了

Answer 2

最简单的就是直接在按钮上双击 得到4个事件
然后分别在每个事件中编写相应代码
如：
begin
PageControl.activeindex:=0;
//此处插入相应查询代码SQL
end;

Answer 3

包装：
pagecontrol.activeindex:=0;
sql查询

机台：
pagecontrol.activeindex:=1;
sql查询