winyuangong.pas

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

    self.Cursor := Cursors.Default;
    //返回值设定
    result:= True;
  except
    on ex:Exception do
    begin
      //事务回滚
      clsmain.TClass1.Create.rollback();
      //设置当前光标为默认状态
      self.Cursor := Cursors.Default;
      messagebox.Show('TWinUser.Data_Ent : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据修改
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinYUangong.Data_Upd: 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 + ' UPDATE 员工基本信息表 SET';
    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 + ' WHERE 员工编号='''+w_Textbianhao+'''';
    clsmain.TClass1.Create.begintrans();            //开始事务
    clsmain.TClass1.Create.Cmn_Ado_Execute(w_SQL);  //执行SQL语句
    clsmain.TClass1.Create.Commit();                //提交事务

    //设置当前光标为默认状态
    self.Cursor := Cursors.Default;
    //返回值设定
    result:= True;
  except
    on ex:Exception do
    begin
      //事务回滚
      clsmain.TClass1.Create.rollback();
      //设置当前光标为默认状态
      self.Cursor := Cursors.Default;
      messagebox.Show('TWinUser.Data_Ent : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据删除
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinyuangong.Data_Del: boolean;
var
  w_sql:string;
  w_textbianhao:string;
begin
  try
    //设置当前光标为忙等待状态
    self.Cursor:=cursors.WaitCursor;
    w_textbianhao:=textbianhao.Text.Trim();

    w_SQL := '';
    w_SQL := w_SQL + ' DELETE FROM 员工基本信息表';
    w_SQL := w_SQL + ' WHERE 员工编号='''+w_Textbianhao+'''';

    clsmain.TClass1.Create.BeginTrans();            //开始事务
    clsmain.TClass1.Create.Cmn_Ado_Execute(w_SQL);  //执行SQL语句
    clsmain.TClass1.Create.Commit();                //提交事务

    //设置当前光标为默认状态
    self.Cursor := Cursors.Default;
    //返回值设定
    result:= True;
  except
    on ex:Exception do
    begin
      //事务回滚
      clsmain.TClass1.Create.Rollback();
      //设置当前光标为默认状态
      self.Cursor := Cursors.Default;
      messagebox.Show('TWinUser.Data_Del : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ButFind_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinYuanGong.Butfind_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    //项目Check
    If Item_CheckF() = False Then
    begin
      Exit;
    end;
   //数据查看
    Data_Get();
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.ButFind_Click : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据查看
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function TWinyuangong.Data_Get: boolean;
var
  w_SQL:String;
  w_SQLWhere:String;
  w_textbianhaoF:string;
  w_textnameF:string;
  w_cmbsexF:string;
  w_cmbdepartF:string;
  w_cmbpostF:string;
  w_cmbxueliF:string;
  w_DateTimePicker2F:string;
  w_texttelF:string;
  w_textadressF:string;
  like:string;
begin
 try
   //设置当前光标为忙等待状态
    self.Cursor:=cursors.WaitCursor;
    w_textbianhaoF:=textbianhaoF.Text.Trim();
    w_textnameF:=textnameF.Text.Trim();
    w_cmbsexF:=cmbsexF.Text.Trim;
    w_cmbdepartF:=cmbdepartF.Text.Trim();
    w_cmbpostF:=cmbpostF.Text.Trim();
    w_cmbxueliF:=cmbxueliF.Text.Trim();
    w_DateTimePicker2F:=datetimepicker2F.Text.Trim();
    w_texttelF:=texttelF.Text.Trim();
    w_textadressF:=textadressF.Text.Trim();
    w_SQL := '';
    w_SQL := w_SQL + ' SELECT 员工编号,';
    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 + ' From 员工基本信息表';

    w_sqlwhere:='';
    if w_textbianhaoF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' and 员工编号=''' + w_textbianhaoF + '''';
    end;
    if w_textnameF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' AND 姓名 like ''%' + w_TextNameF +'%''';
    end;
    if w_cmbsexF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' and 性别=''' + w_cmbsexF + '''';
    end;
    if checkbox1.Checked=true then
    begin
         w_sqlwhere :=w_sqlwhere + ' and left(出生日期,4)=''' + w_DateTimePicker2F + '''';
    end;
    if   w_cmbdepartF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' and 部门名称=''' + w_cmbdepartF + '''';
    end;
    if w_cmbpostF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' and 职务=''' + w_cmbpostF + '''';
    end;
    if w_cmbxueliF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' and 学历=''' + w_cmbxueliF + '''';
    end;
    if w_texttelF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' and 联系电话=''' + w_texttelF + '''';
    end;
    if w_textadressF <> '' then
    begin
      w_sqlwhere :=w_sqlwhere + ' and 家庭住址=''' + w_textadressF + '''';
    end;

    If w_SQLWhere <> '' Then
    begin
      w_SQLWhere := ' WHERE 员工编号<>'''' '+w_SQLWhere;
      w_SQL := w_SQL + w_SQLWhere;
    End;
   //执行SQL语句并把记录集返回
    dgds:=clsmain.TClass1.Create.cmn_ado_select(w_sql);
    If Flg <> '添加' Then
    begin
      If DGDs.Tables[0].Rows.Count <> 0 Then
      begin
        Textbianhao.text:= clsmain.TClass1.Create.getItemValueS(DGDs, 0, '员工编号').ToString;
        Textname.Text := clsmain.TClass1.Create.getItemValueS(DGDs, 0, '姓名').ToString;
        cmbsex.Text:=clsmain.TClass1.Create.getItemValueS(dgds, 0, '性别').ToString;
        //DateTimePicker1.Text := clsmain.TClass1.Create.getItemValueS(DGDs, 0, '出生日期').ToString;
        cmbdepart.Text:=clsmain.TClass1.Create.getItemValueS(dgds, 0, '部门名称').ToString;
        cmbpost.Text:=clsmain.TClass1.Create.getItemValueS(dgds, 0, '职务').ToString;
        cmbxueli.Text := clsmain.TClass1.Create.getItemValueS(DGDs, 0, '学历').ToString;
        texttel.Text:=clsmain.TClass1.Create.getItemValueS(dgds, 0, '联系电话').ToString;
        Textadress.Text := clsmain.TClass1.Create.getItemValueS(DGDs, 0, '家庭住址').ToString;
        textbeizhu.Text:=clsmain.TClass1.Create.getItemValueS(dgds, 0, '备注').ToString;
      end
      else
      begin
         TextBianhao.Text:='';
         Textname.Text:='';
         cmbsex.Text:='';
         cmbpost.Text:='';
         cmbdepart.Text:='';
         //DateTimePicker1.Text:='00:00';
         cmbxueli.Text:='';
         Texttel.Text:='';
         Textadress.Text:='';
         Textbeizhu.Text:='';
      end;
   end;
   //DataGrid控件装载数据
    DataGrid1.DataSource := DGDs.Tables[0];
    //设置当前光标为默认状态
    self.Cursor := Cursors.Default;
    //返回值设定
    result:= True;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinyuangong.Data_Get : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  TabControl1_SelectedIndexChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinYuanGong.tabcontrol1_SelectedIndexChanged(sender: System.Object;
  e: System.EventArgs);
begin
  try
    If Flg <> '添加' Then
    begin
      If TabControl1.SelectedTab.Name = 'TabPage1' Then
      begin
        ToolBar1.Buttons[0].Enabled := True; //添加按钮可用
        ToolBar1.Buttons[1].Enabled := True; //编辑按钮可用
        ToolBar1.Buttons[2].Enabled := False;//保存按钮不可用
        ToolBar1.Buttons[3].Enabled := True; //删除按钮可用
        RefreshEnabled(False, False);
      End;
    End;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinUser.TabControl1_SelectedIndexChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  DataGrid1_CurrentCellChanged
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinYuanGong.DataGrid1_CurrentCellChanged(sender: System.Object; e: System.EventArgs);
begin
  try
    If Flg <> '添加' Then
    begin
      Textbianhao.Text := clsmain.TClass1.Create.getItemValueS(DGDs, DataGrid1.CurrentCell.RowNumber, '员工编号').ToString;
      Textname.Text := clsmain.TClass1.Create.getItemValueS(DGDs, DataGrid1.CurrentCell.RowNumber, '姓名').ToString;
      cmbsex.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'性别').ToString;
      DateTimePicker1.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'出生日期').ToString;
      cmbdepart.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'部门名称').ToString;
      cmbpost.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'职务').ToString;
      cmbxueli.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'学历').ToString;
      texttel.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'联系电话').ToString;
      textadress.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'家庭住址').ToString;
      textbeizhu.Text:=clsmain.TClass1.Create.getItemValueS(dgds,DataGrid1.CurrentCell.RowNumber,'备注').ToString;
    end;
   except
    on ex:Exception do
    begin
      messagebox.Show('TWinYuanGong.DataGrid1_CurrentCellChanged : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*
//*   textbianhao_load(
//*  [参数]
//*      无
//*
//*  [返回]
//*       员工编号
//****************************************************************
function twinyuangong.textbianhao_load():string;
var
  w_sql:string;
  tempa:integer;
begin
  try
    self.Cursor:=cursors.WaitCursor;
    w_sql:='';
    w_sql:= w_sql + ' select *';
    w_sql:= w_sql + ' from 员工基本信息表';
    w_sql:= w_sql + ' order by 员工编号 desc';
    myds:=dataset.Create;
    myds:=clsmain.TClass1.Create.cmn_ado_select(w_sql);
    if myds.Tables[0].Rows.count=0 then
    begin
      result:='1';
    end
    else
    begin
      tempa:= strtoint(clsmain.TClass1.Create.getItemValueS(myds,0,'员工编号').ToString);
      result:=inttostr(tempa+ 1);
    end;
    self.Cursor:=cursors.Default;
  except
    on ex:Exception do
    begin
      messagebox.Show('twinyuangong.textbianhao_load( : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*   CheckBox1_CheckedChanged   控制出生年份的可用状态
//*  [参数]
//*      无
//*
//*  [返回]
//*       无
//****************************************************************
procedure TWinYuanGong.CheckBox1_CheckedChanged(sender: System.Object