frmskunit.pas

根据客户对销售人员回款返利和业绩返利的功能需求所开发

unit frmSKUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmBaseUnit, DB, StdCtrls, Buttons, ExtCtrls, ADODB, Grids,
  Wwdbigrd, Wwdbgrid, wwdblook, Wwdbdlg;

type
  TfrmSK = class(TfrmBase)
    Panel4: TPanel;
    qrySA: TADOQuery;
    wwDBGrid1: TwwDBGrid;
    qrySARP_NO: TStringField;
    qrySAAMTN_BB: TBCDField;
    qrySABIL_NO: TStringField;
    qrySAOS_NO: TStringField;
    qrySAqty: TBCDField;
    qrySAqty1: TBCDField;
    qrySArate: TBCDField;
    Label1: TLabel;
    qrySO: TADOQuery;
    qrySOoS_NO: TStringField;
    qrySOOS_DD: TDateTimeField;
    qrySOCUS_NO: TStringField;
    qrySOSAL_NO: TStringField;
    ww1: TwwDBLookupComboDlg;
    ww2: TwwDBLookupComboDlg;
    Button1: TButton;
    procedure btn_PrintClick(Sender: TObject);
    procedure btn_CloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSK: TfrmSK;

implementation

uses dmUnit;

{$R *.dfm}

procedure TfrmSK.btn_PrintClick(Sender: TObject);
begin
  inherited;
  wwDBGrid1.ExportOptions.FileName:=fSave.FileName+'.csv';
   wwDBGrid1.ExportOptions.Save;
end;

procedure TfrmSK.btn_CloseClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TfrmSK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  action:=caFree;
  frmSK:=nil;
end;

procedure TfrmSK.Button1Click(Sender: TObject);
var
  sql:string;
begin
  inherited;
  sql:='select A.*,B.*,C.*,rate=A.AMTN_BB/(case  C.qty when  0 then 1 else C.qty end)*100.0 from V_AP A '
      +' left join V_PSS B on A.BIL_NO=B.PS_NO '
      +' left join MF_PSS D on B.PS_NO=D.PS_NO '
      +' left join V_POS C on D.OS_NO=C.OS_NO where 1=1 ';
  if ww1.Text<>'' then
     sql:=sql+' and C.OS_NO>='''+ww1.Text+'''';
  if ww2.Text<>'' then
     sql:=sql+' and C.OS_NO<='''+ww2.Text+'''';
  sql:=sql+' order by C.OS_NO,B.PS_NO,A.RP_NO ';
  qrySA.Active:=False;
  qrySA.SQL.Clear;
  qrySA.SQL.Add(sql);
  qrySA.active:=False;
  qrySA.Active:=True;          


end;

procedure TfrmSK.FormShow(Sender: TObject);
begin
  inherited;
  qrySO.Active:=True;
  qrySA.Active:=True;
end;

end.