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

Implement event editor for MySQL 5.1+ servers. Also, simplify some code around database objects and their editors. Fixes issue #1527

Browse Source
This commit is contained in:
Ansgar Becker
2010-04-08 23:16:40 +00:00
parent ea8574bc1a
commit 5f9129bef2
15 changed files with 992 additions and 246 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
source/trigger_editor.pas
View File

@ -34,7 +34,7 @@ type
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
procedure Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone); override;
procedure Init(Obj: TDBObject); override;
function ApplyModifications: TModalResult; override;
end;
@ -54,7 +54,6 @@ var
i: Integer;
begin
inherited;
ScaleControls(Screen.PixelsPerInch, FORMS_DPI);
SynMemoStatement.Highlighter := Mainform.SynSQLSyn1;
editName.MaxLength := NAME_LEN;
comboTiming.Items.Text := 'BEFORE'+CRLF+'AFTER';
@ -73,7 +72,7 @@ begin
end;
procedure TfrmTriggerEditor.Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone);
procedure TfrmTriggerEditor.Init(Obj: TDBObject);
var
Definitions: TMySQLQuery;
DBObjects: TDBObjectList;
@ -93,13 +92,13 @@ begin
end;
if comboTable.Items.Count > 0 then
comboTable.ItemIndex := 0;
if FEditObjectName <> '' then begin
if DBObject.Name <> '' then begin
// Edit mode
editName.Text := FEditObjectName;
editName.Text := DBObject.Name;
Definitions := Mainform.Connection.GetResults('SHOW TRIGGERS FROM '+Mainform.mask(Mainform.ActiveDatabase));
Found := False;
while not Definitions.Eof do begin
if Definitions.Col('Trigger') = FEditObjectName then begin
if Definitions.Col('Trigger') = DBObject.Name then begin
comboTable.ItemIndex := comboTable.Items.IndexOf(Definitions.Col('Table'));
comboTiming.ItemIndex := comboTiming.Items.IndexOf(UpperCase(Definitions.Col('Timing')));
comboEvent.ItemIndex := comboEvent.Items.IndexOf(UpperCase(Definitions.Col('Event')));
@ -138,7 +137,7 @@ procedure TfrmTriggerEditor.btnDiscardClick(Sender: TObject);
begin
// Reinit editor, discarding changes
Modified := False;
Init(FEditObjectName);
Init(DBObject);
end;
@ -160,8 +159,8 @@ begin
// So, we take the risk of loosing the trigger for cases in which the user has SQL errors in
// his statement. The user must fix such errors and re-press "Save" while we have them in memory,
// otherwise the trigger attributes are lost forever.
if FEditObjectName <> '' then try
Mainform.Connection.Query('DROP TRIGGER '+Mainform.mask(FEditObjectName));
if DBObject.Name <> '' then try
Mainform.Connection.Query('DROP TRIGGER '+Mainform.mask(DBObject.Name));
except
end;
// CREATE
@ -173,9 +172,9 @@ begin
' ON '+Mainform.mask(comboTable.Text)+
' FOR EACH ROW '+SynMemoStatement.Text;
Mainform.Connection.Query(sql);
FEditObjectName := editName.Text;
Mainform.SetEditorTabCaption(Self, FEditObjectName);
Mainform.RefreshTreeDB(Mainform.ActiveDatabase, FEditObjectName, lntTrigger);
DBObject.Name := editName.Text;
Mainform.UpdateEditorTab;
Mainform.RefreshTreeDB(Mainform.ActiveDatabase, DBObject.Name, DBObject.NodeType);
Modified := False;
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;