u_ddtjfx.pas

相关的销售服务管理行业的一个软件

unit U_DDTJFX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Buttons, TeEngine, Series, DBChart, NMTime,
  Psock, NMFngr, Grids, Calendar, TeeProcs, Chart, DBGrids, Db, ADODB;

type
  TF_DDTJFX = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    DBChart: TDBChart;
    Series1: TFastLineSeries;
    DataSourceDDTJ: TDataSource;
    panel: TPanel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_DDTJFX: TF_DDTJFX;

implementation
uses  U_DM,Uorder,umain,U_DDCX;
{$R *.DFM}

procedure TF_DDTJFX.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TF_DDTJFX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.ADOQueryddtj1.Active:=false;
  DM.ADOTableddtj.Active:=false;
  Frmmain.Outlook1.Visible :=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.Label1.Caption:='';
  F_DDTJFX:=nil;
  Action:=caFree;
end;

procedure TF_DDTJFX.BitBtn2Click(Sender: TObject);
begin
  try
   DM.adoqueryddcx1.Close;
   DM.adoqueryddcx1.SQL.Clear;
   DM.adoqueryddcx1.SQL.Add('delete from xs_ordertj'); // 删除表的所有纪录内容
   DM.adoqueryddcx1.execsql;
   with DM.ADOQueryddtj1 do begin
   close;
   sql.Clear;
   sql.Add('select  xs_order1.orderdate ,sum(amount) as amount from xs_order2, xs_order1 where xs_order2.orderno= xs_order1.orderno group by xs_order1.orderdate');
   open;
   end;
   ///
   DM.ADOTableddtj.Active:=false;
   DM.ADOTableddtj.Open;
   //DM.ADOQueryddcx2.Active:=false;
   //DM.ADOQueryddcx2.Open;
  // DM.adoqueryddcx2.First;
  while not DM.ADOQueryddtj1.Eof do
   begin
   with DM.ADOTableddtj do
   begin
     edit;
     append;
     //edit;
     fieldbyname('orderdate').value:=DM.ADOQueryddtj1.fieldbyname('orderdate').value;
     fieldbyname('amount').value:=DM.ADOQueryddtj1.fieldbyname('amount').value;
     post;
   end;
   DM.adoqueryddtj1.Next;
  end;
  //DM.ADOTableddtj.Active:=false;
  {Adoqueryddtj2.Close;
  Adoqueryddtj2.sql.Clear;
  Adoqueryddtj2.SQL.Add('select * from xs_ordertj');
  Adoqueryddtj2.open; }

  //
 except
   exit; 
 end;
end;

procedure TF_DDTJFX.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
  frmmain.Label1.Caption:='订单统计分析';
end;

procedure TF_DDTJFX.FormShow(Sender: TObject);
begin
 // DM.ADOTableddtj.Active:=false;
end;

procedure TF_DDTJFX.FormCreate(Sender: TObject);
begin
 // DM.ADOTableddtj.Active:=true;
  DM.ADOQueryddtj1.Active:=true;
end;

end.