pri020.pas

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

unit PRI020;

interface

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

type
  TfmPRI020 = class(TfmBaseDialog)
    Label1: TLabel;
    ED1: TEdit;
    Label3: TLabel;
    ED2: TEdit;
    Label4: TLabel;
    ED3: TEdit;
    Label5: TLabel;
    ED4: TEdit;
    procedure bnOKClick(Sender: TObject);
    procedure ED1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmPRI020: TfmPRI020;

implementation

uses PublicFunction, Main, DataModule,GetData,PaperPrint;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmPRI020.PrepareDlg;
begin

end;

procedure TfmPRI020.bnOKClick(Sender: TObject);
begin
  inherited;
  ProPaperPrint(trim(ED1.Text),trim(ED3.Text),trim(ED4.Text));
  WriteOperatorLog('[纸卷重新打印]销售点编号['+trim(ED1.Text)+']'+
    '最小卡序号['+trim(ED3.Text)+']最大卡序号['+trim(ED4.Text)+']');
end;

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

end.