sys_mrp.pas

一个MRPII系统源代码版本

unit Sys_Mrp;

Interface

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

Type
  TFrm_Sys_Mrp = Class(TFrm_Base_Common)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Image3: TImage;
    Label2: TLabel;
    Image6: TImage;
    Label5: TLabel;
    Label6: TLabel;
    Image8: TImage;
    Label7: TLabel;
    Image9: TImage;
    Label8: TLabel;
    Image10: TImage;
    Label9: TLabel;
    Image12: TImage;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    Label25: TLabel;
    Image17: TImage;
    Label30: TLabel;
    Label31: TLabel;
    Image18: TImage;
    Label32: TLabel;
    Label33: TLabel;
    Image19: TImage;
    Label34: TLabel;
    Label35: TLabel;
    Image20: TImage;
    Label36: TLabel;
    Label37: TLabel;
    Image21: TImage;
    Label38: TLabel;
    Label3: TLabel;
    Image4: TImage;
    Label4: TLabel;
    procedure FocusOnImage(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label7Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
    procedure Label30Click(Sender: TObject);
    procedure Label32Click(Sender: TObject);
    procedure Label34Click(Sender: TObject);
    procedure Label36Click(Sender: TObject);
    procedure Label38Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    procedure ImageFocus(Sender:Tobject);
    procedure LabelFocus(Sender:Tobject);
  public
    { Public declarations }
  end;

var
  Frm_Sys_Mrp: TFrm_Sys_Mrp;

implementation

uses Main, Sys_Main;

{$R *.DFM}

procedure TFrm_Sys_Mrp.FocusOnImage(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited;
      If (sender<>Image1) then
        TImage(sender).cursor:=crhandpoint;
end;


procedure TFrm_Sys_Mrp.ImageFocus(Sender:Tobject);
var i:integer;
begin
  for i:=0 to controlCount-1 do
    begin
      if controls[i] is Tlabel then
       Tlabel(controls[i]).font.Style:=Tlabel(controls[i]).font.Style-[fsunderline];
    end;
{  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_Mrp.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_Mrp.Label7MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited;
  LabelFocus(sender);
end;

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

procedure TFrm_Sys_Mrp.Label7Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_MrpInfo1','');

end;

procedure TFrm_Sys_Mrp.Label3Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_MrpInfo2','');
end;

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

procedure TFrm_Sys_Mrp.Label2Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_PassMo','');

end;

procedure TFrm_Sys_Mrp.Label9Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_CloseMo','');

end;

procedure TFrm_Sys_Mrp.Label8Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_ForeverCloseMo','');

end;

procedure TFrm_Sys_Mrp.Label11Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_DelMo','');

end;

procedure TFrm_Sys_Mrp.Label30Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_FreeMoH','');

end;

procedure TFrm_Sys_Mrp.Label32Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_FreePassMo','');

end;

procedure TFrm_Sys_Mrp.Label34Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_FreeCloseMo','');

end;

procedure TFrm_Sys_Mrp.Label36Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_FreeForeverCloseMo','');

end;

procedure TFrm_Sys_Mrp.Label38Click(Sender: TObject);
begin
  inherited;
  Frm_Main.GetPuTongMenuclick('Frm_Mrp_Enter_FreeDelMo','');

end;

procedure TFrm_Sys_Mrp.Label5Click(Sender: TObject);
begin
  inherited;
  Frm_Main.Getnewmenuclick('Sfc');
  Frm_Sys_Main.GetModuleFrm('Sfc');

end;

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

procedure TFrm_Sys_Mrp.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Sys_Mrp:=nil;
end;

procedure TFrm_Sys_Mrp.FormActivate(Sender: TObject);
begin
  inherited;
  Frm_Main.EnableLab(label1,Image2,'Frm_Mrp_Enter_MoH');
  Frm_Main.EnableLab(label3,Image4,'Frm_Mrp_Enter_MrpInfo2');
//  Frm_Main.EnableLab(label5,Image6,'Frm_Ad_Enter_ChangeType');
  Frm_Main.EnableLab(label7,Image8,'Frm_Mrp_Enter_MrpInfo1');
//  Frm_Main.EnableLab(label4,Image5,'Frm_Ad_Enter_UseStatus');
//  Frm_Main.EnableLab(label6,Image7,'Frm_Ad_Enter_Depositary');
  Frm_Main.EnableLab(label2,Image3,'Frm_Mrp_Enter_PassMo');
  Frm_Main.EnableLab(label9,Image10,'Frm_Mrp_Enter_CloseMo');
  Frm_Main.EnableLab(label8,Image9,'Frm_Mrp_Enter_ForeverCloseMo');
//  Frm_Main.EnableLab(label24,Image14,'Frm_Ad_Enter_AssetCard');
  Frm_Main.EnableLab(label11,Image12,'Frm_Mrp_Enter_DelMo');
  Frm_Main.EnableLab(label30,Image17,'Frm_Mrp_Enter_FreeMoH');
  Frm_Main.EnableLab(label32,Image18,'Frm_Mrp_Enter_FreePassMo');
//  Frm_Main.EnableLab(label10,Image16,'Frm_Ad_Enter_AssetCard');
//  Frm_Main.EnableLab(label18,Image13,'Frm_Ad_Enter_AssetCard');
  Frm_Main.EnableLab(label34,Image19,'Frm_Mrp_Enter_FreeCloseMo');
  Frm_Main.EnableLab(label36,Image20,'Frm_Mrp_Enter_FreeForeverCloseMo');
  Frm_Main.EnableLab(label38,Image21,'Frm_Mrp_Enter_FreeDelMo');

end;

end.