rszhgl.~pas

人事管理

dbgrid2.Columns[1].Width:=datasource2.DataSet.Fields[1].DisplayWidth+40;
dbgrid2.Columns[2].Field:=datasource2.DataSet.FieldByName('sex');
dbgrid2.Columns[3].Field:=datasource2.DataSet.FieldByName('ygbm');
dbgrid2.Columns[3].Width:=datasource2.DataSet.Fields[3].DisplayWidth+50;
dbgrid2.Columns[4].Field:=datasource2.DataSet.FieldByName('wpdate');
dbgrid2.Columns[4].Width:=datasource2.DataSet.Fields[4].DisplayWidth+40;
dbgrid2.Columns[5].Field:=datasource2.DataSet.FieldByName('wpadd');
dbgrid2.Columns[5].Width:=datasource2.DataSet.Fields[5].DisplayWidth+50;
dbgrid2.Columns[6].Field:=datasource2.DataSet.FieldByName('wpthing');
dbgrid2.Columns[6].Width:=datasource2.DataSet.Fields[6].DisplayWidth+50;
end;
end;

procedure Tfrmrszhgl.btnwpClick(Sender: TObject);
begin
if edwpdate.Text='' then
begin
showmessage('外派日期不能为空,请填写正确日期.');
edwpdate.SetFocus;
exit;
end
else
begin
if edwpadd.Text='' then
begin
showmessage('员工外派去处不能为空,请填写去处.');
edwpadd.SetFocus;
exit;
end
else
begin
if edwpthing.Text='' then
begin
showmessage('外派事由不能为空,请填写.');
edwpthing.SetFocus;
exit;
end
else
with dmrsgl.ygwptbqry do
begin
close;
sql.clear;
sql.add('select * from ygwptb where number='+quotedstr(combobox2.Text));
open;
if recordcount<>0 then
begin
showmessage('你要外派的员工已经派出.');
combobox2.SetFocus;
exit;
end
else
dmrsgl.ygwptbqry.Append;
fieldbyname('number').AsString:=label21.Caption;
fieldbyname('name').AsString:=trim(edname1.Text);
fieldbyname('sex').AsString:=trim(edsex1.Text);
fieldbyname('ygbm').AsString:=trim(edbm1.Text);
fieldbyname('wpdate').AsDateTime:=strtodatetime(edwpdate.Text);
fieldbyname('wpadd').AsString:=trim(edwpadd.Text);
fieldbyname('wpthing').AsString:=trim(edwpthing.Text);
if messagedlg('请确认输入的外派数据无误,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   post;
   combobox2.SetFocus;
   end
else
   cancel;
end;
end;
end;
end;
procedure Tfrmrszhgl.DateTimePicker2CloseUp(Sender: TObject);
begin
edwpdate.Text:=formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime);
end;

procedure Tfrmrszhgl.btnunregClick(Sender: TObject);
var tempnumber:string;
begin
tempnumber:=inputbox('请输入要注销员工的编号:','员工编号 ：','');
if tempnumber='' then
begin
messagedlg('无效的员工编号,请输入编号后再试!',mtwarning,[mbyes,mbno],0);
exit;
end;
dmrsgl.ygwptbqry.Close;
dmrsgl.ygwptbqry.sql.clear;
if messagedlg('请确认是否真撤回该员工.',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
dmrsgl.ygwptbqry.sql.Add('delete from ygwptb where number='+quotedstr(tempnumber));
dmrsgl.ygwptbqry.ExecSQL;
end;
end;

procedure Tfrmrszhgl.btnfindClick(Sender: TObject);
var tempnumber:string;
begin
tempnumber:=inputbox('请输入要注销员工的编号','员工编号 ：','');
if tempnumber='' then
begin
messagedlg('无效的员工编号,请输入编号后再试!',mtwarning,[mbyes,mbno],0);
exit;
end;
dmrsgl.ygwptbqry.Close;
dmrsgl.ygwptbqry.sql.clear;
dmrsgl.ygwptbqry.SQL.Add('select * from ygwptb where number='+quotedstr(tempnumber));
dmrsgl.ygwptbqry.Open;
if dmrsgl.ygwptbqry.RecordCount=0 then
begin
showmessage('你要查找的外派员工已撤回或没外派.');
exit;
end
else
datasource2.DataSet:=dmrsgl.ygwptbqry;
dbgrid2.DataSource:=datasource2;
dbgrid2.Columns[0].Field:=datasource2.DataSet.FieldByName('number');
dbgrid2.Columns[0].Width:=datasource2.DataSet.Fields[0].DisplayWidth+50;
dbgrid2.Columns[1].Field:=datasource2.DataSet.FieldByName('name');
dbgrid2.Columns[1].Width:=datasource2.DataSet.Fields[1].DisplayWidth+40;
dbgrid2.Columns[2].Field:=datasource2.DataSet.FieldByName('sex');
dbgrid2.Columns[3].Field:=datasource2.DataSet.FieldByName('ygbm');
dbgrid2.Columns[3].Width:=datasource2.DataSet.Fields[3].DisplayWidth+50;
dbgrid2.Columns[4].Field:=datasource2.DataSet.FieldByName('wpdate');
dbgrid2.Columns[4].Width:=datasource2.DataSet.Fields[4].DisplayWidth+40;
dbgrid2.Columns[5].Field:=datasource2.DataSet.FieldByName('wpadd');
dbgrid2.Columns[5].Width:=datasource2.DataSet.Fields[5].DisplayWidth+50;
dbgrid2.Columns[6].Field:=datasource2.DataSet.FieldByName('wpthing');
dbgrid2.Columns[6].Width:=datasource2.DataSet.Fields[6].DisplayWidth+50;
end;

procedure Tfrmrszhgl.btncountClick(Sender: TObject);
var tempstr:string;     //定义统计方式变量
var tj:integer;
begin
tempstr:=inputbox('请输入统计方式','统计只可按性别或部门方式','');
if tempstr='' then
begin
messagedlg('无效的统计方式,请输入后再试!',mtwarning,[mbyes,mbno],0);
exit;
end;
if (tempstr='男') or (tempstr='女') then
begin
dmrsgl.ygwptbqry.Close;
dmrsgl.ygwptbqry.SQL.Clear;
dmrsgl.ygwptbqry.SQL.Add('select * from ygwptb where sex='+quotedstr(tempstr));
dmrsgl.ygwptbqry.Open;
tj:=dmrsgl.ygwptbqry.RecordCount;
showmessage('现已派出'+tempstr+'性员工'+inttostr(tj)+'人');
exit;
end
else
dmrsgl.ygwptbqry.Close;
dmrsgl.ygwptbqry.SQL.Clear;
dmrsgl.ygwptbqry.SQL.Add('select * from ygwptb where ygbm='+quotedstr(tempstr));
dmrsgl.ygwptbqry.Open;
tj:=dmrsgl.ygwptbqry.RecordCount;
showmessage('现已派出'+tempstr+'部门员工'+inttostr(tj)+'人');
end;

procedure Tfrmrszhgl.DateTimePicker3CloseUp(Sender: TObject);
begin
edctdate.Text:=formatdatetime('yyyy-mm-dd',datetimepicker3.DateTime);
end;

procedure Tfrmrszhgl.ComboBox3Change(Sender: TObject);
begin
with dmrsgl.ygjbzlqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer where number='+quotedstr(combobox3.Text));
open;
label31.Caption:=fieldbyname('number').AsString;
edname3.Text:=fieldbyname('name').AsString;
edsex3.Text:=fieldbyname('sex').AsString;
edbm3.Text:=fieldbyname('ygbm').AsString;
edposition.Text:=fieldbyname('position').AsString;
end;
end;

procedure Tfrmrszhgl.btnctClick(Sender: TObject);
begin
btnreturn.Enabled:=true;
if edctthing.Text='' then
begin
showmessage('该员工离职原因不能为空.');
edctthing.SetFocus;
exit;
end
else
begin
if edqp.Text='' then
begin
showmessage('批准辞职人必须填写,不能为空.');
edqp.SetFocus;
exit;
end
else
with dmrsgl.ygcttbqry do
begin
close;
sql.Clear;
sql.Add('select * from ygcttb');
open;
append;
fieldbyname('number').AsString:=label31.Caption;
fieldbyname('name').AsString:=trim(edname3.Text);
fieldbyname('sex').AsString:=trim(edsex3.Text);
fieldbyname('ygbm').AsString:=trim(edbm3.Text);
fieldbyname('position').AsString:=trim(edposition.Text);
fieldbyname('ctdate').AsDateTime:=strtodatetime(edctdate.Text);
fieldbyname('ctthing').AsString:=trim(edctthing.Text);
fieldbyname('acceptor').AsString:=trim(edqp.Text);
if messagedlg('请确认输入的辞退数据无误并且也要从人事表中清除资料,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   post;
   combobox3.SetFocus;
   end
else
   cancel;
end;
end;
end;
procedure Tfrmrszhgl.btnreturnClick(Sender: TObject);
begin
dmrsgl.ygjbzlqry.Close;
dmrsgl.ygjbzlqry.sql.clear;
if messagedlg('请确认是否真删除该员工.',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
dmrsgl.ygjbzlqry.sql.Add('delete from  employeer where number='+quotedstr(combobox3.Text));
dmrsgl.ygjbzlqry.ExecSQL;
btnreturn.Enabled:=false;
end;
end;

procedure Tfrmrszhgl.btnrefresh3Click(Sender: TObject);
begin
with dmrsgl.ygcttbqry do
begin
close;
sql.Clear;
sql.Add('select * from ygcttb');
open;
if recordcount=0 then
begin
messagedlg('公司不存在辞职记录,请稍后再试.',mtconfirmation,[mbyes],0);
exit;
end
else
datasource3.DataSet:=dmrsgl.ygcttbqry;
dbgrid3.DataSource:=datasource3;
dbgrid3.Columns[0].Field:=datasource3.DataSet.FieldByName('number');
dbgrid3.Columns[0].Width:=datasource3.DataSet.Fields[0].DisplayWidth+50;
dbgrid3.Columns[1].Field:=datasource3.DataSet.FieldByName('name');
dbgrid3.Columns[1].Width:=datasource3.DataSet.Fields[1].DisplayWidth+40;
dbgrid3.Columns[2].Field:=datasource3.DataSet.FieldByName('sex');
dbgrid3.Columns[3].Field:=datasource3.DataSet.FieldByName('ygbm');
dbgrid3.Columns[3].Width:=datasource3.DataSet.Fields[3].DisplayWidth+50;
dbgrid3.Columns[4].Field:=datasource3.DataSet.FieldByName('position');
dbgrid3.Columns[4].Width:=datasource3.DataSet.Fields[4].DisplayWidth+40;
dbgrid3.Columns[5].Field:=datasource3.DataSet.FieldByName('ctdate');
dbgrid3.Columns[5].Width:=datasource3.DataSet.Fields[5].DisplayWidth+50;
dbgrid3.Columns[6].Field:=datasource3.DataSet.FieldByName('ctthing');
dbgrid3.Columns[6].Width:=datasource3.DataSet.Fields[6].DisplayWidth+50;
dbgrid3.Columns[7].Field:=datasource3.DataSet.FieldByName('acceptor');
dbgrid3.Columns[7].Width:=datasource3.DataSet.Fields[7].DisplayWidth+50;
end;
end;
procedure Tfrmrszhgl.btntj3Click(Sender: TObject);
var tempstr:string;     //定义统计方式变量
var tj:integer;
begin
tempstr:=inputbox('请输入统计方式','统计只可按性别或部门方式','');
if tempstr='' then
begin
messagedlg('无效的统计方式,请输入后再试!',mtwarning,[mbyes,mbno],0);
exit;
end;
if (tempstr='男') or (tempstr='女') then
begin
dmrsgl.ygwptbqry.Close;
dmrsgl.ygwptbqry.SQL.Clear;
dmrsgl.ygwptbqry.SQL.Add('select * from ygcttb where sex='+quotedstr(tempstr));
dmrsgl.ygwptbqry.Open;
tj:=dmrsgl.ygwptbqry.RecordCount;
showmessage('到目前为止已辞退'+tempstr+'性员工'+inttostr(tj)+'人');
exit;
end
else
dmrsgl.ygwptbqry.Close;
dmrsgl.ygwptbqry.SQL.Clear;
dmrsgl.ygwptbqry.SQL.Add('select * from ygcttb where ygbm='+quotedstr(tempstr));
dmrsgl.ygwptbqry.Open;
tj:=dmrsgl.ygwptbqry.RecordCount;
showmessage('到目前为止已辞退'+tempstr+'部门员工'+inttostr(tj)+'人');
end;

procedure Tfrmrszhgl.btnfind3Click(Sender: TObject);
var tempstr:string;
begin
tempstr:=inputbox('请输入查询方式','查询只可按性别或部门方式','');
if tempstr='' then
begin
messagedlg('无效的查询内容,请输入正确后再试!',mtwarning,[mbyes,mbno],0);
exit;
end;
if (tempstr='男') or (tempstr='女') then
    begin
    dmrsgl.ygcttbqry.Close;
    dmrsgl.ygcttbqry.sql.clear;
    dmrsgl.ygcttbqry.SQL.Add('select * from ygcttb where number='+quotedstr(tempstr));
    dmrsgl.ygcttbqry.Open;
    if dmrsgl.ygcttbqry.RecordCount=0 then
       begin
       showmessage('查找不到辞退员工记录.');
       exit;
       end
    else
    begin
    datasource3.DataSet:=dmrsgl.ygcttbqry;
    dbgrid3.DataSource:=datasource3;
    dbgrid3.Columns[0].Field:=datasource3.DataSet.FieldByName('number');
    dbgrid3.Columns[0].Width:=datasource3.DataSet.Fields[0].DisplayWidth+50;
    dbgrid3.Columns[1].Field:=datasource3.DataSet.FieldByName('name');
    dbgrid3.Columns[1].Width:=datasource3.DataSet.Fields[1].DisplayWidth+40;
    dbgrid3.Columns[2].Field:=datasource3.DataSet.FieldByName('sex');
    dbgrid3.Columns[3].Field:=datasource3.DataSet.FieldByName('ygbm');
    dbgrid3.Columns[3].Width:=datasource3.DataSet.Fields[3].DisplayWidth+50;
    dbgrid3.Columns[4].Field:=datasource3.DataSet.FieldByName('position');
    dbgrid3.Columns[4].Width:=datasource3.DataSet.Fields[4].DisplayWidth+40;
    dbgrid3.Columns[5].Field:=datasource3.DataSet.FieldByName('ctdate');
    dbgrid3.Columns[5].Width:=datasource3.DataSet.Fields[5].DisplayWidth+50;
    dbgrid3.Columns[6].Field:=datasource3.DataSet.FieldByName('ctthing');
    dbgrid3.Columns[6].Width:=datasource3.DataSet.Fields[6].DisplayWidth+50;
    dbgrid3.Columns[7].Field:=datasource3.DataSet.FieldByName('acceptor');
    dbgrid3.Columns[7].Width:=datasource3.DataSet.Fields[7].DisplayWidth+50;
    end;
    end
else
    begin
    dmrsgl.ygcttbqry.Close;
    dmrsgl.ygcttbqry.sql.clear;
    dmrsgl.ygcttbqry.SQL.Add('select * from ygcttb where ygbm='+quotedstr(tempstr));
    dmrsgl.ygcttbqry.Open;
    if dmrsgl.ygcttbqry.RecordCount=0 then
        begin
        showmessage('查找不到辞退员工记录.');
        exit;
        end
   else
   begin
   datasource3.DataSet:=dmrsgl.ygcttbqry;
   dbgrid3.DataSource:=datasource3;
   dbgrid3.Columns[0].Field:=datasource3.DataSet.FieldByName('number');
   dbgrid3.Columns[0].Width:=datasource3.DataSet.Fields[0].DisplayWidth+50;
   dbgrid3.Columns[1].Field:=datasource3.DataSet.FieldByName('name');
   dbgrid3.Columns[1].Width:=datasource3.DataSet.Fields[1].DisplayWidth+40;
   dbgrid3.Columns[2].Field:=datasource3.DataSet.FieldByName('sex');
   dbgrid3.Columns[3].Field:=datasource3.DataSet.FieldByName('ygbm');
   dbgrid3.Columns[3].Width:=datasource3.DataSet.Fields[3].DisplayWidth+50;
   dbgrid3.Columns[4].Field:=datasource3.DataSet.FieldByName('position');
   dbgrid3.Columns[4].Width:=datasource3.DataSet.Fields[4].DisplayWidth+40;
   dbgrid3.Columns[5].Field:=datasource3.DataSet.FieldByName('ctdate');
   dbgrid3.Columns[5].Width:=datasource3.DataSet.Fields[5].DisplayWidth+50;
   dbgrid3.Columns[6].Field:=datasource3.DataSet.FieldByName('ctthing');
   dbgrid3.Columns[6].Width:=datasource3.DataSet.Fields[6].DisplayWidth+50;
   dbgrid3.Columns[7].Field:=datasource3.DataSet.FieldByName('acceptor');
   dbgrid3.Columns[7].Width:=datasource3.DataSet.Fields[7].DisplayWidth+50;
   end;
end;
end;
end.