unitheji.~pas

超级简单的管理系统

unit UnitHeJi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, Menus;

type
  TfrmDataSum = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDataSum: TfrmDataSum;

implementation
uses Unit1;
{$R *.dfm}

procedure TfrmDataSum.FormCreate(Sender: TObject);
begin
adoquery1.Active:=true;
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select sum(xi_car) as 洗车,sum(car_main)as 漆面,sum(room)as 室内,sum(baoyang) as 保养,sum(luntai)as  轮胎,sum(jiazhuang) as 加装,sum(weixiu)as 维修,sum(jingpin)as 精品,sum(sum)as 合计 from main');
adoquery1.Open;
end;

procedure TfrmDataSum.N1Click(Sender: TObject);
begin
frmServer.Show;
self.Hide;
end;

end.