sum010.pas

电子充值系统:全球通的充值卡通过POS机传到销售点.

unit SUM010;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, StdCtrls, Db, DBTables, Buttons, Grids, DBGrids, ExtCtrls,
  ComCtrls;

type
  TfmSUM010 = class(TfmBaseDialog)
    dgCardStock: TDBGrid;
    qyQuery: TQuery;
    dsCardStock: TDataSource;
    bnPrint: TBitBtn;
    qyQueryPAYCODE: TFloatField;
    qyQueryPAYACCOUNT: TStringField;
    qyQuerySALECODE: TStringField;
    qyQuerySALENAME: TStringField;
    qyQueryPAYMONEY: TFloatField;
    qyQueryRELATEPHONE: TStringField;
    qyQueryRELATEMOBILEPHONE: TStringField;
    Panel6: TPanel;
    Splitter1: TSplitter;
    GroupBox1: TGroupBox;
    ED6: TEdit;
    ED4: TEdit;
    ED2: TEdit;
    Label6: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    ED1: TEdit;
    ED3: TEdit;
    ED5: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    DTP1: TDateTimePicker;
    DTP2: TDateTimePicker;
    Label7: TLabel;
    Label8: TLabel;
    procedure bnOKClick(Sender: TObject);
    procedure bnPrintClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bnCancelClick(Sender: TObject);
    procedure sbExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmSUM010: TfmSUM010;

implementation

uses PublicFunction, Main, DataModule,GetData,PaperPrint;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmSUM010.PrepareDlg;
begin

end;

procedure TfmSUM010.bnOKClick(Sender: TObject);
var
  ls_sql :string ;
begin
  inherited;
  ls_sql :='select max(P.PayCode) as PayCode,P.PayAccount, '
     +'P.SaleCode,max(S.SaleName) as SaleName, '
     +'sum(P.PayMoney) as PayMoney, max(S.RelatePhone) as RelatePhone, '
     +'max(S.RelateMobilePhone) as RelateMobilePhone '
     +'from Pwpt_Pay P,Pwpt_Sale S '
     +'where P.SaleCode = S.SaleCode ';
  if trim(ED1.Text) <> '' then
     ls_sql := ls_sql + ' and P.SaleCode like ''%'+trim(ED1.Text)+'%''' ;
  if trim(ED2.Text) <> '' then
     ls_sql := ls_sql + ' and S.SaleName like ''%'+trim(ED2.Text)+'%''' ;
  if trim(ED3.Text) <> '' then
     ls_sql := ls_sql + ' and P.PayCode like ''%'+trim(ED3.Text)+'%''' ;
  if trim(ED4.Text) <> '' then
     ls_sql := ls_sql + ' and P.PayAccount like ''%'+trim(ED4.Text)+'%''' ;
  if trim(ED5.Text) <> '' then
     ls_sql := ls_sql + ' and S.RelatePhone like ''%'+trim(ED5.Text)+'%''' ;
  if trim(ED6.Text) <> '' then
     ls_sql := ls_sql + ' and S.RelateMobilePhone like ''%'+trim(ED6.Text)+'%''' ;
  ls_sql := ls_sql +' and P.PayDate >= :BeginPayDate ';
  ls_sql := ls_sql +' and P.PayDate <= :EndPayDate ';
  ls_sql := ls_sql + ' group by P.SaleCode,P.PayAccount';
  with qyQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add(ls_sql);
    ParamByName('BeginPayDate').AsDateTime := DTP1.DateTime;
    ParamByName('EndPayDate').AsDateTime := DTP2.DateTime;
    Open;
  end;
end;

procedure TfmSUM010.bnPrintClick(Sender: TObject);
begin
  inherited;
 //打印
 // ProPaperPrint(trim(ED1.Text),trim(ED3.Text),trim(ED4.Text));

end;

procedure TfmSUM010.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;

procedure TfmSUM010.bnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfmSUM010.sbExitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TfmSUM010.FormCreate(Sender: TObject);
begin
  inherited;
  DTP1.Date := GetSysDate() - 30;
  DTP2.Date := GetSysDate();
end;

end.