unit11.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Tformcard = class(TForm)
    Label1: TLabel;
    Editcardcode: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditcardcodeKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formcard: Tformcard;

implementation

uses Unit2;

{$R *.DFM}

procedure Tformcard.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 tmpzk:real;
begin
 if key=VK_RETURN then
  begin
   if editcardcode.text<>'' then
    begin
     tmpzk:=strtofloat(mainform.edit2.text)*0.9;
     mainform.edit2.Text:=formatfloat('0.00',tmpzk);

     editcardcode.Clear;
     mainform.pcodeedit.SetFocus;

     if mainform.IsShowed then
     begin
       //客显显示
       //使用 COM1。
       mainform.MSComm1.CommPort :=1;
       //9600 波特，无奇偶校验，8 位数据，一个停止位。
       mainform.MSComm1.Settings := '9600,N,8,1';
       //当输入占用时，
       //告诉控件读入整个缓冲区。
       mainform.MSComm1.InputLen := 0;
       //打开端口。
       mainform.MSComm1.PortOpen := True;
       //将 attention 命令送到调制解调器。
       mainform.MSComm1.Output := Chr($1B) + Chr($51) + Chr($41) + '       THANKS'+Chr(13);
       mainform.MSComm1.Output := Chr($1B) + Chr($51) + Chr($42) + 'TOTAL     '+mainform.edit2.Text+ Chr(13); //确保
       //关闭串行端口。
       mainform.MSComm1.PortOpen := False;
     end;  
   formcard.Close;
  end;
 end;
 if key=VK_ESCAPE then
  begin
   formcard.Close;
  end;
end;

procedure Tformcard.EditcardcodeKeyPress(Sender: TObject; var Key: Char);
begin
 if (key<>'.') and(key<>'0') and (key<>'1') and (key<>'2') and (key<>'3') and (key<>'4') and (key<>'5') and (key<>'6') and (key<>'7') and (key<>'8') and (key<>'9') and (key<>chr(8)) then
 key:=chr(0);
end;

end.