sum020.pas

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

unit SUM020;

interface

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

type
  TfmSUM020 = class(TfmBaseDialog)
    dgCardStock: TDBGrid;
    qyQuery: TQuery;
    dsCardStock: TDataSource;
    bnPrint: TBitBtn;
    qyQueryPAYCODE: TFloatField;
    qyQueryPAYACCOUNT: TStringField;
    qyQuerySALECODE: TStringField;
    qyQueryPAYMONEY: TFloatField;
    qyQueryPAYDATE: TDateTimeField;
    qyQueryPAYMODE: TStringField;
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    GroupBox1: TGroupBox;
    ED6: TEdit;
    Label8: TLabel;
    Label7: TLabel;
    ED5: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    ED7: TEdit;
    ED8: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    ED9: TEdit;
    ED10: TEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    ED1: TEdit;
    ED2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    ED3: TEdit;
    ED4: TEdit;
    Label2: TLabel;
    Label6: TLabel;
    DTP1: TDateTimePicker;
    DTP2: TDateTimePicker;
    procedure bnOKClick(Sender: TObject);
    procedure bnPrintClick(Sender: TObject);
    procedure qyQueryAfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure bnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmSUM020: TfmSUM020;

implementation

uses PublicFunction, Main, DataModule,GetData,PaperPrint;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmSUM020.PrepareDlg;
begin

end;

procedure TfmSUM020.bnOKClick(Sender: TObject);
var
  ls_sql :string ;
begin
  inherited;
  ls_sql :='select P.PayCode,P.SaleCode,P.PayAccount, '
     +'P.PayMoney,P.PayDate,P.PayMode 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)+'%''' ;
  ls_sql := ls_sql +' and P.PayDate >= :BeginPayDate ';
  ls_sql := ls_sql +' and P.PayDate <= :EndPayDate ';
  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 TfmSUM020.bnPrintClick(Sender: TObject);
begin
  inherited;
 //打印
 // ProPaperPrint(trim(ED1.Text),trim(ED3.Text),trim(ED4.Text));
end;

procedure TfmSUM020.qyQueryAfterScroll(DataSet: TDataSet);
begin
  inherited;
 
  with qyTemp do
  begin
    Close;
    Sql.Clear;
    Sql.Add('select SaleCode,SaleName,area,SaleAddress,PostCode, ');
    Sql.Add('RelateMan,RelatePhone,RelateMobilePhone,Email ');
    Sql.Add('from Pwpt_Sale where SaleCode = :SaleCode');
    ParamByName('SaleCode').AsString :=  qyQuery.FieldByName('SaleCode').AsString;
    Open;
  end;
//  if not qyTemp.Eof and not qyTemp.Bof then
  with qyTemp do
  begin
    ED5.Text := FieldByName('SaleCode').AsString;
    ED6.Text := FieldByName('SaleName').AsString;
    ED7.Text := FieldByName('area').AsString;
    ED8.Text := FieldByName('SaleAddress').AsString;
    ED9.Text := FieldByName('RelatePhone').AsString;
    ED10.Text := FieldByName('Email').AsString;
  end;
end;

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

procedure TfmSUM020.bnCancelClick(Sender: TObject);
begin
  inherited;
  close;
end;

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

end.