winyuangong.pas

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

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(' TWindiploma.TWindiploma_KeyDown: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TWinUser_Keypress
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinYuanGong.TWinYuanGong_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(' TWindiploma.TWindiploma_Keypress : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;

end;
//****************************************************************
//*  窗体项目清空
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
procedure  twinyuangong.item_clear();
begin
   try
     self.TextBianhao.Text:='';
     self.Textname.Text:='';
     self.cmbsex.Text:='';
     self.cmbpost.Text:='';
     self.cmbdepart.Text:='';
     self.DateTimePicker1.Text:='';
     self.cmbxueli.Text:='';
     self.Texttel.Text:='';
     self.Textadress.Text:='';
     self.Textbeizhu.Text:='';

     self.TextbianhaoF.Text:='';
     self.TextnameF.Text:='';
     self.cmbsexF.Text:='';
     self.cmbdepartF.Text:='';
     self.cmbpostF.Text:='';
     self.cmbsexF.Text:='';
     self.DateTimePicker2F.Text:='';
     self.cmbxueliF.Text:='';
     self.TexttelF.Text:='';
     self.TextadressF.Text:='';
     if clsmain.quanxian<>'1' then
    begin
      tabcontrol1.TabPages[0].Enabled:=false;
    end;
 except
    on ex:Exception do
    begin
      messagebox.Show('twinyuangong.item_clear: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  RefreshEnabled
//*
//*  [参数]
//*      1：员工编号的可用状态
//*      2：其它输入控件的可用状态
//*  [返回]
//*      无
//****************************************************************
procedure TWinyuangong.RefreshEnabled(NThis, NOther: Boolean);
begin
  try
    If NThis = True Then
    begin
      Textbianhao.ReadOnly := False;
    end
    Else
    begin
      Textbianhao.ReadOnly := True;
    end;
     Textname.Enabled:=Nother;
     cmbsex.Enabled:=Nother;
     cmbpost.Enabled:=Nother;
     cmbdepart.Enabled:=Nother;
     cmbsex.Enabled:=Nother;
     DateTimePicker1.Enabled:=Nother;
     cmbxueli.Enabled:=Nother;
     Texttel.Enabled:=Nother;
     Textadress.Enabled:=Nother;
     Textbeizhu.Enabled:=Nother;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinyuangong.RefreshEnabled: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinyuangong.item_check():boolean;
begin
  try
    //员工编号
    if check_textbianhao()=false then
    begin
      self.Textbianhao.Focus;
      exit;
    end;
     //员工姓名
    if check_textname()=false then
    begin
      self.Textname.Focus;
      exit;
    end;
     //部门
    If Check_Cmbdepart()=False Then
    begin
      self.Cmbdepart.Focus();
      Exit;
    End;
    //职务
    If Check_Cmbpost()=False Then
    begin
      self.Cmbpost.Focus();
      Exit;
    End;
     result:=true;
    //性别
    If Check_CmbSex()=False Then
    begin
      self.CmbSex.Focus();
      Exit;
    End;
    //联系电话
    If Check_TextTel()=False Then
    begin
      self.TextTel.Focus();
      Exit;
    End;
    //住址
    If Check_TextAddress()=False Then
    begin
      self.TextAdress.Focus();
      Exit;
    End;
    //备注
    If Check_Textbeizhu()=False Then
    begin
      self.Textbeizhu.Focus();
      Exit;
    End;
  except
    on ex:Exception do
    begin
      messagebox.Show('twinyuangong.item_check(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  项目CheckF
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinyuangong.item_checkF():boolean;
begin
  try
    //员工编号
    if check_textbianhaoF()=false then
    begin
      self.TextbianhaoF.Focus;
      exit;
    end;
     //员工姓名
    if check_textnameF()=false then
    begin
      self.TextnameF.Focus;
      exit;
    end;
    //Address
    if Check_TextAddressF()=false then
    begin
      self.textadressF.Focus;
      exit;
    end;
    if Check_TextTelF()=false then
    begin
      self.TexttelF.Focus;
      exit;
    end;
     result:=true;
  except
    on ex:Exception do
    begin
      messagebox.Show('twinyuangong.item_check(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  员工编号 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinyuangong.check_textbianhao():boolean;
var
   w_textbianhao:string;
begin
  try
     w_textbianhao:=textbianhao.Text.Trim();
     if w_textbianhao.Length>10 then
     begin
        messagebox.Show('长度超出最大范围','员工信息管理');
        result:=false;
        exit;
     end;
      result:=true;
  except
    on ex:Exception do
    begin
      messagebox.Show('twinyuangong.check_textbianhao(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  员工姓名 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinyuangong.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('twinyuangong.check_textname(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  员工编号 项目CheckF
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinyuangong.check_textbianhaoF():boolean;
var
  w_textbianhaoF:string;
begin
    try
     w_textbianhaoF:=textbianhaoF.Text.Trim();
     if w_textbianhaoF.Length>10 then
     begin
        messagebox.Show('长度超出最大范围','员工信息管理');
        result:=false;
        exit;
     end;
     result:=true;
  except
    on ex:Exception do
    begin
      messagebox.Show('twinyuangong.check_textbianhaoF(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  员工姓名 项目CheckF
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function twinyuangong.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;
     result:=true;
  except
    on ex:Exception do
    begin
      messagebox.Show('twinyuangong.check_textnameF(: (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

//****************************************************************
//*  部门 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function TWinYuanGong.Check_Cmbdepart: Boolean;
var
  w_cmbdepart:string;
begin
   try
    w_Cmbdepart := Cmbdepart.Text.Trim();

    //必须输入Check
    If w_Cmbdepart.Length  = 0 Then
    begin
      messagebox.Show('此项目不能省略','员工管理');
      result:= false;
      Exit;
    End;

    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWinYuanGong.Check_Cmbdepart : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  post 项目Check
//*
//*  [参数]
//*      无
//*  [返回]
//*      1：输入ERR有无 (True：ERR没有、 False：ERR有)
//****************************************************************
function TWinYuanGong.Check_Cmbpost: Boolean;
var
  w_cmbpost:string;
begin
  try
    w_Cmbpost := Cmbpost.Text.Trim();

    //必须输入Check