sys_ap.pas

一个MRPII系统源代码版本

unit Sys_Ap;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Common, ExtCtrls, jpeg, StdCtrls, Base, Db, AdODB;

Type
  TFrm_Sys_Ap = Class(TFrm_Base_Common)
    Image1: TImage;
    Image18: TImage;
    Label9: TLabel;
    Image16: TImage;
    Label5: TLabel;
    Image9: TImage;
    Image2: TImage;
    Label1: TLabel;
    Image3: TImage;
    procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label9Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure LabelFocus(Sender:Tobject);
    procedure ImageFocus(Sender:Tobject);
  public
    { Public declarations }
  end;

var
  Frm_Sys_Ap: TFrm_Sys_Ap;

implementation

uses Main;

{$R *.DFM}
procedure TFrm_Sys_Ap.LabelFocus(Sender:Tobject);
begin
  if TLabel(Sender).Enabled=True then
  begin
    TLabel(Sender).Font.Style:=TLabel(Sender).Font.Style+[FsUnderLine];
    TLabel(Sender).Cursor:=crHandPoint;
  end;
end;

procedure TFrm_Sys_Ap.ImageFocus(Sender:Tobject);
begin
  Label1.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label2.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label3.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label5.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label7.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label8.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label8.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label9.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label11.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label30.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label32.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label34.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label36.Font.Style:=Label1.Font.Style-[FsUnderLine];
//  Label38.Font.Style:=Label1.Font.Style-[FsUnderLine];
end;

procedure TFrm_Sys_Ap.Label9MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited;
  LabelFocus(Sender);
end;

procedure TFrm_Sys_Ap.Label9Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Ap_Invoice','');
end;

procedure TFrm_Sys_Ap.Label5Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Ap_Pay','');
end;

procedure TFrm_Sys_Ap.Label1Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Ap_Checkout','');
end;

procedure TFrm_Sys_Ap.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited;
  ImageFocus(sender);
end;

procedure TFrm_Sys_Ap.FormActivate(Sender: TObject);
begin
  inherited;
  Frm_Main.EnableLab(label1,Image2,'Frm_Ap_Checkout');
//  Frm_Main.EnableLab(label3,Image4,'Frm_Ad_Enter_AssetType');
  Frm_Main.EnableLab(label5,Image16,'Frm_Ap_Pay');
//  Frm_Main.EnableLab(label7,Image8,'Frm_Ad_Enter_AdParam');
//  Frm_Main.EnableLab(label4,Image5,'Frm_Ad_Enter_UseStatus');
//  Frm_Main.EnableLab(label6,Image7,'Frm_Ad_Enter_Depositary');
//  Frm_Main.EnableLab(label2,Image3,'Frm_Ad_Enter_AssetCard');
  Frm_Main.EnableLab(label9,Image18,'Frm_Ap_Invoice');
//  Frm_Main.EnableLab(label8,Image9,'Frm_Ad_Enter_DecreaseAsset');
//  Frm_Main.EnableLab(label24,Image14,'Frm_Ad_Enter_AssetCard');
//  Frm_Main.EnableLab(label11,Image12,'Frm_Ad_Enter_WorkLoad');
//  Frm_Main.EnableLab(label30,Image11,'Frm_Ad_Enter_Depreciation');
//  Frm_Main.EnableLab(label29,Image17,'Frm_Ad_Enter_MonthCheckout');
//  Frm_Main.EnableLab(label10,Image16,'Frm_Ad_Enter_AssetCard');
//  Frm_Main.EnableLab(label18,Image13,'Frm_Ad_Enter_AssetCard');

end;

procedure TFrm_Sys_Ap.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action:=cafree;
end;

end.