opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

* Remove spam.

Browse Source 
* Improve performance by not painting the progress form if a query completes within 300 msecs.
This commit is contained in:
rosenfield
2007-10-08 21:52:59 +00:00
parent 74074fe633
commit 4232f36909
3 changed files with 27 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
source/mysqlquery.pas
View File

@ -45,6 +45,7 @@ type
FSyncMode : Integer;
FQueryThread : TMysqlQueryThread;
FEventName : String;
FEventHandle : THandle;
FSql : String;
FOnNotify : TMysqlQueryNotificationEvent;
function GetNotificationMode: Integer;
@ -71,6 +72,7 @@ type
property ThreadID : Integer read FThreadID; // Mysql query thread ID (on the clients os)
property Sql : String read FSql; // Query string
property EventName : String read FEventName; // Operating system event name used for blocking mode
property EventHandle : THandle read FEventHandle;
property NotificationMode : Integer read GetNotificationMode;
property OnNotify : TMysqlQueryNotificationEvent read FOnNotify write FOnNotify; // Event procedure used in MQN_EVENTPROC notification mode
end;
@ -187,58 +189,21 @@ begin
inherited;
end;
{***
@param
@param
@result
}
function TMysqlQuery.GetComment: String;
begin
Result := FQueryResult.Comment;
Result := FQueryResult.Comment;
end;
{***
@param
@param
@result
}
function TMysqlQuery.GetConnectionID: Integer;
begin
Result := FQueryResult.ConnectionID;
end;
{***
@param
@param
@result
}
function TMysqlQuery.GetHasresultSet: Boolean;
begin
Result := FMysqlDataset <> nil;
end;
{***
@param
@param
@result
}
function TMysqlQuery.GetNotificationMode: Integer;
begin
if Assigned(FOnNotify) then
@ -247,29 +212,11 @@ begin
Result := MQN_WINMESSAGE;
end;
{***
@param
@param
@result
}
function TMysqlQuery.GetResult: Integer;
begin
Result := FQueryResult.Result;
end;
{***
@param
@param
@result
}
procedure TMysqlQuery.PostNotification(AQueryResult: TThreadResult; AEvent : Integer);
begin
SetThreadResult(AQueryResult);
@ -285,18 +232,7 @@ begin
end;
end;
{***
@param
@param
@result
}
procedure TMysqlQuery.Query(ASql: String; AMode: Integer; ANotifyWndHandle : THandle; Callback: TAsyncPostRunner; ds: TDeferDataSet);
var
EventHandle : THandle;
begin
// create thread object
@ -307,11 +243,11 @@ begin
FSyncMode := AMode;
FSql := ASql;
FEventHandle := CreateEvent ({*EVENT_MODIFY_STATE + SYNCHRONIZE*}nil, False, False, PChar(FEventName));
case AMode of
MQM_SYNC:
begin
// create mutex
EventHandle := CreateEvent (nil,False,False,PChar(FEventName));
// exec query
debug(Format('qry: Starting query thread %d', [FQueryThread.ThreadID]));
FQueryThread.Resume();