windepart.pas

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

//*  窗体加载 [Load]
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.TWindepart_Load(sender: System.Object; e: System.EventArgs);
begin
   try
     clsmain.Windepartshowfla:=true;
     //设置各个控件初始值
     item_clear();
     ToolBar1.Buttons[2].Enabled := false;  //保存按钮不可用
     RefreshEnabled(false,false);
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.TWindepart_Load : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  窗体卸载 [Closed]
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.TWindepart_Closed(sender: System.Object; e: System.EventArgs);
begin
  try
    clsmain.Windepartshowfla:=false;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.TWindepart_closed : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TWinUser_KeyDown
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.TWindepart_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
begin
  try
    Case e.KeyCode of
    //--- F7 按下=焦点移动到"信息维护"选项卡页
    Keys.F7:
      begin
        e.Handled := False;
        TabControl1.SelectedTab := TabControl1.TabPages[0];
      end;
    //--- F9 按下=焦点移动到"信息查询"选项卡页
    Keys.F9:
      begin
        e.Handled := False;
        TabControl1.SelectedTab := TabControl1.TabPages[1];
      end;
    end;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.TWindepart_KeyDown : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TWinUser_KeyPress
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.TWindepart_KeyPress(sender: System.Object; e: System.Windows.Forms.KeyPressEventArgs);
begin
  try
    Case e.KeyChar of
    char(13):
      begin
        e.Handled := False;
        SendKeys.Send('{Tab}');
      end;
    end;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart_KeyPress : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  窗体项目清空
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
procedure Twindepart.item_clear();
begin
  try
    self.Textname.Text:='';
    self.Textbeizhu.Text:='';
    self.TextNameF.Text:='';
    if clsmain.quanxian<>'1' then
    begin
      tabcontrol1.TabPages[0].Enabled:=false;
    end;
 except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.TWinUser_KeyPress : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  RefreshEnabled
//*
//*  [参数]
//*      1:部门 编号的可用状态
//*      2：其它输入控件的可用状态
//*  [返回]
//*      无
//****************************************************************
procedure Twindepart.RefreshEnabled(NThis:Boolean;NOther:Boolean);
begin
  try
    If NThis = True Then
    begin
      Textname.ReadOnly := False;
    end
    Else
    begin
      Textname.ReadOnly:= True;
    end;
    Textbeizhu.Enabled := NOther;
 except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.RefreshEnabled : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//***************************************************************
function Twindepart.item_check():boolean;
begin
  try

    //部门名称
    if  check_textname()=false then
    begin
      self.Textname.Focus();
      exit;
    end;
    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.item_check : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  项目CheckF
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//***************************************************************
function Twindepart.item_checkF():boolean;
begin
  try
    //部门名称
    if  check_textnameF()=false then
    begin
      self.TextnameF.Focus();
      exit;
    end;
    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      messagebox.Show('TWindepart.item_checkF : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

//****************************************************************
//*  部门名称 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twindepart.check_textname():boolean;
var
  W_textname:string;
begin
 try
  w_textname:=textname.Text.Trim();
  if w_textname.Length>10 then
  begin
     messagebox.Show('输入长度超出最大范围','部门管理');
     result:= false;
     Exit;
  end;
  if w_textname.Length=0 then
  begin
     messagebox.Show('此项目不能省略','部门管理');
     result:= false;
     Exit;
  end;
  result:= True;  //正常返回设定
except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWindepart.Check_Textname : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

//****************************************************************
//*  部门名称 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function TWindepart.check_textnameF: boolean;
var
  w_textnameF:string;
begin
 try
   w_textnameF:=textnameF.Text.Trim();
   if w_textnameF.Length>15 then
   begin
     messagebox.Show('输入长度超出最大范围','部门管理');
     result:= false;
     Exit;
   end;
  
   result:= True;  //正常返回设定
except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWindepart.Check_textnameF : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ToolBar1_ButtonClick
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWindepart.ToolBar1_ButtonClick(sender: System.Object; e: System.Windows.Forms.ToolBarButtonClickEventArgs);
begin
  try
    Case strtoint(e.Button.Tag.ToString) of
      1://添加
      begin
        Flg := '添加';
        ToolBar1.Buttons[1].Enabled := False; //编辑按钮不可用
        ToolBar1.Buttons[2].Enabled := True;  //保存按钮可用
        ToolBar1.Buttons[3].Enabled := False; //删除按钮不可用
        Item_Clear();
        RefreshEnabled(True, True);
      end;
       2://修改
      begin
        If Textname.Text = '' Then
        begin
          messagebox.Show('无修改数据。', '考勤管理系统');
        end
        else
        begin
          Flg := '修改';
          ToolBar1.Buttons[0].Enabled := False; //添加按钮不可用
          ToolBar1.Buttons[2].Enabled := True;  //保存按钮可用
          ToolBar1.Buttons[3].Enabled := False; //删除按钮不可用
          RefreshEnabled(False, True);
        End;
      end;
      3://保存
      begin
        Flg := '';
        //项目Check
        If Item_Check() = False Then
        begin
          Exit;
        End;
        If ToolBar1.Buttons[0].Enabled = True Then
        begin
          //数据添加
          If Data_Ent() = True Then
          begin
            messagebox.Show('数据已添加完成。', '考勤管理系统');
          end
          Else
          begin
            messagebox.Show('数据添加失败。' , '考勤管理系统');
          end;
        end
        Else
        begin
          //数据修改
          If Data_Upd() = True Then
          begin
            messagebox.Show('数据已修改完成。', '考勤管理系统');
          end
          Else
          begin
            messagebox.Show('数据修改失败。', '考勤管理系统');
          End;
        End;  
        ToolBar1.Buttons[0].Enabled := True; //添加按钮可用
        ToolBar1.Buttons[1].Enabled := True; //编辑按钮可用
        ToolBar1.Buttons[2].Enabled := False;//保存按钮不可用
        ToolBar1.Buttons[3].Enabled := True; //删除按钮可用
        Item_Clear();
        RefreshEnabled(False, False);