frmup_a1unit.pas

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

unit frmUP_A1Unit;

interface

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

type
  TfrmUP_A1 = class(TfrmBase)
    wwDBGrid1: TwwDBGrid;
    qryUP_A1: TADOQuery;
    qryUP_A1YY: TStringField;
    qryUP_A1PRD_NO: TStringField;
    qryUP_A1PRD_NAME: TStringField;
    qryUP_A1QTY: TBCDField;
    qryUP_A1REM: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    qryPRDT: TADOQuery;
    qryPRDTprd_no: TStringField;
    qryPRDTname: TStringField;
    wwDBLookupComboDlg1: TwwDBLookupComboDlg;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label7: TLabel;
    ww1: TwwDBLookupComboDlg;
    Label8: TLabel;
    qryPRDT2: TADOQuery;
    StringField1: TStringField;
    StringField2: TStringField;
    ww2: TwwDBLookupComboDlg;
    Button1: TButton;
    procedure btn_CloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_InsertClick(Sender: TObject);
    procedure btn_EditClick(Sender: TObject);
    procedure btn_DeleteClick(Sender: TObject);
    procedure btn_PrintClick(Sender: TObject);
    procedure wwDBLookupComboDlg1Change(Sender: TObject);
    procedure qryUP_A1BeforePost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure btn_SearchClick(Sender: TObject);
    procedure btn_SaveClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUP_A1: TfrmUP_A1;

implementation

uses dmUnit;

{$R *.dfm}

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

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

procedure TfrmUP_A1.btn_InsertClick(Sender: TObject);
begin
  inherited;
  if qryUP_A1.State in [dsInsert] then exit;
  qryUP_A1.Append;
  qryUP_A1.FieldByName('YY').AsString:=formatDatetime('yyyy',now);
end;

procedure TfrmUP_A1.btn_EditClick(Sender: TObject);
begin
  inherited;
  qryUP_A1.Edit;
end;

procedure TfrmUP_A1.btn_DeleteClick(Sender: TObject);
begin
  inherited;
  qryUP_A1.Delete;
end;

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

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

procedure TfrmUP_A1.qryUP_A1BeforePost(DataSet: TDataSet);
begin
  inherited;
  if qryUP_A1.FieldByName('qty').AsString='' then
    begin
      showMEssage('请填写单价');
      abort;
    end;
end;

procedure TfrmUP_A1.FormShow(Sender: TObject);
begin
  inherited;
  qryPRDT.Active:=True;
  qryUP_A1.Active:=True;
  qryPRDT2.Active:=True;
end;

procedure TfrmUP_A1.btn_SearchClick(Sender: TObject);
var
  s:string;
  sql:string;
begin
  inherited;
  s:=inputBox('请录入年份','年份:','');
  if s='' then exit;
  sql:='select * from up_A1 where yy='''+s+'''';
  qryUP_A1.Active:=False;
  qryUP_A1.SQL.Clear;
  qryUP_A1.SQL.Add(sql) ;
  qryUP_A1.Active:=True;

end;

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

procedure TfrmUP_A1.Button1Click(Sender: TObject);
var
  sql:String;
begin
  inherited;
  sql:='select * from UP_A1 where 1=1 ';
  if edit1.Text<>'' then
     sql:=sql+' and yy>='''+edit1.Text+'''';
  if edit2.Text<>'' then
     sql:=sql+' and YY<='''+Edit2.Text+'''';
  if ww1.Text<>'' then
     sql:=sql+' and PRD_NO>='''+ww1.Text+'''';
  if ww2.Text<>'' then
     sql:=sql+' and PRD_NO<='''+ww2.Text+'''';
  qryUP_A1.Active:=False;
  qryUP_A1.SQL.Clear;
  qryUP_A1.SQL.Add(sql);
  qryUP_A1.Active:=True;      
end;

end.