unrptx.pas

库房管理系统

unit UNRPTX;

interface

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

type
  TFMRPTX = class(TForm)
    Image: TImage;
    IMG_POS2: TImage;
    LB_POSD: TLabel;
    LB_QUT: TLabel;
    IMG_QUT: TImage;
    IMG_POS3: TImage;
    IMG_POS5: TImage;
    IMG_POS6: TImage;
    IMG_POS7: TImage;
    IMG_POSD: TImage;
    IMG_POS1: TImage;
    LB_POS1: TLabel;
    LB_POS2: TLabel;
    LB_POS3: TLabel;
    LB_POS5: TLabel;
    LB_POS6: TLabel;
    LB_POS7: TLabel;
    Image1: TImage;
    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 IMG_POSDClick(Sender: TObject);
    procedure IMG_POS6DblClick(Sender: TObject);
    procedure IMG_POS7DblClick(Sender: TObject);
    procedure LB_POS5Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure LB_POS3Click(Sender: TObject);
    procedure IMG_POS3Click(Sender: TObject);
    procedure IMG_POS5Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure LB_POS6Click(Sender: TObject);
    procedure IMG_POS7Click(Sender: TObject);
    procedure LB_POS2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMRPTX: TFMRPTX;

implementation

uses UN_UTL,MainFM,jhdgl,stockinform,outForm; 

 //    RPPOSDF,    //销售日报表
 //    RPPOS1F,    //销售记录明细表
 //    RPPOS2F,    //发票记录明细表
//     RPPOS6F,    //产品销售计算报表
 //    RPTOP1F,    // 产品销售排行搒
//     RPLOGF ;     // 使用者登录表




{$R *.DFM}

procedure TFMRPTX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//FMRPTX.Release;
end;

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

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



//FILENAME := ExtractFilePath(Application.EXEName)+'PIC\REPORT.BMP';
//IF FileExists(FILENAME)=TRUE THEN IMG_POSD.Picture.LoadFromFile(FILENAME);
//IF FileExists(FILENAME)=TRUE THEN IMG_POS1.Picture.LoadFromFile(FILENAME);
//IF FileExists(FILENAME)=TRUE THEN IMG_POS2.Picture.LoadFromFile(FILENAME);
//IF FileExists(FILENAME)=TRUE THEN IMG_POS3.Picture.LoadFromFile(FILENAME);
//IF FileExists(FILENAME)=TRUE THEN IMG_POS5.Picture.LoadFromFile(FILENAME);
//IF FileExists(FILENAME)=TRUE THEN IMG_POS6.Picture.LoadFromFile(FILENAME);
//IF FileExists(FILENAME)=TRUE THEN IMG_POS7.Picture.LoadFromFile(FILENAME);


//FILENAME := ExtractFilePath(Application.EXEName)+'PIC\HOME.BMP';
//IF FileExists(FILENAME)=TRUE THEN IMG_QUT.Picture.LoadFromFile(FILENAME);
end;

procedure TFMRPTX.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 TFMRPTX.IMG_POSDClick(Sender: TObject);
begin
  // jhdglfrm.contract_rpt.ShowReport;
    stockINfm.materialstock_rpt.showreport;
 {
IF ( SENDER=IMG_POSD ) OR ( SENDER=LB_POSD ) THEN
   BEGIN
   IF PERMISSION_CHECK(_USER_ID,'RPT_POSD') = FALSE THEN EXIT; //检查权限============================================
   IF FormExists('RMPOSDF')=FALSE THEN Application.CreateForm(TRMPOSDF,  RMPOSDF  );
   Form_NORMAL_SHOW(RMPOSDF,-1,-1);
   END;
IF ( SENDER=IMG_POS1 ) OR ( SENDER=LB_POS1 ) THEN
   BEGIN
   IF PERMISSION_CHECK(_USER_ID,'RPT_POS1') = FALSE THEN EXIT; //检查权限============================================
   IF FormExists('RMPOS1F')=FALSE THEN Application.CreateForm(TRMPOS1F,  RMPOS1F  );
   Form_NORMAL_SHOW(RMPOS1F,-1,-1);
   END;
IF ( SENDER=IMG_POS2 ) OR ( SENDER=LB_POS2 ) THEN
   BEGIN
   IF PERMISSION_CHECK(_USER_ID,'RPT_POS2') = FALSE THEN EXIT; //检查权限============================================
   IF FormExists('RMPOS2F')=FALSE THEN Application.CreateForm(TRMPOS2F,  RMPOS2F  );
   Form_NORMAL_SHOW(RMPOS2F,-1,-1);
   END;
IF ( SENDER=IMG_POS6 ) OR ( SENDER=LB_POS6 ) THEN
   BEGIN
   IF PERMISSION_CHECK(_USER_ID,'RPT_POS6') = FALSE THEN EXIT; //检查权限============================================
   IF FormExists('RMPOS6F')=FALSE THEN Application.CreateForm(TRMPOS6F,  RMPOS6F  );
   Form_NORMAL_SHOW(RMPOS6F,-1,-1);
   END;  }
end;

procedure TFMRPTX.IMG_POS6DblClick(Sender: TObject);
begin
     jhdglfrm.contract_rpts.ShowReport;
end;

procedure TFMRPTX.IMG_POS7DblClick(Sender: TObject);
begin
   stockINfm.mtr_rpt.ShowReport;
end;

procedure TFMRPTX.LB_POS5Click(Sender: TObject);
begin
     jhdglfrm.contract_rpt.ShowReport;
end;

procedure TFMRPTX.Label1Click(Sender: TObject);
begin
   stockOut.out_put.ShowReport;
end;

procedure TFMRPTX.LB_POS3Click(Sender: TObject);
begin
  stockINfm.mtr_rpt.ShowReport;
end;

procedure TFMRPTX.IMG_POS3Click(Sender: TObject);
begin
     stockINfm.mtr_rpt.ShowReport;
end;

procedure TFMRPTX.IMG_POS5Click(Sender: TObject);
begin
        jhdglfrm.contract_rpt.ShowReport;
end;

procedure TFMRPTX.Image1Click(Sender: TObject);
begin
    stockOut.out_put.ShowReport;
end;

procedure TFMRPTX.LB_POS6Click(Sender: TObject);
begin
   stockOut.stock_rpt.ShowReport;
end;

procedure TFMRPTX.IMG_POS7Click(Sender: TObject);
begin
          jhdglfrm.contract_rpt.ShowReport;
end;

procedure TFMRPTX.LB_POS2Click(Sender: TObject);
begin
   stockINfm.takeMaterpt.ShowReport;
end;

end.