unit_main.~pas

此代码为企业原料管理代码

unit Unit_Main;

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

type
  TForm_Main = class(TForm)
    Label_Mater: TLabel;
    Label_Exit: TLabel;
    Label_Rubb: TLabel;
    Label_Sulf: TLabel;
    Label_Prod: TLabel;
    Label_Sys: TLabel;
    BitBtn1: TBitBtn;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    HotKey1: THotKey;
    HotKey2: THotKey;
    HotKey3: THotKey;
    HotKey5: THotKey;
    HotKey7: THotKey;
    HotKey8: THotKey;
    N71: TMenuItem;
    N81: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    HotKey4: THotKey;
    HotKey6: THotKey;
    procedure Label_MaterMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_RubbMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_ExitMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_MaterClick(Sender: TObject);
    procedure Label_RubbClick(Sender: TObject);
    procedure Label_ExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label_SulfMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_ProdMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_SysMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_ProdClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Label_SysClick(Sender: TObject);
    procedure Label_SulfClick(Sender: TObject);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Main: TForm_Main;

implementation

uses  Unit_Rubb_Main, Unit_Mater_Main, Unit_Rubb_Pass, 
  UnitProdMain, UnitSysSet, UnitSulfMain, Unit_dingdanmain, Unit2,
  UnitSulfpass, Unitprodpass, Unit_dingdanpass, Unit_modemain,
  Unit_modepass;

{$R *.DFM}

procedure TForm_Main.Label_MaterMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    Label_Mater.font.Color:=clred;
	
end;

procedure TForm_Main.Label_RubbMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    Label_Rubb.font.Color:=clred;
end;

procedure TForm_Main.Label_ExitMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    Label_Exit.font.Color:=clred;
end;

procedure TForm_Main.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
    Label_Mater.font.Color:=clYellow;
    Label_Rubb.font.Color:=clYellow;
    Label_Sulf.font.Color:=clYellow;
    Label_Prod.font.Color:=clYellow;
    Label_Sys.font.Color:=clYellow;
    Label_Exit.font.Color:=clYellow;
    Label1.font.Color:=clYellow;
    Label2.font.Color:=clYellow;

end;

procedure TForm_Main.Label_MaterClick(Sender: TObject);
begin
   with Form_Mater_Main.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 职务 = :v_identy or 职务 = :v_iden or 职务 = :v_id');
      parambyname('v_identy').asstring:='保管员';
      parambyname('v_iden').asstring:='总经理';
       parambyname('v_id').asstring:='会计';
      open;
      if recordcount = 0 then
      begin
        messagedlg('总经理或（和）保管员、会计还'#13+'没有注册,请尽快注册!',mtinformation,[mbok],0);
        form_Mater_Main.showmodal;
        exit;
      end; //if
    end; //with

  if Form_mater_pass.showmodal = mrok then
  begin
    with Form_Mater_Main.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and (职务 = :v_identy or 职务 = :v_iden or 职务 = :v_id ) ');
      parambyname('v_pass').asstring:=Form_mater_pass.Password.text;
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='保管员';
      parambyname('v_id').asstring:='会计';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        Form_mater_pass.Password.text:='';
        exit;
      end; //if
    end; //with
  form_Mater_Main.showmodal;
 end;
end;

procedure TForm_Main.Label_RubbClick(Sender: TObject);
begin
    with Form_Rubb_Main.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 职务 = :v_identy or 职务 = :v_iden ');
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='炼胶车间';
      open;
      if recordcount = 0 then
      begin
        messagedlg('总经理或（和）炼胶车间还'+#13+'没有注册,请尽快注册!',mtinformation,[mbok],0);
      with form_Rubb_Main do
        begin
         Panel1.Visible:=false;
         PageControl1.Visible:=false;
         Panel104.Visible:=false;
         DBNavigator1.Visible:=false;
         BitBtn1.Visible:=false;
        end; //with
        Form_Rubb_Main.showmodal;
        exit;
      end; //if
    end; //with

  if Form_Rubb_Pass.showmodal = mrok then
  begin
    with Form_Rubb_Main.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and (职务 = :v_identy or 职务 = :v_iden) ');
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_pass').asstring:=Form_Rubb_Pass.Password.text;
      parambyname('v_identy').asstring:='炼胶车间';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        Form_Rubb_Pass.Password.text:='';
        exit;
      end; //if
    end; //with

//进入的时候不显示空白的表格
  with form_Rubb_Main do
  begin
    Panel1.Visible:=false;
    PageControl1.Visible:=false;
    Panel104.Visible:=false;
    DBNavigator1.Visible:=false;
    BitBtn1.Visible:=false;
  end; //with

  Form_Rubb_Main.showmodal;
  end; //if

end;

procedure TForm_Main.Label_ExitClick(Sender: TObject);
begin
  Form_Main.WindowState:=wsNormal;
  application.Terminate;
end;


procedure TForm_Main.FormCreate(Sender: TObject);
begin
  application.HintPause:=0;
  bitbtn1.Height:=0;
  bitbtn1.Width:=0;

  n11.ShortCut:=hotkey1.hotkey;
  n21.ShortCut:=hotkey2.hotkey;
  n31.ShortCut:=hotkey3.hotkey;
  n41.ShortCut:=hotkey4.hotkey;
  n51.ShortCut:=hotkey5.hotkey;
  n61.ShortCut:=hotkey6.hotkey;
  n71.ShortCut:=hotkey7.hotkey;
  n81.ShortCut:=hotkey8.hotkey;

  hotkey1.visible:=false;
  hotkey2.visible:=false;
  hotkey3.visible:=false;
  hotkey4.visible:=false;
  hotkey5.visible:=false;
  hotkey6.visible:=false;

end;

procedure TForm_Main.Label_SulfMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    Label_Sulf.font.Color:=clred;

end;

procedure TForm_Main.Label_ProdMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    Label_Prod.font.Color:=clred;

end;

procedure TForm_Main.Label_SysMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    Label_Sys.font.Color:=clred;

    
end;

procedure TForm_Main.Label_ProdClick(Sender: TObject);
begin
   with frmProdMain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 职务 = :v_identy or 职务 = :v_iden or 职务 = :v_id');
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='成品仓库';
       parambyname('v_id').asstring:='会计';
      open;
      if recordcount = 0 then
      begin
        messagedlg('总经理或（和）成品仓库管理人员、会计'+#13+'还没有注册,请尽快注册!',mtinformation,[mbok],0);
        form_main.WindowState:=wsminimized;
        frmProdMain.showmodal;
        exit;
      end; //if
    end; //with

  if Frmprodpass.showmodal = mrok then
  begin
    with frmProdMain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and (职务 = :v_identy or 职务 = :v_iden or 职务 = :v_id) ');
      parambyname('v_pass').asstring:=Frmprodpass.Password.text;
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='成品仓库';
       parambyname('v_id').asstring:='会计';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        Frmprodpass.Password.text:='';
        exit;
      end; //if
    end; //with
  form_main.WindowState:=wsminimized;
  frmProdMain.showmodal;
 end;
end;

procedure TForm_Main.BitBtn1Click(Sender: TObject);
begin
  Form_Main.WindowState:=wsNormal;
  application.Terminate;
end;

procedure TForm_Main.Label_SysClick(Sender: TObject);
begin
  form_main.WindowState:=wsminimized;
  frmSysSet.showmodal;
end;

procedure TForm_Main.Label_SulfClick(Sender: TObject);
begin
    with FrmSulfMain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 职务 = :v_identy or 职务 = :v_iden ');
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='硫化车间';
      open;
      if recordcount = 0 then
      begin
        messagedlg('总经理或（和）硫化车间管理人员'+#13+'还没有注册,请尽快注册!',mtinformation,[mbok],0);
        form_main.WindowState:=wsminimized;
        FrmSulfMain.showmodal;
        exit;
      end; //if
    end; //with

  if Frmsulfpass.showmodal = mrok then
  begin
    with FrmSulfMain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and (职务 = :v_identy or 职务 = :v_iden) ');
      parambyname('v_pass').asstring:=Frmsulfpass.Password.text;
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='硫化车间';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        Frmsulfpass.Password.text:='';
        exit;
      end; //if
    end; //with
  form_main.WindowState:=wsminimized;
  frmSulfMain.showmodal;
 end;
end;


procedure TForm_Main.Label1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
    Label1.font.Color:=clred;
end;

procedure TForm_Main.Label2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 Label2.font.Color:=clred;
end;

procedure TForm_Main.Label2Click(Sender: TObject);
begin
   with Form_dingdanmain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 职务 = :v_identy or 职务 = :v_iden ');
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='订单计划';
      open;
      if recordcount = 0 then
      begin
        messagedlg('总经理或（和）订单计划管理人员'+#13+'还没有注册,请尽快注册!',mtinformation,[mbok],0);
        form_main.WindowState:=wsminimized;
        Form_dingdanmain.showmodal;
        exit;
      end; //if
    end; //with

  if Form_dingdanpass.showmodal = mrok then
  begin
    with Form_dingdanmain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and (职务 = :v_identy or 职务 = :v_iden) ');
      parambyname('v_pass').asstring:=Form_dingdanpass.Password.text;
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='订单计划';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        Form_dingdanpass.Password.text:='';
        exit;
      end; //if
    end; //with
 form_main.WindowState:=wsminimized;
  Form_dingdanmain.showmodal;
 end;
end;

procedure TForm_Main.Label1Click(Sender: TObject);
begin
 with Form_modemain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 职务 = :v_identy or 职务 = :v_iden or 职务 = :v_id');
      parambyname('v_identy').asstring:='整修车间';
      parambyname('v_iden').asstring:='总经理';
       parambyname('v_id').asstring:='会计';
      open;
      if recordcount = 0 then
      begin
        messagedlg('总经理或（和）整修车间、会计还'#13+'没有注册,请尽快注册!',mtinformation,[mbok],0);
        Form_modemain.showmodal;
        exit;
      end; //if
    end; //with

  if Form_modepass.showmodal = mrok then
  begin
    with Form_modemain.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and (职务 = :v_identy or 职务 = :v_iden or 职务 = :v_id ) ');
      parambyname('v_pass').asstring:=Form_mater_pass.Password.text;
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='整修车间';
      parambyname('v_id').asstring:='会计';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        Form_modepass.Password.text:='';
        exit;
      end; //if
    end; //with
  Form_modemain.showmodal;
 end;
end;

end.