同樣，在窗體中引入上述三個控件，并在TQuery控件中用SQL語句給出對有關數(shù)據(jù)庫的查詢，在Tdatasource控件中指出數(shù)據(jù)源與TQuery相連，在TDbgrid控件中指出顯示查詢的結果。程序運行后，則顯示出如圖1所示的數(shù)據(jù)庫縱向列表。
　　該種方法一般用于兩個以上的多數(shù)據(jù)庫查詢。
　　在TQuery控件中建立SQL查詢有兩種方法，一種是在程序設計階段使用SQL查詢，即為靜態(tài)查詢，第二種是在程序運行階段使用SQL查詢，即為動態(tài)查詢。
　　1. 靜態(tài)查詢 編寫程序時，在窗體中放置Tquery元件，并設置對象名稱，如Query1。使用Delphi對象檢測器Object，雙擊Query 1對象的SQL屬性，則激活SQL語句輸入框，根據(jù)要求輸入SELECT語句。當程序運行后，則顯示出數(shù)據(jù)庫縱向列表。靜態(tài)查詢比較簡單，但實用性差。對于較復雜的查詢，一般采用動態(tài)查詢。
　　2. 動態(tài)查詢同樣，在編寫程序時，在窗體中放置TQUERY元件，并設置對象名稱，如Query 1。在相關的事件函數(shù)中輸入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;

　　當程序運行后，由某一事件激發(fā)，則顯示出查詢結果縱向列表。


二、交叉統(tǒng)計列表
　　在Delphi環(huán)境下，無論用上述哪種方法制作數(shù)據(jù)庫縱向列表，都是相對容易的。但要生成如圖2所示二維統(tǒng)計報表，則并非易事。
　　下面以筆者開發(fā)的《社會養(yǎng)老保險管理系統(tǒng)－－統(tǒng)計管理》中的一段程序為例，詳細說明圖2所示交叉統(tǒng)計列表的制作。

　?。ㄒ唬┱{用數(shù)據(jù)庫B_BASETJ.DB和B_INFO.DB
　　上述兩數(shù)據(jù)庫的結構分別為：
　　B_BASETJ.DB B_INFO.DB

　　在B_INFO.DB數(shù)據(jù)庫中存放著各人的基本情況，其中ATTRIBUTION字段包含固定工、農民合同工等工作屬性；CADRE_ZW字段包含干部職務，若該字段內容為空，則表示為工人。

　　（二）窗口界面設計及各組件屬性說明
　　用到的重要組件及其屬性如下：
　　QYERYTB1:TQUERY;{指明SQL的存取元件名為QUERYTB1}
　　DataSourceTB1:Tdatasource;{指明與TQUERY相連的數(shù)據(jù)源為DatasourceTB1}
　　Datasourcename=DataSourceTB1
　　Dataset=QYERYTB1
　　SG11:TstringGrid;{字符型二維數(shù)據(jù)表格}
　　BTNEXIT:Tbutton;{取消按鈕}

　?。ㄈ┏绦虼a及其分析
　　程序中主要通過使用TStringGrid和TQUERY控件來生成交叉統(tǒng)計列表。其中TStringGrid控件以二維網(wǎng)格形式顯示字符型數(shù)據(jù)表格，CELL[I,K]為表格中的一個數(shù)據(jù)單元，K為行號，I為列號，K、I的起始值為0；TQUERY控件的作用是利用SQL語句統(tǒng)計出表格中某一列數(shù)據(jù)，如圖2表格中共有6列，則需6次調用TQUERY。

　　本程序還設置了公共程序段procedure COL(var I,k:INTEGER)，這一子程序將被多次調用，用于填寫表格中某一列數(shù)據(jù)。
　　主要程序代碼如下：
　　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循環(huán)填寫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);{在創(chuàng)建窗體T1FORM時生成表格并填寫統(tǒng)計值}
　　VAR
R,I,K,J:INTEGER;
　　begin
　　WITH SGLL DO
　　BEGIN
CELLS[0,0]:=單位{填寫第0行各列標題}
　　CELLS[1,0]:=總人數(shù)；
　　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列各單位固定工人數(shù)}
　　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列各單位合同工人數(shù)}
　　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列各單位干部人數(shù)}

　　I:=5;
　　CC(I,K);{填寫第5列各單位工人人數(shù)}
　END;
　end;

　　......