unit16.pas

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

unit Unit16;

interface

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

type
  TFormback = class(TForm)
    GroupBox1: TGroupBox;
    CheckBoxpay1: TCheckBox;
    CheckBoxpay2: TCheckBox;
    CheckBoxpay3: TCheckBox;
    CheckBoxpay4: TCheckBox;
    CheckBoxpay5: TCheckBox;
    CheckBoxpay6: TCheckBox;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formback: TFormback;

implementation
uses unit2;
{$R *.DFM}

procedure TFormback.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key='r' then  //现金
   begin
     checkboxpay1.Checked:=true;
     checkboxpay2.Checked:=false;
     checkboxpay3.Checked:=false;
     checkboxpay4.Checked:=false;
     checkboxpay5.Checked:=false;
     checkboxpay6.Checked:=false;
     tmppay1:=true;
     tmppay2:=false;
     tmppay3:=false;
     tmppay4:=false;
     tmppay5:=false;
     tmppay6:=false;
   end;

  if key='s' then  //支票
   begin
     checkboxpay1.Checked:=false;
     checkboxpay2.Checked:=true;
     checkboxpay3.Checked:=false;
     checkboxpay4.Checked:=false;
     checkboxpay5.Checked:=false;
     checkboxpay6.Checked:=false;
     tmppay1:=false;
     tmppay2:=true;
     tmppay3:=false;
     tmppay4:=false;
     tmppay5:=false;
     tmppay6:=false;

   end;

  if key='t' then  //信用卡
   begin
     checkboxpay1.Checked:=false;
     checkboxpay2.Checked:=false;
     checkboxpay3.Checked:=true;
     checkboxpay4.Checked:=false;
     checkboxpay5.Checked:=false;
     checkboxpay6.Checked:=false;
     tmppay1:=false;
     tmppay2:=false;
     tmppay3:=true;
     tmppay4:=false;
     tmppay5:=false;
     tmppay6:=false;
   end;

  if key='u' then //其他票据
   begin
     checkboxpay1.Checked:=false;
     checkboxpay2.Checked:=false;
     checkboxpay3.Checked:=false;
     checkboxpay4.Checked:=true;
     checkboxpay5.Checked:=false;
     checkboxpay6.Checked:=false;
     tmppay1:=false;
     tmppay2:=false;
     tmppay3:=false;
     tmppay4:=true;
     tmppay5:=false;
     tmppay6:=false;
   end;

  if key='v' then //店内票据
   begin
     checkboxpay1.Checked:=false;
     checkboxpay2.Checked:=false;
     checkboxpay3.Checked:=false;
     checkboxpay4.Checked:=false;
     checkboxpay5.Checked:=true;
     checkboxpay6.Checked:=false;
     tmppay1:=false;
     tmppay2:=false;
     tmppay3:=false;
     tmppay4:=false;
     tmppay5:=true;
     tmppay6:=false;
   end;

  if key='w' then //挂帐
   begin
     checkboxpay1.Checked:=false;
     checkboxpay2.Checked:=false;
     checkboxpay3.Checked:=false;
     checkboxpay4.Checked:=false;
     checkboxpay5.Checked:=false;
     checkboxpay6.Checked:=true;
     tmppay1:=false;
     tmppay2:=false;
     tmppay3:=false;
     tmppay4:=false;
     tmppay5:=false;
     tmppay6:=true;
   end;
end;

procedure TFormback.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then
    begin
      if (checkboxpay1.Checked or checkboxpay2.Checked or checkboxpay3.Checked or checkboxpay4.Checked or checkboxpay5.Checked or checkboxpay6.Checked)=true then
       begin
        formback.Close;
        formback.Release;
       end; 
    end;
end;

end.