kqdj.~pas

毕业设计时候开发的人事管理系统

unit kqdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls,dateutils, DB, DBTables;

type
  Tfrmkqdj = class(TForm)
    GroupBox1: TGroupBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    eEmploy_ID: TEdit;
    edkqdjname: TEdit;
    btnOK: TBitBtn;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    RB_Morning_OFF: TRadioButton;
    RB_Morning_ON: TRadioButton;
    radxwsb: TRadioButton;
    radxwxb: TRadioButton;
    radwsxb: TRadioButton;
    radwssb: TRadioButton;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    StaticText3: TStaticText;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure edkqdjnumberChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkqdj: Tfrmkqdj;

implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrmkqdj.Timer1Timer(Sender: TObject);
begin
  statictext3.Caption:=timetostr(time);
  dmrsgl.kqsettimeqry.Close;
  dmrsgl.kqsettimeqry.SQL.Clear;
  dmrsgl.kqsettimeqry.SQL.Add('select * from kqsettime');
  dmrsgl.kqsettimeqry.Open;
  if (dmrsgl.kqsettimeqry.FieldByName('morningintime').AsDateTime<=time) and
    (dmrsgl.kqsettimeqry.FieldByName('morningouttime').AsDateTime>=time)then
  begin
    RB_Morning_ON.Checked:=true;
  end
  else
  begin
    if (dmrsgl.kqsettimeqry.FieldByName('morningouttime').AsDateTime<=time) and
      (dmrsgl.kqsettimeqry.FieldByName('afternoonintime').AsDateTime>time)  then
    begin
        RB_Morning_OFF.Checked:=true;
    end
    else
    begin
      if (dmrsgl.kqsettimeqry.FieldByName('afternoonintime').AsDateTime<=time) and
        (dmrsgl.kqsettimeqry.FieldByName('afternoonouttime').AsDateTime>time)then
      begin
         radxwsb.Checked:=true;
      end
      else
      begin
        if (dmrsgl.kqsettimeqry.FieldByName('afternoonouttime').AsDateTime<=time) and
          (dmrsgl.kqsettimeqry.FieldByName('nightintime').AsDateTime>time)then
        begin
          radxwxb.Checked:=true;
        end
        else
        begin
          if (dmrsgl.kqsettimeqry.FieldByName('nightintime').AsDateTime<=time) and
            (dmrsgl.kqsettimeqry.FieldByName('nightouttime').AsDateTime>time) then
          begin
            radwssb.Checked:=true;
          end
          else
          begin
            if (dmrsgl.kqsettimeqry.FieldByName('nightouttime').AsDateTime<=time) and
              (dmrsgl.kqsettimeqry.FieldByName('sleeptime').AsDateTime>=time)then
            begin
              radwsxb.Checked:=true;
              label1.Font.Size:=30;
              label1.Caption:='晚安';
            end
            else frmkqdj.Close;
          end;
        end;
      end;
    end;
  end;
end;

procedure Tfrmkqdj.edkqdjnumberChange(Sender: TObject);//考勤登记校对
var
  iType,iTmp:integer;
  sTmpNum,strID,sTmp,strSQL,
  strInTimeType,strOutTimeType:string;
  dOutTime,dInTime:TTime;
begin
if length(trim(eEmploy_ID.Text))>=8 then
begin
  strID:=trim(eEmploy_ID.Text);
  iType:=1;
  if RB_Morning_ON.Checked=true then iType:=1//代表上午上班
  else
  begin
    if RB_Morning_OFF.Checked=true then iType:=2//代表上午下班
    else
    begin
      if radxwsb.Checked=true then iType:=3//代表下午上班
      else
      begin
        if radxwxb.Checked=true then iType:=4//代表下午下班
        else
        begin
          if radwssb.Checked=true then iType:=5//代表晚上上班
          else
          begin
            if radwsxb.Checked=true then iType:=6//代表晚上下班
          end;
        end;
      end;
    end;
  end;
  case iType of
    1,2:begin
      strInTimeType:='morningintime';
      strOutTimeType:='morningouttime';
    end;
    3,4:begin
      strInTimeType:='afternoonintime';
      strOutTimeType:='afternoonouttime';
    end;
    5,6:begin
      strInTimeType:='nightintime';
      strOutTimeType:='nightouttime';
    end;
  end;
  case iType of
    1,3,5:begin
      dmrsgl.ygkqywtbqry.Close;
      dmrsgl.ygkqywtbqry.sql.clear;
      dmrsgl.ygkqywtbqry.SQL.Add('select * from ygkqywtb where number='+
        QuotedStr(strID));
      dmrsgl.ygkqywtbqry.Open;
      if (dmrsgl.ygkqywtbqry.RecordCount=0) then
      begin
        label1.Caption:='数据库中不存在该记录.';
        eEmploy_ID.Text:='';      //清空编号以便下一位打卡