【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“Frm_Sum.pas”一文，供大家参考学习

    unit Frm_Sum;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, XPMan;
    
    type
      TFrmSum = class(TForm)
        GBxList: TGroupBox;
        DBGList: TDBGrid;
        ADOConnection1: TADOConnection;
        ATList: TADOTable;
        AQSum: TADOQuery;
        DSList: TDataSource;
        GBxSum: TGroupBox;
        DBGSum: TDBGrid;
        DSsum: TDataSource;
        BtnSumCount: TButton;
        BtnSumPri: TButton;
        BtnClose: TButton;
        procedure BtnSumCountClick(Sender: TObject);
        procedure BtnSumPriClick(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmSum: TFrmSum;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmSum.BtnSumCountClick(Sender: TObject);
    begin
      With AQSum do
      begin
        Close;
        Sql.Clear;
        Sql.Add('Select ''图书总数量'' as 统计项目,Sum(SaveCount) As 数据 from TB_Goods');
        Open;
      end;
    end;
    
    procedure TFrmSum.BtnSumPriClick(Sender: TObject);
    begin
      With AQSum do
      begin
        Close;
        Sql.Clear;
        Sql.Add('Select ''图书总价格'' as 统计项目,Sum(Price * SaveCount) As 数据 from TB_Goods');
        Open;
      end;
    end;
    
    procedure TFrmSum.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TFrmSum.FormCreate(Sender: TObject);
    begin
      ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=DelphiClassical200';
      ADOConnection1.Open;
      ATList.Open;
    end;
    
    end.