univtx.pas

DELPHI编写的商场收银POS机源代码

unit UNIVTX;

interface

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

type
  TFMIVTX = class(TForm)
    BTNQUT: TBitBtn;
    Image1: TImage;
    PANEL_PA: TLabel;
    PANEL_PB: TLabel;
    PANEL_PC: TLabel;
    PANEL_PD: TLabel;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTNQUTClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PANEL_PAMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PANEL_PAClick(Sender: TObject);
    procedure PANEL_PBClick(Sender: TObject);
    procedure PANEL_PCClick(Sender: TObject);
    procedure PANEL_PDClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMIVTX: TFMIVTX;

implementation

uses INIFILES, FILECTRL, UN_UTL, FM_UTL, DB_UTL, SYSINI,
     RPIVTAF,
     RPIVTTF,

     UNIVTA,  //盘点主选单模块
     UNIVTT;  //盘点主选单模块

{$R *.DFM}

procedure TFMIVTX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FMIVTX.Release;
end;

procedure TFMIVTX.BTNQUTClick(Sender: TObject);
begin
CLOSE;
end;

procedure TFMIVTX.FormCreate(Sender: TObject);
VAR FILENAME: STRING;
begin
FILENAME := ExtractFilePath(Application.EXEName)+'PIC\IVTT.JPG';
IF FileExists(FILENAME)=TRUE THEN IMAGE1.Picture.LoadFromFile(FILENAME);

end;

procedure TFMIVTX.PANEL_PAMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
PANEL_PA.Font.Color := clNavy;
PANEL_PB.Font.Color := clNavy;
PANEL_PC.Font.Color := clNavy;
PANEL_PD.Font.Color := clNavy;


IF SENDER = PANEL_PA THEN PANEL_PA.FONT.COLOR := CLRED;
IF SENDER = PANEL_PB THEN PANEL_PB.FONT.COLOR := CLRED;
IF SENDER = PANEL_PC THEN PANEL_PC.FONT.COLOR := CLRED;
IF SENDER = PANEL_PD THEN PANEL_PD.FONT.COLOR := CLRED;
end;

procedure TFMIVTX.PANEL_PAClick(Sender: TObject);
begin
 IF FormExists('FMIVTA' )=FALSE THEN Application.CreateForm(TFMIVTA ,  FMIVTA   );
 Form_NORMAL_SHOW(FMIVTA,-1,-1);

end;

procedure TFMIVTX.PANEL_PBClick(Sender: TObject);
begin
 IF FormExists('RMIVTAF')=FALSE THEN Application.CreateForm(TRMIVTAF, RMIVTAF  );
 Form_NORMAL_SHOW(RMIVTAF,-1,-1);

end;

procedure TFMIVTX.PANEL_PCClick(Sender: TObject);
begin
 IF FormExists('FMIVTT' )=FALSE THEN Application.CreateForm(TFMIVTT ,  FMIVTT   );
 Form_NORMAL_SHOW(FMIVTT,-1,-1);

end;

procedure TFMIVTX.PANEL_PDClick(Sender: TObject);
begin
 IF FormExists('RMIVTTF')=FALSE THEN Application.CreateForm(TRMIVTTF, RMIVTTF  );
 Form_NORMAL_SHOW(RMIVTTF,-1,-1);

end;

end.