rszhgl.~pas

人事管理

unit rszhgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls,db, StdCtrls, Buttons, Grids, DBGrids, ToolWin;

type
  Tfrmrszhgl = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    ComboBox1: TComboBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    edname: TEdit;
    edsex: TEdit;
    edoldbm: TEdit;
    edoldposition: TEdit;
    edoldsortwork: TEdit;
    edtddate: TEdit;
    ednewbm: TEdit;
    ednewposition: TEdit;
    ednewsortwork: TEdit;
    DateTimePicker1: TDateTimePicker;
    ToolBar1: TToolBar;
    btnedit: TBitBtn;
    btnsave: TBitBtn;
    btnrefresh: TBitBtn;
    GroupBox4: TGroupBox;
    DBGrid1: TDBGrid;
    TabSheet4: TTabSheet;
    GroupBox6: TGroupBox;
    TabSheet1: TTabSheet;
    GroupBox5: TGroupBox;
    GroupBox7: TGroupBox;
    ToolBar2: TToolBar;
    GroupBox9: TGroupBox;
    GroupBox10: TGroupBox;
    ToolBar3: TToolBar;
    Label13: TLabel;
    ComboBox2: TComboBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DBGrid2: TDBGrid;
    btnwp: TBitBtn;
    btnfind: TBitBtn;
    btnunreg: TBitBtn;
    edname1: TEdit;
    edsex1: TEdit;
    edbm1: TEdit;
    edwpdate: TEdit;
    edwpadd: TEdit;
    edwpthing: TEdit;
    Label21: TLabel;
    GroupBox8: TGroupBox;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    DBGrid3: TDBGrid;
    edname3: TEdit;
    edsex3: TEdit;
    edbm3: TEdit;
    edposition: TEdit;
    edctdate: TEdit;
    edqp: TEdit;
    edctthing: TEdit;
    ComboBox3: TComboBox;
    btnct: TBitBtn;
    btnfind3: TBitBtn;
    btntj3: TBitBtn;
    Label31: TLabel;
    btncount: TBitBtn;
    btnquit: TBitBtn;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DateTimePicker2: TDateTimePicker;
    btnrefresh1: TBitBtn;
    btnreturn: TBitBtn;
    DateTimePicker3: TDateTimePicker;
    btnrefresh3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure btnquitClick(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure btneditClick(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
    procedure btnrefreshClick(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure btnrefresh1Click(Sender: TObject);
    procedure btnwpClick(Sender: TObject);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure btnunregClick(Sender: TObject);
    procedure btnfindClick(Sender: TObject);
    procedure btncountClick(Sender: TObject);
    procedure DateTimePicker3CloseUp(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure btnctClick(Sender: TObject);
    procedure btnreturnClick(Sender: TObject);
    procedure btnrefresh3Click(Sender: TObject);
    procedure btntj3Click(Sender: TObject);
    procedure btnfind3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmrszhgl: Tfrmrszhgl;

implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrmrszhgl.FormShow(Sender: TObject);
begin
edname.Enabled:=false;
edsex.Enabled:=false;
edoldbm.Enabled:=false;
edoldposition.Enabled:=false;
edoldsortwork.Enabled:=false;
with dmrsgl.ygjbzlqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer');
open;
first;
while not eof do
begin
combobox1.Items.Add(fieldbyname('number').AsString);
next;   //下移动符值
end;
end;
end;

procedure Tfrmrszhgl.btnquitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmrszhgl.DateTimePicker1CloseUp(Sender: TObject);
begin
edtddate.Text:=formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime);
end;

procedure Tfrmrszhgl.ComboBox1Change(Sender: TObject);
begin
with dmrsgl.ygjbzlqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer where number='+quotedstr(combobox1.Text));
open;
label11.Caption:=fieldbyname('number').AsString;
edname.Text:=fieldbyname('name').AsString;
edsex.Text:=fieldbyname('sex').AsString;
edoldbm.Text:=fieldbyname('ygbm').AsString;
edoldposition.Text:=fieldbyname('position').AsString;
edoldsortwork.Text:=fieldbyname('worksort').AsString;
end;
end;

procedure Tfrmrszhgl.btneditClick(Sender: TObject);
begin
btnsave.Enabled:=true;
if edtddate.Text='' then
begin
showmessage('最后调动日期不能为空.');
exit;
edtddate.SetFocus;
end
else
begin
if ednewbm.Text='' then
begin
showmessage('调整的部门不能为空,没调整请写入原部门.');
exit;
ednewbm.SetFocus;
end
else
begin
if ednewposition.Text='' then
begin
showmessage('调整的职位不能为空,没调整请写入原职位.');
exit;
ednewposition.SetFocus;
end
else
begin
if ednewsortwork.Text='' then
begin
showmessage('调整的工种不能为空,没调整请写入原工种.');
exit;
ednewsortwork.SetFocus;
end
else
with dmrsgl.ygmovetbqry do
begin
close;
sql.Clear;
sql.Add('select * from ygmovetb where number='+quotedstr(label11.Caption));
open;
if recordcount<>0 then
begin
dmrsgl.ygmovetbqry.Edit;
fieldbyname('oldbm').AsString:=trim(edoldbm.Text);
fieldbyname('oldposition').AsString:=trim(edoldposition.Text);
fieldbyname('oldsortwork').AsString:=trim(edoldsortwork.Text);
fieldbyname('lastmoverq').AsDateTime:=strtodatetime(edtddate.Text);
fieldbyname('newbm').AsString:=trim(ednewbm.Text);
fieldbyname('newposition').AsString:=trim(ednewposition.Text);
fieldbyname('newsortwork').AsString:=trim(ednewsortwork.Text);
end
else
begin
dmrsgl.ygmovetbqry.Append;
fieldbyname('number').AsString:=label11.Caption;
fieldbyname('name').AsString:=trim(edname.Text);
fieldbyname('sex').AsString:=trim(edsex.Text);
fieldbyname('oldbm').AsString:=trim(edoldbm.Text);
fieldbyname('oldposition').AsString:=trim(edoldposition.Text);
fieldbyname('oldsortwork').AsString:=trim(edoldsortwork.Text);
fieldbyname('lastmoverq').AsDateTime:=strtodatetime(edtddate.Text);
fieldbyname('newbm').AsString:=trim(ednewbm.Text);
fieldbyname('newposition').AsString:=trim(ednewposition.Text);
fieldbyname('newsortwork').AsString:=trim(ednewsortwork.Text);
end;
if messagedlg('请确认输入的数据无误,'+#13+'同时也需要执行保存动作更新人事数据,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   post;
   btnsave.SetFocus;
   end
else
   cancel;
end;
end;
end;
end;
end;
procedure Tfrmrszhgl.btnsaveClick(Sender: TObject);
begin
dmrsgl.ygjbzlqry.Close;
dmrsgl.ygjbzlqry.SQL.Clear;
dmrsgl.ygjbzlqry.SQL.Add('select * from employeer where number='+quotedstr(combobox1.Text));
dmrsgl.ygjbzlqry.Open;
dmrsgl.ygjbzlqry.Edit;
dmrsgl.ygjbzlqry.FieldByName('ygbm').AsString:=trim(ednewbm.Text);
dmrsgl.ygjbzlqry.FieldByName('position').AsString:=trim(ednewposition.Text);
dmrsgl.ygjbzlqry.FieldByName('worksort').AsString:=trim(ednewsortwork.Text);
if messagedlg('请确认修改的数据无误,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
dmrsgl.ygjbzlqry.Post;
edname.Text:='';
   //label11.Caption:='';
   edsex.Text:='';
   edoldbm.Text:='';
   edoldposition.Text:='';
   edoldsortwork.Text:='';
   edtddate.Text:='';
   ednewbm.Text:='';
   ednewposition.Text:='';
   ednewsortwork.Text:='';
end
else
dmrsgl.ygjbzlqry.Cancel;//取消修改
btnsave.Enabled:=false;
end;

procedure Tfrmrszhgl.btnrefreshClick(Sender: TObject);
begin
//显示调整的记录
with dmrsgl.ygmovetbqry do
begin
close;
sql.clear;
sql.Add('select * from ygmovetb');
active:=true;
if RecordCount=0 then
begin
showmessage('对不起，您的员工调动表存在0条记录.请调动后再试！');
combobox1.SetFocus;
exit;
end
else
datasource1.DataSet:=dmrsgl.ygmovetbqry;
dbgrid1.DataSource:=datasource1;
dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+40;
dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('oldbm');
dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('oldposition');
dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+40;
dbgrid1.Columns[5].Field:=datasource1.DataSet.FieldByName('oldsortwork');
dbgrid1.Columns[5].Width:=datasource1.DataSet.Fields[5].DisplayWidth+50;
dbgrid1.Columns[6].Field:=datasource1.DataSet.FieldByName('lastmoverq');
dbgrid1.Columns[6].Width:=datasource1.DataSet.Fields[6].DisplayWidth+50;
dbgrid1.Columns[7].Field:=datasource1.DataSet.FieldByName('newbm');
dbgrid1.Columns[7].Width:=datasource1.DataSet.Fields[7].DisplayWidth+40;
dbgrid1.Columns[8].Field:=datasource1.DataSet.FieldByName('newposition');
dbgrid1.Columns[8].Width:=datasource1.DataSet.Fields[8].DisplayWidth+50;
dbgrid1.Columns[9].Field:=datasource1.DataSet.FieldByName('newsortwork');
dbgrid1.Columns[9].Width:=datasource1.DataSet.Fields[9].DisplayWidth+50;
end;
end;
procedure Tfrmrszhgl.ComboBox2Change(Sender: TObject);
begin
with dmrsgl.ygjbzlqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer where number='+quotedstr(combobox2.Text));
open;
label21.Caption:=fieldbyname('number').AsString;
edname1.Text:=fieldbyname('name').AsString;
edsex1.Text:=fieldbyname('sex').AsString;
edbm1.Text:=fieldbyname('ygbm').AsString;
end;
end;

procedure Tfrmrszhgl.btnrefresh1Click(Sender: TObject);
begin
//显示调整的记录
with dmrsgl.ygwptbqry do
begin
close;
sql.clear;
sql.Add('select * from ygwptb');
open;
if RecordCount=0 then
begin
showmessage('对不起，您的员工外派表存在0条记录.请稍后再试！');
combobox2.SetFocus;
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');