winmain.~pas

考勤管理 考勤管理 考勤管理

//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menuser_Click(sender: System.Object; e: System.EventArgs);
begin
   try
     if clsmain.WinusershowFla=false then
     begin
        Mtwinuser:=twinuser.create;
        mtwinuser.mdiparent:=self;
        mtwinuser.show;
     end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menuser_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//* Menpass_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menpass_Click(sender: System.Object; e: System.EventArgs);
//var
  // winpass:twinpass;
begin
  try
    if clsmain.winpassshowfla=false then
    begin
      Mtwinpass:=twinpass.Create;
      Mtwinpass.MdiParent:=self;
      Mtwinpass.Show;
    end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menpass_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*   Menreload_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menreload_Click(sender: System.Object; e: System.EventArgs);
var
   login:twinlogin;
   temp:string;  //临时存放登陆用户名的变量
begin
  try
      login:=twinlogin.Create;
      temp:=clsmain.username;
      clsmain.username:='';
      //重新登陆的标记
      winreloadshowfla:=true;
      // winreloadYesOrNo:=true;
      login.Showdialog;
      //通过username是否有值判断重新登陆是否成功
    if clsmain.username<>'' then
    begin
      sbpuser.text:='操作员:'+clsmain.username;
      reload_close_set();  //关闭以前用户打开的窗体
      quanxian_set();  //登陆时根据不同的权限所能操作的范围不同
    end
    else
    begin
      clsmain.username:=temp;
    end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menreload_Click:('+ex.message+')','考勤管理系统');
    end;
  end;

end;
//****************************************************************
//*  退出系统
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menexit_Click(sender: System.Object; e: System.EventArgs);
begin
   try
     if messagebox.Show('确实要退出考勤管理系统吗？','提示信息',messageboxbuttons.okcancel,messageboxicon.information)=system.Windows.Forms.DialogResult.ok then
     begin
       application.Exit;
     end
     else
     begin
          self.Close; 
     end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menexit_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*
//*   MenYuanGong_Click
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.MenYuanGong_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    if clsmain.WinYuanGongshowfla=false then
    begin
       mtwinyuangong:=twinyuangong.Create;
       mtwinyuangong.MdiParent:=self;
       mtwinyuangong.Show;
    end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.MenYuanGong_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*
//*   Menworktime_Clic
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menworktime_Click(sender: System.Object; e: System.EventArgs);

begin
  try
    if clsmain.Winworktimeshowfla=false then
    begin
      Mtwinworktime:=twinworktime.Create;
      Mtwinworktime.MdiParent:=self;
      Mtwinworktime.Show;
    end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menworktime_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  Menabout_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menabout_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    //关于窗体显示标记
    if WinAboutShowFla=false then
    begin
       mtwinabout:=twinabout.create;
       mtwinabout.mdiparent:=self;
       mtwinabout.show;
    end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menabout_Click:('+ex.message+')','考勤管理系统');
    end;
  end;                          
end;
//****************************************************************
//*    Menupost_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menupost_Click(sender: System.Object; e: System.EventArgs);

begin
  try
    if clsmain.winpostshowfla=false  then
    begin
      Mtwinpost:=twinpost.create;
      Mtwinpost.MdiParent:=self;
      mtwinpost.Show;
    end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menupost_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*    menuxueli_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.menuxueli_Click(sender: System.Object; e: System.EventArgs);
begin
   try
    if clsmain.Windiplomashowfla=false then
    begin
        Mtwindiploma:=twindiploma.Create;
        Mtwindiploma.MdiParent:=self;
        Mtwindiploma.Show;
    end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menuxueli_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*
//*   Mendepart_Clic
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Mendepart_Click(sender: System.Object; e: System.EventArgs);
begin
   try
     if  clsmain.Windepartshowfla=false  then
     begin
        Mtwindepart:=twindepart.Create;
        Mtwindepart.MdiParent:=self;
        Mtwindepart.Show;
     end;
  except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Mendepart_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
                                  
end;
//****************************************************************
//*   Menuchuqin_Click
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menuchuqin_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    if clsmain.Winchuqinshowfla=false then
    begin
      Mtwinchuqin:=twinchuqin.Create;
      Mtwinchuqin.MdiParent:=self;
      Mtwinchuqin.Show;
    end;                            
   except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Menuchuqin_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*   Menuchuqin_Click
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Mendelete_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    if clsmain.WinDelshowfla=false then
    begin
      Mtwindel:=twindel.Create;
      Mtwindel.MdiParent:=self;
      Mtwindel.Show;
    end;
   except
    on ex:exception do
    begin
      messagebox.Show('TWinmain.Mendelete_Click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*   Menhelp_Click
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinmain.Menhelp_Click(sender: System.Object; e: System.EventArgs);
var
ConTemp:control;
begin
 ConTemp:=control.Create('Menhelp');
 help.ShowHelp(ConTemp,application.StartupPath+'\database\help.chm');
end;
end.