procedure Tfrm_clock_In.btn_enterClick(Sender: TObject);
var
        Executed:boolean;
        found:boolean;
begin
found:=false;
Executed:=false;
tbl_employees.Open;
tbl_employees.First;
Repeat
        If (Tbl_EmployeesEmployee_ID.value = strtoint(Edit_Employee_ID.text)) then
           begin
                found:=true;
                showmessage('found employee');
                Tbl_shift.Open;
                Tbl_shift.first;
                Repeat
                        If (Tbl_shiftEmployee_ID.value = strtoint(Edit_Employee_ID.text)) and (tbl_shiftActive.value=true) then
                                begin
                                        //Clock out
                                        Executed:=true;
                                        showmessage('Clocked Out')
                                end
                        else begin tbl_shift.next; showmessage('Shift Next'); end;
                Until (tbl_shift.Eof) or (executed=true);
           end
        else begin tbl_employees.Next; showmessage('employees next'); end;
Until (found = true) or (tbl_employees.Eof);

if tbl_employees.Eof then showmessage('Invalid Employee ID');

If tbl_shift.eof then
        begin
                //clock in
                showmessage('Clocked In');
        end;

end;