Delphi数据库开发及统计表格设计

　　同样，在窗体中引入上述三个控件，并在TQuery控件中用SQL语句给出对有关数据库的查询，在Tdatasource控件中指出数据源与TQuery相连，在TDbgrid控件中指出显示查询的结果。程序运行后，则显示出如图1所示的数据库纵向列表。
　　该种方法一般用于两个以上的多数据库查询。
　　在TQuery控件中建立SQL查询有两种方法，一种是在程序设计阶段使用SQL查询，即为静态查询，第二种是在程序运行阶段使用SQL查询，即为动态查询。
　　1. 静态查询 编写程序时，在窗体中放置Tquery元件，并设置对象名称，如Query1。使用Delphi对象检测器Object，双击Query 1对象的SQL属性，则激活SQL语句输入框，根据要求输入SELECT语句。当程序运行后，则显示出数据库纵向列表。静态查询比较简单，但实用性差。对于较复杂的查询，一般采用动态查询。
　　2. 动态查询同样，在编写程序时，在窗体中放置TQUERY元件，并设置对象名称，如Query 1。在相关的事件函数中输入SQL语句，例如：

　　WITH QUERY 1 DO
　　BEGIN
　　SQL.CLEAR;
　　SQL.ADD(SELECTDW,COUNT(DW)FROM B_BASETJ F,B_INFO E);
　　SQL.ADD(WHERE F.”SHBZCODE”=E.”SHBZCODE”GROUP BY DW);
　　OPEN;
　　END;

　　当程序运行后，由某一事件激发，则显示出查询结果纵向列表。


二、交叉统计列表
　　在Delphi环境下，无论用上述哪种方法制作数据库纵向列表，都是相对容易的。但要生成如图2所示二维统计报表，则并非易事。
　　下面以笔者开发的《社会养老保险管理系统－－统计管理》中的一段程序为例，详细说明图2所示交叉统计列表的制作。

　　（一）调用数据库B_BASETJ.DB和B_INFO.DB
　　上述两数据库的结构分别为：
　　B_BASETJ.DB B_INFO.DB

　　在B_INFO.DB数据库中存放着各人的基本情况，其中ATTRIBUTION字段包含固定工、农民合同工等工作属性；CADRE_ZW字段包含干部职务，若该字段内容为空，则表示为工人。

　　（二）窗口界面设计及各组件属性说明
　　用到的重要组件及其属性如下：
　　QYERYTB1:TQUERY;{指明SQL的存取元件名为QUERYTB1}
　　DataSourceTB1:Tdatasource;{指明与TQUERY相连的数据源为DatasourceTB1}
　　Datasourcename=DataSourceTB1
　　Dataset=QYERYTB1
　　SG11:TstringGrid;{字符型二维数据表格}
　　BTNEXIT:Tbutton;{取消按钮}

　　（三）程序代码及其分析
　　程序中主要通过使用TStringGrid和TQUERY控件来生成交叉统计列表。其中TStringGrid控件以二维网格形式显示字符型数据表格，CELL[I,K]为表格中的一个数据单元，K为行号，I为列号，K、I的起始值为0；TQUERY控件的作用是利用SQL语句统计出表格中某一列数据，如图2表格中共有6列，则需6次调用TQUERY。

　　本程序还设置了公共程序段procedure COL(var I,k:INTEGER)，这一子程序将被多次调用，用于填写表格中某一列数据。
　　主要程序代码如下：
　　unit T1;
　　interface
　　uses

SysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs,
StdCtrls,ExtCtrls,Grids,DB,DBTables, DBGrids,Report;

　　type
　　TT1FORM=class(TForm)
　　BTNEXIT:TButton;
　　SG11:TStringGrid;
　　Labell:TLabel;
　　QueryTB1:TQuery;
　　DataSourceTB1:TDataSource;
　　procedure FormCreate(Sender:TObject);
　　procedure BTNEXIT Click(Sender:TObject);
　　private
　　PROCEDURE COL(VAR I,K:INTEGER);
　 PROCEDURE CC(VAR I,K:INTEGER);
　　{Private declarations}
　 public
　　{Public declarations}
　　end;

　　var
　　T1FORM:TT1FORM;

　　implementation
　　{$R*.DFM}

　　PROCEDURE tt1form.COL(VAR I,K:INTEGER);{用FOR...DO循环填写SG11表格中第I列的VAR J:INTEGER;值}
　　BEGIN
　　WITH SG11 DO
　　BEGIN
　　QUERYTB1.FIRST;
　　FOR J:=2 TO K-1 DO
　　BEGIN
　　IF CELLS[0,J]=QUERYTB1.FIELDS[0].ASSTRING THEN{第0列填写单位代码}
BEGIN
　　CELLS[I,J]:=QUERYTB1.FIELDS[1].ASSTRING;{填写第I列中某一行的值}
　　QUERYTB1.NEXT;
　　CELLS[I,1]:=INTTOSTR(STRTOINT(CELLS[I,1])+STRTOINT(CELLS[I,J]));
　　END
　 ELSE
CELLS[I,J]:=INTTOSTR(0);
　　END;{FOR}
　 END;{WITH}
　　END;

　　PROCEDURE Tt1form.CC(VAR I,K:INTEGER);
　　VAR
J:INTEGER;
　　BEGIN
　　WITH SG11 DO
　　BEGIN
　　FOR J:=1 TO K-1 DO
　　CELLS[I,J]:=INTTOSTR(STRTOINT(CELLS[1,J]-STRTOINT(CELLS[I-1,J])));
　 END;{WITH}
　　END;

　　procedure TT1FORM.FormCreate(Sender:TObject);{在创建窗体T1FORM时生成表格并填写统计值}
　　VAR
R,I,K,J:INTEGER;
　　begin
　　WITH SGLL DO
　　BEGIN
CELLS[0,0]:=单位{填写第0行各列标题}
　　CELLS[1,0]:=总人数；
　　CELLS[2,0]:=固定；
　　CELLS[3,0]:=合同；
　　CELLS[4,0]:=干部；
　　CELLS[5,0]:=工人；
　　FOR I:=1 TO 5 DO
　　BEGIN
　　CELLS[I,1]:=INTTOSTR(0);
　　END;
　　END;

　　WITH QUERYTB1 DO
　 BEGIN
　　SQL.CLEAR;
　　SQL.ADD(SELECT DW,COUNT(DW)FROM B_BASETJ F,B_INFO E);
　　SQL.ADD(WHERE F.”SHBZCODE”=E.”SHBZCODE”GROUP BY DW);
　　OPEN;
　　R:=RECORDCOUNT+2;
　　SG11.ROWCOUNT:=R;
　　SG11.CELLS[0,1]:=合计;
　　FIRST;
　 K:=R;
　 FOR J:=2 TO K DO
　 BEGIN
SG11.CELLS[0,J]:=FIELDS[0].ASSTRING;{填写第0列单位号}
　　NEXT;
　　END;

　　I:=1;
　　COL(I,K);{填写第1列合计}
　　SQL.CLEAR;
　　SQL.ADD(SELECT DW,COUNT(E.”DW”));
　 SQL.ADD(FROM “B_BASETJ.DB”E,B_INFO F WHERE E.”SHBZCODE”=F.”SHBZCODE” AND F

.”ATTRIBUTION”=”固定职工”GROUP BY DW);

　　I:=2;
　　OPEN;
　　COL(I,K);{填写第2列各单位固定工人数}
　　SQL.CLEAR;
　　SQL.ADD(SELECT DW,COUNT(E.”DW”));
　　SQL.ADD(FROM “B_BASETJ.DB”E,B_INFO F WHERE E.”SHBZCODE”=F.”SHBZCODE” AND F.”

ATTRIBUTION”=”农民合同工”GROUP BY DW);

　　 I:=3;
　　CC(I,K);{填写第3列各单位合同工人数}
　　SQL.CLEAR;
　　SQL.ADD(SELECT DW,COUNT(E.”DW”));
　　SQL.ADD(FROM “B_BASETJ.DB”E,B_INFO F WHERE E.”SHBZCODE”=F.”SHBZCODE”AND F.”

CADRE_ZW”$#@60;$#@62;””GROUP BY DW);

　　I:=4;
　　OPEN;
　　COL(I,K);{填写第4列各单位干部人数}

　　I:=5;
　　CC(I,K);{填写第5列各单位工人人数}
　END;
　end;

　　......

end.