frmup_a2unit.~pas

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

unit frmUP_A2Unit;

interface

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

type
  TfrmUP_A2 = class(TfrmBase)
    qryUP_A2: TADOQuery;
    qryUP_A2SAL_NO: TStringField;
    qryUP_A2PRD_NO: TStringField;
    qryUP_A2PRD_NAME: TStringField;
    qryUP_A2CUS_ARE: TStringField;
    qryUP_A2S_DD: TDateTimeField;
    qryUP_A2E_DD: TDateTimeField;
    qryUP_A2QTY: TBCDField;
    qrySAL_NAME: TADOQuery;
    qrySAL_NAMESAL_NO: TStringField;
    qrySAL_NAMENAME: TStringField;
    wwDBGrid1: TwwDBGrid;
    qryArea: TADOQuery;
    qryAreaAREA_NO: TStringField;
    qryAreaNAME: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    qryPRDT: TADOQuery;
    qryPRDTprd_no: TStringField;
    qryPRDTname: TStringField;
    wwDBLookupComboDlg1: TwwDBLookupComboDlg;
    wwDBLookupComboDlg2: TwwDBLookupComboDlg;
    wwDBLookupComboDlg3: TwwDBLookupComboDlg;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    qryUP_A2AREA_NAME: TStringField;
    qryUP_A2SAL_NAME: TStringField;
    Label10: TLabel;
    qrySA_NAME2: TADOQuery;
    StringField1: TStringField;
    StringField2: TStringField;
    ww1: TwwDBLookupComboDlg;
    ww2: TwwDBLookupComboDlg;
    qryAREA2: TADOQuery;
    StringField3: TStringField;
    StringField4: TStringField;
    Label11: TLabel;
    ww3: TwwDBLookupComboDlg;
    ww4: TwwDBLookupComboDlg;
    Label12: TLabel;
    ww5: TwwDBLookupComboDlg;
    qryPRDT2: TADOQuery;
    StringField5: TStringField;
    StringField6: TStringField;
    ww6: TwwDBLookupComboDlg;
    Label13: TLabel;
    ww7: TwwDBDateTimePicker;
    ww8: TwwDBDateTimePicker;
    Button1: TButton;
    procedure btn_InsertClick(Sender: TObject);
    procedure btn_EditClick(Sender: TObject);
    procedure btn_DeleteClick(Sender: TObject);
    procedure btn_PrintClick(Sender: TObject);
    procedure btn_SaveClick(Sender: TObject);
    procedure btn_CloseClick(Sender: TObject);
    procedure btn_SearchClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure wwDBLookupComboDlg3Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    vFORMUP_A2:TFORM;
    { Public declarations }
  end;

var
  frmUP_A2: TfrmUP_A2;

implementation

uses dmUnit;

{$R *.dfm}

procedure TfrmUP_A2.btn_InsertClick(Sender: TObject);
begin
  inherited;
  if qryUP_A2.State in [dsInsert] then exit;
  qryUP_A2.Append;
end;

procedure TfrmUP_A2.btn_EditClick(Sender: TObject);
begin
  inherited;
  qryUP_A2.Edit;
end;

procedure TfrmUP_A2.btn_DeleteClick(Sender: TObject);
begin
  inherited;
 qryUP_A2.Delete;
end;

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

procedure TfrmUP_A2.btn_SaveClick(Sender: TObject);
begin
  inherited;
 if qryUP_A2.State in [dsInsert,dsEdit] then qryUP_A2.Post;
end;

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

procedure TfrmUP_A2.btn_SearchClick(Sender: TObject);
begin
  inherited;
  dm.getSearch(vFORMUP_A2,qryUP_A2,'select * from up_A2 where 1=1 ','S_DD','S_DD','销售人员区域表','S_DD','开始日期','SAL_NO','销售人员');
end;

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

procedure TfrmUP_A2.FormShow(Sender: TObject);
begin
  inherited;
  qryPRDT.Active:=True;
  qrySAL_NAME.Active:=True;
  qryAREA.Active:=True;
  qryUP_A2.Active:=True;
  qryAREA2.Active:=True;
  qryPRDT2.Active:=True;
  qrySA_NAME2.Active:=True;
end;

procedure TfrmUP_A2.wwDBLookupComboDlg3Change(Sender: TObject);
begin
  inherited;
  if qryUP_A2.State in [dsBrowse] then exit;
  if qryUP_A2.FieldByName('PRD_NO').AsString='' then exit;
  qryUP_A2.FieldByName('PRD_NAME').AsString:=qryPRDTNAME.AsString;
  
end;

procedure TfrmUP_A2.Button1Click(Sender: TObject);
var
  sql:String;
begin
  inherited;
  sql:='select * from UP_A2 where 1=1 ';
  if ww1.Text<>'' then
    sql:=sql+' and SAL_NO>='''+ww1.Text+'''';
   if ww2.Text<>'' then
    sql:=sql+' and SAL_NO<='''+ww2.Text+'''';
    if ww3.Text<>'' then
    sql:=sql+' and CUS_ARE>='''+ww3.Text+'''';
      if ww4.Text<>'' then
    sql:=sql+' and CUS_ARE<='''+ww4.Text+'''';
   if ww5.Text<>'' then
    sql:=sql+' and PRD_NO>='''+ww5.Text+'''';
   if ww6.Text<>'' then
    sql:=sql+' and PRD_NO<='''+ww6.Text+'''';
   if ww7.Text<>'' then
    sql:=sql+' and S_DD>='''+ww7.Text+'''';
   if ww8.Text<>'' then
    sql:=sql+' and E_DD<='''+ww8.Text+'''';
  qryUP_A2.Active:=False;
  qryUP_A2.SQL.Clear;
  qryUP_A2.SQL.Add(sql);
  qryUP_A2.Active:=True;  

end;

end.