Проверить длительность/скорость операции с запросом к БД

[KBO]

Доброе время суток,
Такая проблема:
По нажатию кнопки, становится видимым DBGrid и просходит выполнения запроса.
У меня появилось впечатление, что при разных случаях нажатия кнопки, один и тот же процесс происходит с затратой разного количества времени.
Для измерения времени я использовал TTimer (начальные значения: Enabled = false, Interval = 1)

Var
pr_int: integer;

procedure TFMain.Button4Click(Sender: TObject);
begin
pr_int := 0;
timer1.Enabled := true;

dbgrehPlan.Visible := true;
ExecQuery(Format(C_sel_registr, [rgrShowTypeRecords.ItemIndex]), 1, Select_rec, ibdsContract);

timer1.Enabled := false;
showmessage(inttostr(pr_int));
end;

procedure TFMain.Timer1Timer(Sender: TObject);
begin
   inc(pr_int);
end;

procedure ExecQuery(ARequire: string;
                    ASuiteData: integer;
                    A_ActQuery: ActRecord;
                    ADataSet: TIBDataSet);
//процедура выполняющая запрос
var
  LID: integer;
begin
  case ASuiteData of
    0:
      begin
        FMain.ibqEmpty.Close;
        FMain.ibqEmpty.SQL.Clear;
        FMain.ibqEmpty.SQL.Add(ARequire);
//showmessage(ibqEmpty.SQL.CommaText);
        if A_ActQuery = Select_rec then
        begin
          FMain.ibqEmpty.Open;
          FMain.ibqEmpty.FetchAll;
          FMain.ibqEmpty.First;
        end
        else
        begin
          FMain.ibqEmpty.ExecSQL;
          FMain.ibtrPlan.CommitRetaining;
        end;
      end;
    1:
      begin
        if ADataSet.FindField('ID') <> nil then
          if A_ActQuery = Exec_rec then
          begin
            ADataSet.DisableControls;
            ADataSet.Next;
            LID := ADataSet.FieldByName('ID').AsInteger;
            ADataSet.Prior;
            ADataSet.EnableControls;
          end
          else LID := ADataSet.FieldByName('ID').AsInteger;

        ADataSet.Close;
        ADataSet.SelectSQL.Clear;
        ADataSet.SelectSQL.Add(ARequire);
//showmessage(ADataSet.SelectSQL.CommaText);
        ADataSet.DisableControls;
        ADataSet.Open;
        ADataSet.FetchAll;
        case A_ActQuery of //position on record
          Select_rec: ADataSet.First;
          Exec_rec:
                   begin
                     if LID = 0 then //insert new word
                       ADataSet.Last
                     else ADataSet.Locate('ID', LID, []);
                   end;
        end;
        ADataSet.EnableControls;
      end
  end;
end;

К моему сожалению, таймер выдал «0» во всех случаях.
Может я что не так сделал, хотя в одном из случаев, отображение данных в dbgrid на глаз происходит за 2сек.

Спасибо за ответ.

[Аватар]

разница между GetTickCount до и после и никакого таймера

[KBO]

Сообщение от Аватар

GetTickCount

function GetTickCount: Longint;
Считывает вpемя, пpошедшее с момента запуска системы.

Типа так,

procedure TFMain.Button4Click(Sender: TObject);
var
  starttime,endtime,q: int64;
begin

starttime:=GetTickCount;

dbgrehPlan.Visible := true;
ExecQuery(Format(C_sel_registr, [rgrShowTypeRecords.ItemIndex]), 1, Select_rec, ibdsContract);


endtime:=GetTickCount;
q:=endtime-starttime;
showmessage(inttostr(q));
end;

[KBO]

А подскажите пожалуйста,

Вот, выполняю один и тот же код

procedure TFMain.Button4Click(Sender: TObject);
begin
dbgrehPlan.Visible := true;
ExecQuery(Format(C_sel_registr, [rgrShowTypeRecords.ItemIndex]), 1, Select_rec, ibdsContract);

end;

А время исполнения, первый раз = 83, а последующие = 375 и выше.

Такое офигенное увеличение времени, с чем это может быть связано?

[Аватар]

мало ли почему, вдобавок меряешь не время выполнения sql-процедуры, а целый кусок программного кода, который и выполняется по разному в зависимости от параметров. Да и одна и та же sql-процедуры при многократном обращении разное время выполнения может давать

[KBO]

Все нашел, спасибо.

У меня в таблице есть столбец "user_id", указывающий на "ID" пользователя, который редактировал запись последний раз.
Вот...

В событии "AfterScroll" DataSet, я выводил инициалы пользователя

ibdsUser.Locate('ID', ADataSetClick.FieldByName('USER_ID').AsString, []);
        sbStatusProg.Panels[1].Text := ibdsUser.FieldByName('FAMILY_NAME').AsString+' '
                                       +(ibdsUser.FieldByName('NAME').AsString)[1]+'. '
                                       +(ibdsUser.FieldByName('PATRONYMIC_NAME').AsString)[1]+'.';

теперь наверно, нужно забить на это... и выводить по щелчку мышки на grid... или еще как...

или просто избавится от "user_id" как ссылки и писать стринговое поле