kqjbzlgl.pas

人事管理

unit kqjbzlgl;

interface

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

type
  Tfrmkqjbzlgl = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cmbnumber: TComboBox;
    edname: TEdit;
    edsex: TEdit;
    edygbm: TEdit;
    btnwrite: TBitBtn;
    btncancel: TBitBtn;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    btnrefresh: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure cmbnumberChange(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure btnwriteClick(Sender: TObject);
    procedure btnrefreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkqjbzlgl: Tfrmkqjbzlgl;

implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrmkqjbzlgl.FormShow(Sender: TObject);
begin
with dmrsgl.ygjbzlqry do
begin
    if not active then   //判断是否为活动连接
       active:=true;
       first;
       while not eof do
       begin
           cmbnumber.Items.Add(fieldbyname('number').AsString);
           next;   //下移动符值
       end;
end;
with dmrsgl.ygkqtbqry do
begin
close;
sql.Clear;
sql.Add('select number,name,sex,ygbm from ygsbtb');
open;
if recordcount=0 then
begin
showmessage('考勤数据表为空.');
exit;
cmbnumber.SetFocus;
end
else
datasource1.DataSet:=dmrsgl.ygkqtbqry;
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('ygbm');
dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
end;
end;

procedure Tfrmkqjbzlgl.cmbnumberChange(Sender: TObject);
begin
with dmrsgl.ygjbzlqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer where number='+quotedstr(cmbnumber.Text));
open;
edname.Text:=fieldbyname('name').AsString;
edsex.Text:=fieldbyname('sex').AsString;
edygbm.Text:=fieldbyname('ygbm').AsString;
end;
end;

procedure Tfrmkqjbzlgl.btncancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrmkqjbzlgl.btnwriteClick(Sender: TObject);
begin
dmrsgl.ygkqtbqry.Close;
dmrsgl.ygkqtbqry.SQL.Clear;
dmrsgl.ygkqtbqry.SQL.Add('select number,name,sex,ygbm from ygsbtb where number='+quotedstr(cmbnumber.Text));
dmrsgl.ygkqtbqry.Open;
if dmrsgl.ygkqtbqry.RecordCount<>0 then
begin
showmessage('考勤数据表中已存在该条记录,不能录入.');
exit;
end
else
dmrsgl.ygkqtbqry.Append;
dmrsgl.ygkqtbqry.FieldByName('number').AsString:=cmbnumber.Text;
dmrsgl.ygkqtbqry.FieldByName('name').AsString:=edname.Text;
dmrsgl.ygkqtbqry.FieldByName('sex').AsString:=edsex.Text;
dmrsgl.ygkqtbqry.FieldByName('ygbm').AsString:=edygbm.Text;
if messagedlg('请确认录入的数据无误,然后写入系统!',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
dmrsgl.ygkqtbqry.Post;
end;
dmrsgl.ygkqywtbqry.Close;
dmrsgl.ygkqywtbqry.SQL.Clear;
dmrsgl.ygkqywtbqry.SQL.Add('select number,name,sex,ygbm from ygkqywtb where number='+quotedstr(cmbnumber.Text));
dmrsgl.ygkqywtbqry.Open;
if dmrsgl.ygkqywtbqry.RecordCount<>0 then
begin
showmessage('员工考勤异外情况表中已存在该记录了,不能录入了.');
exit;
end
else
dmrsgl.ygkqywtbqry.Append;
dmrsgl.ygkqywtbqry.FieldByName('number').AsString:=cmbnumber.Text;
dmrsgl.ygkqywtbqry.FieldByName('name').AsString:=edname.Text;
dmrsgl.ygkqywtbqry.FieldByName('sex').AsString:=edsex.Text;
dmrsgl.ygkqywtbqry.FieldByName('ygbm').AsString:=edygbm.Text;
dmrsgl.ygkqywtbqry.Post;
end;

procedure Tfrmkqjbzlgl.btnrefreshClick(Sender: TObject);
begin
with dmrsgl.ygkqtbqry do
begin
close;
sql.Clear;
sql.Add('select number,name,sex,ygbm from ygsbtb');
open;
if recordcount=0 then
begin
showmessage('考勤数据表为空.');
exit;
cmbnumber.SetFocus;
end
else
datasource1.DataSet:=dmrsgl.ygkqtbqry;
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('ygbm');
dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
end;
end;

end.