urinvoice.pas

Pos Componet Some Pos Utility

unit URINVOICE;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, Buttons, Spin, SPComm, Mask, Menus;

type
  TFRINVOICE = class(TForm)
    PageControl: TPageControl;
    PAGE_A: TTabSheet;
    TabSheet2: TTabSheet;
    P_TEST_TEXT: TBitBtn;
    Comm1: TComm;
    P_TEXT: TEdit;
    Label8: TLabel;
    BTN_XF: TBitBtn;
    Memo: TMemo;
    Label17: TLabel;
    BTN_XG: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BTN_XB: TBitBtn;
    BTN_CASHBOX: TButton;
    Label2: TLabel;
    P_CTRL: TEdit;
    BitBtn6: TBitBtn;
    Comm2: TComm;
    GroupBox1: TGroupBox;
    CD_PORT: TRadioGroup;
    CD_CASH: TRadioGroup;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label3: TLabel;
    ED_PORT: TRadioGroup;
    ED_DELAY: TSpinEdit;
    ED_LPTVALUE: TEdit;
    Label1: TLabel;
    Label4: TLabel;
    ED_MAXROW: TSpinEdit;
    ED_LPTADDR: TEdit;
    ED_PRINTER: TRadioGroup;
    BTNCASHBOXTEST: TButton;
    Panel1: TPanel;
    Label5: TLabel;
    CD_INTTIME: TSpinEdit;
    BTNESC: TBitBtn;
    BTNQUT: TBitBtn;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    procedure P_TEST_TEXTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BTN_XFClick(Sender: TObject);
    procedure BTN_XGClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BTN_XBClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BTN_CASHBOXClick(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BTNCASHBOXTESTClick(Sender: TObject);
    procedure CD_CASHClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure BTNESCClick(Sender: TObject);
    procedure ED_PRINTERClick(Sender: TObject);
    procedure ED_DELAYChange(Sender: TObject);
    procedure ED_PORTClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

   // ╰参砞﹚
   PROCEDURE INVOICE_CHANGE_VARIABLE;   // 讽ㄏノ