prsentformunit.pas

人事管理系统帮助人们管理复杂的关系

unit PrsentFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TPrsentForm = class(TForm)
    BtOk: TButton;
    BtExit: TButton;
    edtMonth: TEdit;
    Label3: TLabel;
    Label6: TLabel;
    CBAbsentType: TComboBox;
    PrsentData: TDateTimePicker;
    Label5: TLabel;
    Label2: TLabel;
    edtName: TEdit;
    edtNo: TEdit;
    Label1: TLabel;
    Label7: TLabel;
    procedure BtOkClick(Sender: TObject);
    procedure BtExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrsentForm: TPrsentForm;

implementation

uses DataMUnit;

{$R *.dfm}

procedure TPrsentForm.BtOkClick(Sender: TObject);
var sel:integer;
begin

  if (edtNo.Text <> '') and (edtName.Text <> '') and (CBAbsentType.Text <> '' ) then
    begin
      if DataM.ADOPrsent.Active = true then
        DataM.ADOPrsent.Close;

      DataM.ADOPrsent.SQL.Clear;
      DataM.ADOPrsent.SQL.Text:='select * from MSG where 员工编号 = '''+edtNo.Text+'''';
      DataM.ADOPrsent.Prepared;
      DataM.ADOPrsent.Open;
      if DataM.ADOPrsent.RecordCount <> 0 then
        begin

          if edtName.Text = DataM.ADOPrsent.FieldValues['员工姓名'] then
            begin

              if DataM.ADOPrsent.Active = true then
                DataM.ADOPrsent.Close;

              DataM.ADOPrsent.SQL.Clear;
              DataM.ADOPrsent.SQL.Text:='select * from Prsent';
              DataM.ADOPrsent.Prepared;
              DataM.ADOPrsent.Open;

              sel:=MessageBox(0,'确定要添加该考勤记录？','人事管理系统',MB_YESNO+MB_ICONQUESTION);

              if sel=IDYES then
                begin
                  DataM.ADOPrsent.Append;
                  DataM.ADOPrsent.FieldByName('员工编号').AsString := Trim(edtNO.Text);
                  DataM.ADOPrsent.FieldByName('员工姓名').AsString := Trim(edtName.Text);
                  DataM.ADOPrsent.FieldByName('缺勤日期').AsVariant := PrsentData.Date;
                  DataM.ADOPrsent.FieldByName('缺勤类型').AsString := Trim(CBAbsentType.Text);
                  DataM.ADOPrsent.FieldByName('缺勤月份').AsString := Trim(edtMonth.Text);
                  DataM.ADOPrsent.Post;
                  MessageBox(0,'考勤记录添加成功','人事管理系统',MB_OK+MB_ICONINFORMATION);
                end;

            end
          else
            begin
              MessageBox(0,'员工姓名错！','人事管理系统',MB_OK+MB_ICONWARNING);
            end;

        end
      else
        begin
          MessageBox(0,'员工不存在！','人事管理系统',MB_OK+MB_ICONWARNING);
        end;

      end
    else
      begin
        MessageBox(0,'员工编号，员工姓名，缺勤类型等不能为空！','人事管理系统',MB_OK+MB_ICONWARNING);
      end;


end;

procedure TPrsentForm.BtExitClick(Sender: TObject);
begin
  PrsentForm.Close;
end;

procedure TPrsentForm.FormShow(Sender: TObject);
begin
  edtName.Text := '';
  edtNo.Text := '';
  edtMonth.Text := '';
  CBAbsentType.Text := '';
end;

end.