statunit.pas

有学习Delphi的套打的朋友

unit StatUnit;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Grids, DBGridEh, ExtCtrls, DB, ADODB, StdCtrls, ComCtrls,
    LbSpeedButton, Mask, DBGrids, GridsEh;

type
    TStatForm = class(TForm)
        ADOQuery1: TADOQuery;
        DataSource1: TDataSource;
        TabSheet1: TTabSheet;
        LbSpeedButton1: TLbSpeedButton;
        PageControl1: TPageControl;
        DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure LbSpeedButton1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    StatForm: TStatForm;
    sumJZMJ,sumTNMJ,sumFTMJ,sumZJ:Double;
    
implementation
uses dm;
{$R *.dfm}

procedure TStatForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    ACTION := caFree;
    StatForm := nil;
end;

procedure TStatForm.LbSpeedButton1Click(Sender: TObject);
var
    ssql: string;
    i:integer;
begin
    sumJZMJ:=0; sumTNMJ:=0;sumFTMJ:=0;sumZJ:=0;
    with adoquery1 do begin
        Close;
        sql.Text := 'select t0.合同编号 AS 合同号,  t0.买受人 AS 买受人,t1.项目建设依据商品房名称 as 项目名称,' +
            't3.商品房基本情况幢座 as 幢座 ,' +
            't3.商品房基本情况房号 AS 房号,t3.商品房基本情况建筑面积 as 建筑面积,' +
            't3.商品房基本情况套内面积 as 套内面积,t3.商品房基本情况分摊面积 as 分摊面积,' +
            'T4.计价方式,t4.总价 as 销售总价,t4.计价方式种类 ' +
            'FROM T0,T1,T3,t4 WHERE T0.合同编号=T1.合同编号 AND ' +
            'T0.合同编号=T3.合同编号 AND T0.合同编号=T4.合同编号 AND T0.合同编号<>''MD2005''' ;
        //ShowMessage(SQL.Text);
        OPEN;
        for i := 0 to RecordCount -1 do begin
            sumJZMJ:=sumJZMJ+ StrToFloatDef(ADOQuery1.FieldByName('建筑面积').AsString, 0) ;
            sumTNMJ:=sumTNMJ+ StrToFloatDef(ADOQuery1.FieldByName('套内面积').AsString, 0) ;
            sumFTMJ:=sumFTMJ+ StrToFloatDef(ADOQuery1.FieldByName('分摊面积').AsString, 0) ;
            sumZJ:=sumzj+ StrToFloatDef(ADOQuery1.FieldByName('销售总价').AsString, 0) ;

            Next;
        end ;
        StaticText5.Caption:=FloatToStr(sumjzmj)+'平方米';
        StaticText6.Caption:=FloatToStr(sumTNMJ)+'平方米';
        StaticText7.Caption:=FloatToStr(sumftmj)+'平方米';
        StaticText9.Caption:=FloatToStr(sumzj)+'元';
         StaticText10.Caption:='共找到：'+FloatToStr(RecordCount )+'个记录！';
    end;

end;

end.