pa010.pas

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

unit PA010;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Single, Menus, Db, DBTables, Grids, DBGrids, Buttons, ExtCtrls, StdCtrls,
  Mask, DBCtrls,IdGlobal, ComCtrls ;

type
  TfmPA010 = class(TfmSingle)
    Label1: TLabel;
    Label2: TLabel;
    ED2: TDBEdit;
    Label3: TLabel;
    ED3: TDBEdit;
    Label4: TLabel;
    ED4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    qyMasterPAYCODE: TFloatField;
    qyMasterSALECODE: TStringField;
    qyMasterPAYACCOUNT: TStringField;
    qyMasterPAYDATE: TDateTimeField;
    qyMasterPAYMODE: TStringField;
    qyMasterCREATEMAN: TStringField;
    qyMasterCREATEDATE: TDateTimeField;
    Label7: TLabel;
    DP1: TDateTimePicker;
    ED5: TDBComboBox;
    ED6: TDBEdit;
    sbSaleCode: TSpeedButton;
    qyMasterPAYMONEY: TFloatField;
    qyMasterBCITE: TStringField;
    procedure qyMasterNewRecord(DataSet: TDataSet);
    procedure qyMasterBeforePost(DataSet: TDataSet);
    procedure qyMasterBeforeDelete(DataSet: TDataSet);
    procedure sbDelClick(Sender: TObject);
    procedure sbSaleCodeClick(Sender: TObject);
    procedure ED1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure OpenDB; override;
  end;

var
  fmPA010: TfmPA010;

implementation

uses Main, DataModule, PublicFunction, CheckData, GetData, BaseSearch;
{$R *.DFM}

procedure TfmPA010.OpenDB;
begin
  qyMaster.Close;
  OrderBySQL := 'M.PayCode';
  qyMaster.SQL.Text := SQLText;
  qyMaster.Open;
end;

procedure TfmPA010.qyMasterNewRecord(DataSet: TDataSet);
begin
  inherited;
  with qyMaster do
  begin
    FieldByName('Paycode').AsFloat := GetSerialID('Pwpt_Pay_ID');
    FieldByName('SaleCode').AsString := Space(10);
    FieldByName('PayAccount').AsString := Space(10);
    FieldByName('PayMoney').AsFloat := 0;
    FieldByName('PayMode').AsString := '现金';
    FieldByName('bCite').AsString := '0';
  end;
  DP1.DateTime := GetSysDate();
end;

procedure TfmPA010.qyMasterBeforePost(DataSet: TDataSet);
begin
  inherited;

  if not CheckSaleCode(qyMaster.FieldByName('SaleCode').AsString) then
  begin
    ED1.SetFocus;
    Abort;
  end;
  if qyMaster.FieldByName('PayMoney').IsNull then
    qyMaster.FieldByName('PayMoney').AsFloat := 0;
  qyMaster.FieldByName('PayDate').AsDateTime := DP1.DateTime;
  qyMaster.FieldByName('CreateMan').AsString := sAdmCode;
  qyMaster.FieldByName('CreateDate').AsDateTime := GetSysDate();

  if qyMaster.State = dsInsert then
    WriteOperatorLog('[添加记录][Pwpt_Pay]['+qyMaster.fieldbyname('PayCode').asstring+']')
  else
    WriteOperatorLog('[修改记录][Pwpt_Pay]['+qyMaster.fieldbyname('PayCode').asstring+']') ;
end;

procedure TfmPA010.qyMasterBeforeDelete(DataSet: TDataSet);
begin
  inherited;
  WriteOperatorLog('[删除记录][Pwpt_Pay]['+qyMaster.fieldbyname('PayCode').asstring+']') ;
end;

procedure TfmPA010.sbDelClick(Sender: TObject);
begin
  inherited;
  //不能删除
end;

procedure TfmPA010.sbSaleCodeClick(Sender: TObject);
begin
  inherited;
  ED6.Text := SearchData(ED1, DM.qySale);
end;

procedure TfmPA010.ED1Exit(Sender: TObject);
begin
  inherited;
  ED6.Text := GetSaleName(ED1.Text);
end;

end.