sum030.pas

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

unit SUM030;

interface

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

type
  TfmSUM030 = class(TfmBaseDialog)
    dgCardStock: TDBGrid;
    qyQuery: TQuery;
    dsCardStock: TDataSource;
    bnPrint: TBitBtn;
    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;
    qyQuerySALECODE: TStringField;
    qyQueryPAYCODE: TFloatField;
    qyQueryPAYMONEY: TFloatField;
    qyQueryCARDTYPE: TStringField;
    qyQueryCARDQUANTITY: TFloatField;
    qyQueryCREATEDATE: TDateTimeField;
    procedure bnOKClick(Sender: TObject);
    procedure bnPrintClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bnCancelClick(Sender: TObject);
    procedure sbExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmSUM030: TfmSUM030;

implementation

uses PublicFunction, Main, DataModule,GetData,PaperPrint;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmSUM030.PrepareDlg;
begin

end;

procedure TfmSUM030.bnOKClick(Sender: TObject);
var
  ls_sql :string ;
begin
  inherited;
  ls_sql :='select M.SaleCode,M.PayCode,P.PayMoney, '
     +'M.CardType,count(*) as CardQuantity,max(M.CreateDate) as CreateDate '
     +'from Pwpt_SaleCardStock M,Pwpt_Sale S, Pwpt_Pay P '
     +'where M.SaleCode = S.SaleCode and M.PayCode = P.PayCode and M.bOut =''0'' ';

  if trim(ED1.Text) <> '' then
     ls_sql := ls_sql + ' and M.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 M.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 + ' group by M.SaleCode,M.PayCode,P.PayMoney,M.CardType';
  ls_sql := ls_sql + ' order by M.SaleCode,M.PayCode,M.CardType';
  with qyQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add(ls_sql);
    Open;
  end;
end;

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

end;

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

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

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

end.