winpost.pas

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

  // TODO: Add any constructor code after InitializeComponent call
  //
end;

procedure TWinpost.TabControl1_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
begin
  
end;



//****************************************************************
//*  窗体加载 [Load]
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.TWinpost_Load(sender: System.Object; e: System.EventArgs);
begin
  try
    clsmain.winpostshowfla:=true;
    //设置各个控件初始值
     item_clear();
     ToolBar1.Buttons[2].Enabled := false;  //保存按钮不可用
     RefreshEnabled(false,false);
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinpost.TWinpost_Load : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
 //****************************************************************
//*  窗体卸载 [Closed]
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.TWinpost_Closed(sender: System.Object; e: System.EventArgs);
begin
   try
      clsmain.winpostshowfla:=false;
   except
    on ex:Exception do
    begin
      messagebox.Show('TWinpost.TWinpost_closed : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
 //****************************************************************
//*  TWinUser_KeyPress
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.TWinpost_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('TWinpost.TWinpost_KeyPress : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TWinUser_KeyDown
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.TWinpost_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('TWinpost.TWinpost_KeyDown : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  窗体项目清空
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
procedure twinpost.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('TWinpost.TWinpost_item_clear: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  RefreshEnabled
//*
//*  [参数]
//*      1:部门 编号的可用状态
//*      2：其它输入控件的可用状态
//*  [返回]
//*      无
//****************************************************************
procedure Twinpost.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('TWinpost.RefreshEnabled : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//***************************************************************
function  twinpost.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('TWinpost.item_check : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  项目CheckF
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//***************************************************************
function  twinpost.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('TWinpost.item_checkF : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  职务名称 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinpost.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;
    result:=true;
 except
    on ex:Exception do
    begin
      messagebox.Show('TWinpost.check_textname : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  职务名称 项目Check F
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinpost.check_textnameF():boolean;
 var
   w_textnameF:string;
begin
  try
    w_textnameF:=textnameF.Text.Trim();
    if w_textnameF.Length>10 then
    begin
      messagebox.Show('输入长度超出最大范围','部门管理');
      result:= false;
      Exit;
    end
    else
     result:=true;
 except
    on ex:Exception do
    begin
      result:= false;
      messagebox.Show('TWinpost.check_textnameF : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ToolBar1_ButtonClick
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpost.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
          //数据修改