pri010.pas

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

unit PRI010;

interface

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

type
  TfmPRI010 = class(TfmBaseDialog)
    Label2: TLabel;
    dgCardStock: TDBGrid;
    qyCardStock: TQuery;
    dsCardStock: TDataSource;
    qyCardStockCARDTYPE: TStringField;
    qyCardStockCARDPARVALUE: TFloatField;
    Label1: TLabel;
    ED1: TEdit;
    Label3: TLabel;
    ED2: TEdit;
    Label4: TLabel;
    ED3: TEdit;
    Label5: TLabel;
    ED4: TEdit;
    bnPrint: TBitBtn;
    qyCardStockSERIALNUMBER: TStringField;
    procedure bnOKClick(Sender: TObject);
    procedure ED1Exit(Sender: TObject);
    procedure bnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmPRI010: TfmPRI010;

implementation

uses PublicFunction, Main, DataModule,GetData,PaperPrint;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmPRI010.PrepareDlg;
begin

end;

procedure TfmPRI010.bnOKClick(Sender: TObject);
begin
  inherited;
  with qyCardStock do
  begin
    Close;
    parambyname('SaleCode').AsString := trim(ED1.Text);
    Open;
  end;
end;

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

procedure TfmPRI010.bnPrintClick(Sender: TObject);
begin
  inherited;
  //Check
  with qyTemp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select count(*) as PrintedCount from Pwpt_SaleCardStock ');
    SQL.Add('where SaleCode = :SaleCode and bOut =''1'' and  ');
    SQL.Add(' SerialNumber >= :BeginSerialNumber and SerialNumber <= :EndSerialNumber ');
    ParamByName('SaleCode').AsString := trim(ED1.Text);
    ParamByName('BeginSerialNumber').AsString := trim(ED3.Text);
    ParamByName('EndSerialNumber').AsString := trim(ED4.Text);
    Open;
  end;
  if qyTemp.FieldByName('PrintedCount').AsInteger >0 then
  begin
    MyInformation('选择记录里包含已打印的卡，请重新输入！');
    abort;
  end;
  //修改标记
  DM.UpdateSaleCardStock(trim(ED1.Text),trim(ED3.Text),trim(ED4.Text),'0');
  //打印
  ProPaperPrint(trim(ED1.Text),trim(ED3.Text),trim(ED4.Text));
  WriteOperatorLog('[纸卷打印]销售点编号['+trim(ED1.Text)+']'+
    '最小卡序号['+trim(ED3.Text)+']最大卡序号['+trim(ED4.Text)+']');
  //
end;

end.