frmfylistunit.~pas

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

unit frmFYListUnit;

interface

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

type
  TfrmFYList = class(TfrmBase)
    qryFYList: TADOQuery;
    qryFYListOS_NO: TStringField;
    qryFYListFYDH: TStringField;
    qryFYListFY: TStringField;
    qryFYListFYDATE: TDateTimeField;
    qryFYListCUS_NO: TStringField;
    qryFYListSAL_NO: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBLookupComboDlg1: TwwDBLookupComboDlg;
    DBText1: TDBText;
    Label4: TLabel;
    qrySO: TADOQuery;
    qrySOoS_NO: TStringField;
    qrySOOS_DD: TDateTimeField;
    qrySOCUS_NO: TStringField;
    qrySOSAL_NO: TStringField;
    wwDBLookupComboDlg2: TwwDBLookupComboDlg;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    wwDBGrid1: TwwDBGrid;
    wwLookupDialog1: TwwLookupDialog;
    Label7: TLabel;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    Label9: TLabel;
    DBEdit6: TDBEdit;
    qryFYListQTY: TBCDField;
    qryCUS: TADOQuery;
    qryCUScus_no: TStringField;
    qryCUSname: TStringField;
    qryFYListCUS_NAME: TStringField;
    qrySAL_NAME: TADOQuery;
    qrySAL_NAMESAL_NO: TStringField;
    qrySAL_NAMENAME: TStringField;
    qryFYListSAL_NAME: TStringField;
    qryKND: TADOQuery;
    qryKNDFY_NO: TStringField;
    qryKNDFY_NAME: TStringField;
    qryFYListFY_NAME: TStringField;
    procedure FormShow(Sender: TObject);
    procedure wwDBLookupComboDlg2InitDialog(Dialog: TwwLookupDlg);
    procedure btn_InsertClick(Sender: TObject);
    procedure wwDBLookupComboDlg2Change(Sender: TObject);
    procedure btn_EditClick(Sender: TObject);
    procedure btn_DeleteClick(Sender: TObject);
    procedure btn_SaveClick(Sender: TObject);
    procedure btn_CloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit1Enter(Sender: TObject);
    procedure qryFYListBeforePost(DataSet: TDataSet);
    procedure btn_SearchClick(Sender: TObject);
    procedure btn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    vFYList:TFORM;
    { Public declarations }
  end;

var
  frmFYList: TfrmFYList;

implementation

uses dmUnit;

{$R *.dfm}

procedure TfrmFYList.FormShow(Sender: TObject);
begin
  inherited;
 
  qrySO.Active:=True;
  qryKND.Active:=True;
  qryCUS.Active:=True;
  qryFYList.Active:=True;
end;

procedure TfrmFYList.wwDBLookupComboDlg2InitDialog(Dialog: TwwLookupDlg);
begin
  inherited;
  qrySO.Active:=False;
  qrySO.Active:=True;
end;

procedure TfrmFYList.btn_InsertClick(Sender: TObject);
begin
  inherited;
  if qryFYList.State in [dsINsert] then exit;
  qryFYList.Append;
  qryFYList.FieldByName('FYDate').AsString:=formatDateTime('yyyy-MM-dd',now);
end;

procedure TfrmFYList.wwDBLookupComboDlg2Change(Sender: TObject);
begin
  inherited;
  if qryFYList.State in [dsBrowse] then exit;
  if qryFYList.FieldByName('OS_NO').AsString='' then exit;
  qryFYList.FieldByName('SAL_NO').AsString:=qrySO.FieldByname('SAL_NO').AsString;
  qryFYList.FieldByName('CUS_NO').AsString:=qrySO.FIeldByname('CUS_NO').AsString;

end;

procedure TfrmFYList.btn_EditClick(Sender: TObject);
begin
  inherited;
  qryFYList.Edit;
end;

procedure TfrmFYList.btn_DeleteClick(Sender: TObject);
begin
  inherited;
  qryFYlist.Delete;
end;

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

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

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

procedure TfrmFYList.DBEdit1Enter(Sender: TObject);
begin
  inherited;
  if ((qryFYLIst.State in [dsInsert]) and (qryFYList.FieldByName('FYDH').AsString='')) then
    begin
      qryFYList.FieldByname('FYDH').asstring:=dm.GetAutoNo('FYList','FYDH','FY'+FormatDateTIME('YYMMDD',now));
    end;

end;

procedure TfrmFYList.qryFYListBeforePost(DataSet: TDataSet);
begin
  inherited;
  if qryFYList.FieldByName('QTY').AsString='' then
    begin
      showMessage('请录入金额');
      abort;
    end;
end;

procedure TfrmFYList.btn_SearchClick(Sender: TObject);
begin
  inherited;
  dm.getSearch(vFYList,qryFYList,'select * from FYList where 1=1 ','FYDate','FYDATE','费用','FYDATE','费用日期','FYDH','费用单号');
end;

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

end.