【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了Frm_AVG.pas相关资料，希望对各位网友有所帮助!

    unit Frm_AVG;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ADODB, Grids, DBGrids, DB, ExtCtrls, XPMan;
    
    type
      TFrmAve = class(TForm)
        GBxAve: TGroupBox;
        GBxList: TGroupBox;
        ADOConn: TADOConnection;
        ATList: TADOTable;
        DSList: TDataSource;
        DBGList: TDBGrid;
        AQAve: TADOQuery;
        DBGrid1: TDBGrid;
        DSAve: TDataSource;
        BtnAve: TButton;
        BtnAvgMan: TButton;
        BtnClose: TButton;
        procedure BtnAveClick(Sender: TObject);
        procedure BtnAvgManClick(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmAve: TFrmAve;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmAve.BtnAveClick(Sender: TObject);
    begin
      With AQAve do
      begin
        Close;
        Sql.Clear;
        sql.Add('Select ''平均每次入库数量'' as 汇总项,Avg(incount) as 数量 from TB_Instore');
        open;
      end;
    end;
    
    procedure TFrmAve.BtnAvgManClick(Sender: TObject);
    begin
      With AQAve do
      begin
        Close;
        Sql.Clear;
        sql.Add('Select handman as 经手人,Avg(incount) as 平均数量,Count(Handman) as 入库次数,sum(incount) 总数 from TB_Instore group by handman');
        open;
      end;
    end;
    
    procedure TFrmAve.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TFrmAve.FormCreate(Sender: TObject);
    begin
      ADOConn.ConnectionString:='Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=DelphiClassical200';
      Adoconn.Open;
      ATlist.Open;
    end;
    
    end.