同樣，在窗體中引入上述三個(gè)控件，并在TQuery控件中用SQL語(yǔ)句給出對(duì)有關(guān)數(shù)據(jù)庫(kù)的查詢(xún)，在Tdatasource控件中指出數(shù)據(jù)源與TQuery相連，在TDbgrid控件中指出顯示查詢(xún)的結(jié)果。程序運(yùn)行后，則顯示出如圖1所示的數(shù)據(jù)庫(kù)縱向列表。
　　該種方法一般用于兩個(gè)以上的多數(shù)據(jù)庫(kù)查詢(xún)。
　　在TQuery控件中建立SQL查詢(xún)有兩種方法，一種是在程序設(shè)計(jì)階段使用SQL查詢(xún)，即為靜態(tài)查詢(xún)，第二種是在程序運(yùn)行階段使用SQL查詢(xún)，即為動(dòng)態(tài)查詢(xún)。
　　1. 靜態(tài)查詢(xún) 編寫(xiě)程序時(shí)，在窗體中放置Tquery元件，并設(shè)置對(duì)象名稱(chēng)，如Query1。使用Delphi對(duì)象檢測(cè)器Object，雙擊Query 1對(duì)象的SQL屬性，則激活SQL語(yǔ)句輸入框，根據(jù)要求輸入SELECT語(yǔ)句。當(dāng)程序運(yùn)行后，則顯示出數(shù)據(jù)庫(kù)縱向列表。靜態(tài)查詢(xún)比較簡(jiǎn)單，但實(shí)用性差。對(duì)于較復(fù)雜的查詢(xún)，一般采用動(dòng)態(tài)查詢(xún)。
　　2. 動(dòng)態(tài)查詢(xún)同樣，在編寫(xiě)程序時(shí)，在窗體中放置TQUERY元件，并設(shè)置對(duì)象名稱(chēng)，如Query 1。在相關(guān)的事件函數(shù)中輸入SQL語(yǔ)句，例如：

　　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;

　　當(dāng)程序運(yùn)行后，由某一事件激發(fā)，則顯示出查詢(xún)結(jié)果縱向列表。


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

　?。ㄒ唬┱{(diào)用數(shù)據(jù)庫(kù)B_BASETJ.DB和B_INFO.DB
　　上述兩數(shù)據(jù)庫(kù)的結(jié)構(gòu)分別為：
　　B_BASETJ.DB B_INFO.DB

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

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

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

　　本程序還設(shè)置了公共程序段procedure COL(var I,k:INTEGER)，這一子程序?qū)⒈欢啻握{(diào)用，用于填寫(xiě)表格中某一列數(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)填寫(xiě)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列填寫(xiě)單位代碼}
BEGIN
　　CELLS[I,J]:=QUERYTB1.FIELDS[1].ASSTRING;{填寫(xiě)第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時(shí)生成表格并填寫(xiě)統(tǒng)計(jì)值}
　　VAR
R,I,K,J:INTEGER;
　　begin
　　WITH SGLL DO
　　BEGIN
CELLS[0,0]:=單位{填寫(xiě)第0行各列標(biāo)題}
　　CELLS[1,0]:=總?cè)藬?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]:=合計(jì);
　　FIRST;
　 K:=R;
　 FOR J:=2 TO K DO
　 BEGIN
SG11.CELLS[0,J]:=FIELDS[0].ASSTRING;{填寫(xiě)第0列單位號(hào)}
　　NEXT;
　　END;

　　I:=1;
　　COL(I,K);{填寫(xiě)第1列合計(jì)}
　　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);{填寫(xiě)第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”=”農(nóng)民合同工”GROUP BY DW);

　　 I:=3;
　　CC(I,K);{填寫(xiě)第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);{填寫(xiě)第4列各單位干部人數(shù)}

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

　　......