uqueryplanchart.pas

港口货物管理系统

unit uqueryplanchart;

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
  Tfmqueryplanchart = class(TForm)
    Query1: TQuery;
    Label2: TLabel;
    DBChart1: TDBChart;
    Table1: TTable;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    RadioGroup1: TRadioGroup;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    BatchMove1: TBatchMove;
    Query2: TQuery;
    Query3: TQuery;
    GroupBox2: 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
  fmqueryplanchart: Tfmqueryplanchart;

implementation

uses ulogin;

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

begin
query2.Filter:='';
query2.Filtered:=false;
query1.Close;
query1.sql.clear;
query1.SQL.add('select ddate ,agoodd ,agname ,sum(nton) from mplan group by ddate,agoodd,agname');
query1.ExecSQL;
table1.EmptyTable;
batchmove1.Execute;


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

if (combobox1.ItemIndex<>12) and (combobox2.ItemIndex<>query3.RecordCount)
then
begin
query2.Close;
query2.SQL.clear;
query2.SQL.add('select ddate,agoodd,agname,nton from mplan2 ');
query2.SQL.add(' where (ddate='''+combobox1.Text+'''');
query2.SQL.add(')');
query2.SQL.add(' and (agoodd='''+combobox2.Text+'''');
query2.SQL.add(')');
query2.Open;
end;

if (combobox1.ItemIndex=12) and (combobox2.Itemindex=query3.RecordCount) then
begin
query2.Close;
query2.SQL.clear;
query2.SQL.add('select agname,sum(nton) as nton from mplan2 group by agname');
query2.Open;
end;





if (combobox1.ItemIndex=12) and (combobox2.Itemindex<>query3.RecordCount) then
begin
query2.Close;
query2.SQL.clear;
query2.SQL.add('select agoodd,agname,sum(nton) as nton from mplan2 group by agoodd,agname');
query2.Open;
query2.Filter:='agoodd='''+combobox2.Text+'''';
query2.Filtered:=true;
end;

if (combobox1.ItemIndex<>12) and (combobox2.Itemindex=query3.RecordCount) then
begin
query2.Close;
query2.SQL.clear;
query2.SQL.add('select ddate,agname,sum(nton) as nton from mplan2 group by ddate,agname');
query2.open;
query2.Filter:='ddate='''+combobox1.Text+'''';
query2.Filtered:=true;
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['agname'],clteecolor);
query2.Next;
end;
end;
dbchart1.Series[0].Title:=combobox2.Text+' '+combobox1.Text+' 图形 ';
dbchart1.Width:=559;
dbchart1.Height:=330;
end;

procedure Tfmqueryplanchart.BitBtn3Click(Sender: TObject);
begin
fmqueryplanchart.close;
end;

procedure Tfmqueryplanchart.FormCreate(Sender: TObject);
var i:integer;
begin
application.OnMessage:=fmlogin.doenterastab;
query3.First;
for i:=1 to query3.RecordCount do
begin
combobox2.Items.Add(query3.FieldValues['agoodd']);
query3.Next;
end;
combobox2.Items.Add('所有货代');
combobox2.ItemIndex:=0;
end;

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

end.