winyuangong.pas

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

    If w_Cmbpost.Length  = 0 Then
    begin
      messagebox.Show('此项目不能省略','员工管理');
      result:= false;
      Exit;
    End;

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

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

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

    //输入位数Check
    If w_TextAdress.Length > 50 Then
    begin
      messagebox.Show('输入长度超出最大范围','员工管理');
      result:= false;
      Exit;
    End;

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

    //输入位数Check
    If w_TextAdressF .Length >50 Then
    begin
      messagebox.Show('输入长度超出最大范围','员工管理');
      result:= false;
      Exit;
    End;

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

    //输入位数Check
    If w_textbeizhu.Length > 100 Then
    begin
      messagebox.Show('输入长度超出最大范围','员工管理');
      result:= false;
      Exit;
    End;

    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWinYuanGong.Check_Textbeizhu : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;

function TWinYuanGong.Check_TextTel: Boolean;
var
  w_texttel:string;
begin
  try
    w_TextTel := TextTel.Text.Trim();

    //输入位数Check
    If w_TextTel.Length > 20 Then
    begin
      messagebox.Show('输入长度超出最大范围','员工管理');
      result:= false;
      Exit;
    End;

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

    //输入位数Check
    If w_TextTelF .Length >20 Then
    begin
      messagebox.Show('输入长度超出最大范围','员工管理');
      result:= false;
      Exit;
    End;

    //返回值设定
    result:= True;  //正常返回设定
  except
    on ex:Exception do
    begin
      result:=false;
      messagebox.Show('TWinYuanGong.Check_TextTTelF  : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;


//****************************************************************
//*  ToolBar1_ButtonClick
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinYuanGong.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(false,true);
        //自动获取员工的编号
        textbianhao.Text:=textbianhao_load();
     end;
     2: // 编辑
     begin
        if textbianhao.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);
     end;
       4://删除
      begin
        If Textbianhao.Text = '' Then
        begin
          messagebox.Show('无删除数据。', '考勤管理系统');
        end
        else
        begin
          //是否删除数据?
          if MessageBox.Show('真的要删除该条记录吗？','提示',MessageBoxButtons.OKCancel,MessageboxIcon.Information) =
            System.Windows.Forms.DialogResult.OK then
          begin
            Flg :='';
            //数据删除
            If Data_Del() = True Then
            begin
              messagebox.Show('数据已删除完成。', '考勤管理系统');
            end
            Else
            begin
              messagebox.Show('数据删除失败。', '考勤管理系统');
            End;
            Item_Clear();
            RefreshEnabled(False, False);
          end;
        end;
      end;
      5://取消
      begin
        Flg := '';
        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);
      end;
   end;  
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.ToolBar1_ButtonClick : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
 
end;
//****************************************************************
//*  数据添加
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinyuangong.Data_Ent: boolean;
var
  w_sql:string;
  w_textbianhao:string;
  w_textname:string;
  w_cmbsex:string;
  w_cmbdepart:string;
  w_cmbpost:string;
  w_cmbxueli:string;
  w_DateTimePicker1:string;
  w_texttel:string;
  w_textadress:string;
  w_textbeizhu:string;
begin
  try
    //设置当前光标为忙等待状态
    self.Cursor:=cursors.WaitCursor;
    w_textbianhao:=textbianhao.Text.Trim();
    w_textname:=textname.Text.Trim();
    w_cmbsex:=cmbsex.Text.Trim();
    w_cmbdepart:=cmbdepart.Text.Trim();
    w_cmbpost:=cmbpost.Text.Trim();
    w_cmbxueli:=cmbxueli.Text.Trim();
    w_DateTimePicker1:=datetimepicker1.Text.Trim();
    w_texttel:=texttel.Text.Trim();
    w_textadress:=textadress.Text.Trim();
    w_textbeizhu:=textbeizhu.Text.Trim();

    w_SQL := '';
    w_SQL := w_SQL + ' INSERT INTO 员工基本信息表(';
    w_SQL := w_SQL + ' 员工编号,';
    w_SQL := w_SQL + ' 姓名,';
    w_SQL := w_SQL + ' 性别,';
    w_SQL := w_SQL + ' 出生日期,';
    w_SQL := w_SQL + ' 部门名称,';
    w_SQL := w_SQL + ' 职务,';
    w_SQL := w_SQL + ' 学历,';
    w_SQL := w_SQL + ' 联系电话,';
    w_SQL := w_SQL + ' 家庭住址,';
    w_SQL := w_SQL + ' 备注';
    w_SQL := w_SQL + ' )VALUES(';
    w_SQL := w_SQL + ''''+w_Textbianhao+''',';
    w_SQL := w_SQL + ''''+w_Textname+''',';
    w_SQL := w_SQL + ''''+w_Cmbsex+''',';
    w_SQL := w_SQL + ''''+w_DateTimePicker1+''',';
    w_SQL := w_SQL + ''''+w_cmbdepart+''',';
    w_SQL := w_SQL + ''''+w_Cmbpost+''',';
    w_SQL := w_SQL + ''''+w_cmbxueli+''',';
    w_SQL := w_SQL + ''''+w_texttel+''',';
    w_SQL := w_SQL + ''''+w_textadress+''',';
    w_SQL := w_SQL + ''''+w_textbeizhu+'''';
    w_SQL := w_SQL + ')';
   
    clsmain.TClass1.Create.begintrans();            //开始事务
    clsmain.TClass1.Create.Cmn_Ado_Execute(w_SQL);  //执行SQL语句
    clsmain.TClass1.Create.Commit();                //提交事务

    //设置当前光标为默认状态