unitsysset.~pas

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

unit UnitSysSet;

interface

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

type
  TfrmSysSet = class(TForm)
    BitBtn20: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn28: TBitBtn;
    BitBtn29: TBitBtn;
    BitBtn30: TBitBtn;
    BitBtn31: TBitBtn;
    bbExit: TBitBtn;
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn28Click(Sender: TObject);
    procedure BitBtn29Click(Sender: TObject);
    procedure bbExitClick(Sender: TObject);
    procedure BitBtn30Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn31Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSysSet: TfrmSysSet;

implementation

uses UnitDM, UnitDictionary, UnitCommBackup, UnitCommRestore,
  Unit_Mater_SysPass, UnitCommOptionSel, Unit_Main, UnitHLP, Unit_Rubb_Main,
  Unit_Mater_mima, Unit_sysmimapass;

{$R *.DFM}

procedure TfrmSysSet.BitBtn22Click(Sender: TObject);
begin
  dm.tabMaterDictionary.open;
  dm.tabStaff.open;
  dm.tabManufacturer.open;
  dm.tabWorkShop.open;
  dm.tabProdDictionary.open;
 // dm.tabEmployee.open;

  frmCommDictionary.showmodal;

end;

procedure TfrmSysSet.BitBtn28Click(Sender: TObject);
begin
  frmCommBackup.showmodal;

end;

procedure TfrmSysSet.BitBtn29Click(Sender: TObject);
begin
  frmCommRestore.showmodal;

end;

procedure TfrmSysSet.bbExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmSysSet.BitBtn30Click(Sender: TObject);
begin
  with Form_Mater_SysPass.Qry_Login 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_Mater_SysPass.showmodal;
        exit;
      end; //if
    end; //with

  if frmsysmimapass.showmodal = mrok then
  begin
    with Form_Mater_SysPass.Qry_Login do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and (职务 = :v_identy or 职务 = :v_iden ) ');
      parambyname('v_pass').asstring:=frmsysmimapass.Password.text;
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_identy').asstring:='系统维护';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        exit;
      end; //if
    end; //with
    frmSysSet.Hide;
  Form_Mater_SysPass.showmodal;
 end;
end;

procedure TfrmSysSet.BitBtn20Click(Sender: TObject);
begin
   with Form_Rubb_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);
        frmSysOptionSel.show;
        exit;
      end; //if
    end; //with

  if Form_Mater_mima.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 or 职务 = :v_id) ');
      parambyname('v_pass').asstring:=Form_Mater_mima.Password.text;
      parambyname('v_identy').asstring:='总经理';
      parambyname('v_iden').asstring:='会计';
      parambyname('v_id').asstring:='保管员';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误！');
        Form_Mater_mima.close;
        exit;
      end; //if
    end; //with
    Form_Mater_mima.close;
    frmSysSet.visible:=false;
    frmSysOptionSel.show;
  end;
end;

procedure TfrmSysSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form_main.WindowState:=wsMaximized;

end;

procedure TfrmSysSet.BitBtn31Click(Sender: TObject);
begin
frmHelp.showmodal;
end;

end.