ufmspotgoodsjcchart.pas

来自「港口货物管理系统」· PAS 代码 · 共 104 行

unit ufmspotgoodsjcchart;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ComCtrls, Grids, DBGrids, StdCtrls, ExtCtrls,
  Buttons, ImgList, TeeProcs, TeEngine, Chart, DbChart, Series;

type
  Tfmspotgoodsjcchart = class(TForm)
    Label2: TLabel;
    DBChart1: TDBChart;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query2: TQuery;
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    Bevel1: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    //procedure TreeView1Click(Sender: TObject);
   // procedure BitBtn2Click(Sender: TObject);
   // procedure ComboBox1Click(Sender: TObject);
    //procedure ComboBox2Click(Sender: TObject);
    //procedure FormCreate(Sender: TObject);
    //procedure ComboBox1Change(Sender: TObject);

  private
    { Private declarations }
  public
   { Public declarations }
    fstr:string;
  end;

var
  fmspotgoodsjcchart: Tfmspotgoodsjcchart;

implementation

uses ulogin, uqueryplanchart;

{$R *.dfm}
procedure Tfmspotgoodsjcchart.BitBtn1Click(Sender: TObject);
var myseries:tchartseries;

 begin
if dbchart1.SeriesCount>0 then
dbchart1.Create(nil);

begin
query2.Close;
query2.SQL.clear;
query2.SQL.add('select agoodd,agname,sum(nton) as nton from spotgoods ');
query2.SQL.add(' group by agoodd,agname');
query2.Open;
end;




case radiogroup1.ItemIndex of
0:  myseries:=tlineseries.Create(self);
1:  myseries:=tbarseries.Create(self);
2:  myseries:=tpieseries.Create(self);
end;

dbchart1.AddSeries(myseries);
if query2.RecordCount>0 then
begin
while not query2.Eof do
begin
myseries.Add(query2.FieldValues['nton'],query2.FieldValues['agoodd']+' '+query2.FieldValues['agname'],clteecolor);
query2.Next;
end;
end;
dbchart1.Width:=559;
dbchart1.Height:=330;
end;

procedure Tfmspotgoodsjcchart.BitBtn3Click(Sender: TObject);
begin
fmspotgoodsjcchart.close;
end;

procedure Tfmspotgoodsjcchart.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;

end;




procedure Tfmspotgoodsjcchart.FormActivate(Sender: TObject);
begin
bitbtn1.OnClick(sender);
end;

end.