Delphi是Borland公司開(kāi)發(fā)的基于PASCAL語(yǔ)言的Windows平臺應用
程序開(kāi)發(fā)工具，它將可視化編程(Visual Programming)與面向對象(Object-Oriented)的卓越優(yōu)點(diǎn)結合在PASCAL語(yǔ)言開(kāi)發(fā)平臺上，而且同時(shí)可以支持Client/Server模式的SQL數據庫訪(fǎng)問(wèn)與ODBC（開(kāi)發(fā)數據庫互連），是一個(gè)真正面向對象的開(kāi)發(fā)工具。
Delphi最吸引人的特點(diǎn)是它的強大的數據庫訪(fǎng)問(wèn)能力，它主要通過(guò)使用數據庫引擎(Borland Database Engine，簡(jiǎn)稱(chēng)BDE)來(lái)訪(fǎng)問(wèn)本地數據庫和遠程數據庫。但對于用戶(hù)而言，不必直接編程訪(fǎng)問(wèn)BDE，而只需通過(guò)采用窗體(FORM)和大量方便且實(shí)用的數據庫訪(fǎng)問(wèn)元件(Component)來(lái)實(shí)現，通過(guò)ReportSmith報表生成器可以生成多種隨心所欲的報表。
但是，用ReportSmith制作的各類(lèi)報表，只便于輸出至
打印機上打印出來(lái)，若想把報表在屏幕上顯示，則還需調用ReportView。而ReportView窗口界面對不太懂Delphi和Windows操作的普通用戶(hù)來(lái)說(shuō)，不直觀(guān)，也不易操作。如何制作并在屏幕上顯示出直觀(guān)的二維統計報表，這是本文所要闡述的主要問(wèn)題。
以表格形式顯示數據庫內容一般地采用下面兩種方式：
●縱向列表（如圖1）
●交叉統計列表（如圖2）
一、縱向列表
Delphi可以用TDBGRID控件，以表格形式非常方便地顯示單一或多數據庫縱向列表。一般采用兩種方法實(shí)現：
（一）采用TTable與Tdatasource、TDbgrid控件
在窗體中引入上述三個(gè)控件，并在Ttable中控件指出要訪(fǎng)問(wèn)的數據庫存放路徑及數據庫名，在Tdatasource控件中指出數據源與Ttable相連，在TDbgrid控件中指出顯示Tdatasource數據源內容，程序運行后，則顯示出如圖1所示的數據庫縱向列表。
該種方法一般用來(lái)顯示單數據庫表格或一對多兩個(gè)數據庫表格。
（二）采用TQuery與Tdatasource、TDbgrid控件
同樣，在窗體中引入上述三個(gè)控件，并在TQuery控件中用SQL語(yǔ)句給出對有關(guān)數據庫的查詢(xún)，在Tdatasource控件中指出數據源與TQuery相連，在TDbgrid控件中指出顯示查詢(xún)的結果。程序運行后，則顯示出如圖1所示的數據庫縱向列表。
該種方法一般用于兩個(gè)以上的多數據庫查詢(xún)。
在TQuery控件中建立SQL查詢(xún)有兩種方法，一種是在程序
設計階段使用SQL查詢(xún)，即為靜態(tài)查詢(xún)，第二種是在程序運行階段使用SQL查詢(xún)，即為動(dòng)態(tài)查詢(xún)。
1. 靜態(tài)查詢(xún) 編寫(xiě)程序時(shí)，在窗體中放置Tquery元件，并設置對象名稱(chēng)，如Query1。使用Delphi對象檢測器Object，雙擊Query 1對象的SQL屬性，則激活SQL語(yǔ)句輸入框，根據要求輸入SELECT語(yǔ)句。當程序運行后，則顯示出數據庫縱向列表。靜態(tài)查詢(xún)比較簡(jiǎn)單，但實(shí)用性差。對于較復雜的查詢(xún)，一般采用動(dòng)態(tài)查詢(xún)。
2. 動(dòng)態(tài)查詢(xún)同樣，在編寫(xiě)程序時(shí)，在窗體中放置TQUERY元件，并設置對象名稱(chēng)，如Query 1。在相關(guān)的事件函數中輸入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;
當程序運行后，由某一事件激發(fā)，則顯示出查詢(xún)結果縱向列表。
二、交叉統計列表
在Delphi環(huán)境下，無(wú)論用上述哪種方法制作數據庫縱向列表，都是相對容易的。但要生成如圖2所示二維統計報表，則并非易事。
下面以筆者開(kāi)發(fā)的《社會(huì )養老保險管理系統－－統計管理》中的一段程序為例，詳細說(shuō)明圖2所示交叉統計列表的制作。
（一）調用數據庫B_BASETJ.DB和B_INFO.DB
上述兩數據庫的結構分別為：
B_BASETJ.DB B_INFO.DB
字段名 字段類(lèi)型 字段長(cháng)度 字段名 字段類(lèi)型 字段長(cháng)度
dw a 4（單位代碼） shbzcode a 21（社會(huì )保障號碼）
shbzcode a 21（社會(huì )保障號碼） attribution a 10（工作屬性）
cadre_zw a 4（干部職務(wù)） sex a 2（性別）
在B_INFO.DB數據庫中存放著(zhù)各人的基本情況，其中ATTRIBUTION字段包含固定工、農民合同工等工作屬性；CADRE_ZW字段包含干部職務(wù)，若該字段內容為空，則表示為工人。
（二）窗口界面設計及各組件屬性說(shuō)明
用到的重要組件及其屬性如下：
QYERYTB1:TQUERY;{指明SQL的存取元件名為QUERYTB1}
DataSourceTB1:Tdatasource;{指明與TQUERY相連的數據源為DatasourceTB1}
Datasourcename=DataSourceTB1
Dataset=QYERYTB1
SG11:TstringGrid;{字符型二維數據表格}
BTNEXIT:Tbutton;{取消按鈕}
（三）程序代碼及其分析
程序中主要通過(guò)使用TStringGrid和TQUERY控件來(lái)生成交叉統計列表。其中TStringGrid控件以二維網(wǎng)格形式顯示字符型數據表格，CELL[I,K]為表格中的一個(gè)數據單元，K為行號，I為列號，K、I的起始值為0；TQUERY控件的作用是利用SQL語(yǔ)句統計出表格中某一列數據，如圖2表格中共有6列，則需6次調用TQUERY。
本程序還設置了公共程序段procedure COL(var I,k:INTEGER)，這一子程序將被多次調用，用于填寫(xiě)表格中某一列數據。
主要程序代碼如下：
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ě)統計值}
VAR
R,I,K,J:INTEGER;
begin
WITH SGLL DO
BEGIN
CELLS[0,0]:=單位{填寫(xiě)第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;{填寫(xiě)第0列單位號}
NEXT;
END;
I:=1;
COL(I,K);{填寫(xiě)第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);{填寫(xiě)第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);{填寫(xiě)第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);{填寫(xiě)第4列各單位干部人數}
I:=5;
CC(I,K);{填寫(xiě)第5列各單位工人人數}
END;
end;
......
