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 a parent class for all database object editors (table, view, routine, trigger) and let these editors derive from this class. Could simplify code in the future.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-11 18:20:16 +00:00
parent 68a1ae0416
commit 2dcf02feb3
6 changed files with 66 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
source/routine_editor.pas
View File

@ -5,10 +5,10 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SynEdit, SynMemo, StdCtrls, TntStdCtrls, ComCtrls, ToolWin,
VirtualTrees, WideStrings, mysql_connection, SynRegExpr, WideStrUtils;
VirtualTrees, WideStrings, mysql_connection, SynRegExpr, WideStrUtils, helpers;
type
TfrmRoutineEditor = class(TFrame)
TfrmRoutineEditor = class(TDBObjectEditor)
btnSave: TButton;
btnDiscard: TButton;
btnHelp: TButton;
@ -67,11 +67,8 @@ type
private
{ Private declarations }
Parameters: TWideStringList;
FModified: Boolean;
FAlterRoutineName: WideString;
FAlterRoutineType: String;
procedure SetModified(Value: Boolean);
property Modified: Boolean read FModified write SetModified;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
@ -81,7 +78,7 @@ type
implementation
uses main, helpers, mysql_structures, grideditlinks;
uses main, mysql_structures, grideditlinks;
{$R *.dfm}
@ -188,6 +185,8 @@ begin
comboTypeSelect(comboType);
btnRemoveParam.Enabled := Assigned(listParameters.FocusedNode);
Modified := False;
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;
end;
@ -204,13 +203,15 @@ begin
editName.Color := clYellow;
end;
end;
Modified := True;
Modification(Sender);
end;
procedure TfrmRoutineEditor.Modification(Sender: TObject);
begin
Modified := True;
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;
end;
@ -221,7 +222,7 @@ begin
isfunc := (Sender as TTNTComboBox).ItemIndex = 1;
lblReturns.Enabled := isfunc;
comboReturns.Enabled := isfunc;
Modified := True;
Modification(Sender);
listParameters.Repaint;
end;
@ -231,7 +232,7 @@ begin
Parameters.Add('Param'+IntToStr(Parameters.Count+1)+DELIM+'INT'+DELIM+'IN');
// See List.OnPaint:
listParameters.Repaint;
Modified := True;
Modification(Sender);
end;
@ -239,7 +240,7 @@ procedure TfrmRoutineEditor.btnRemoveParamClick(Sender: TObject);
begin
Parameters.Delete(ListParameters.FocusedNode.Index);
listParameters.Repaint;
Modified := True;
Modification(Sender);
end;
@ -247,7 +248,7 @@ procedure TfrmRoutineEditor.btnClearParamsClick(Sender: TObject);
begin
Parameters.Clear;
listParameters.Repaint;
Modified := True;
Modification(Sender);
end;
@ -327,7 +328,7 @@ begin
3: new := OldValues[0] + DELIM + OldValues[1] + DELIM + NewText;
end;
Parameters[Node.Index] := new;
Modified := True;
Modification(Sender);
end;
@ -481,6 +482,8 @@ begin
Mainform.SetEditorTabCaption(Self, FAlterRoutineName);
Mainform.actRefresh.Execute;
Modified := False;
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;
except
on E:Exception do
MessageDlg(E.Message, mtError, [mbOk], 0);
@ -488,14 +491,6 @@ begin
end;
procedure TfrmRoutineEditor.SetModified(Value: Boolean);
begin
FModified := Value;
btnSave.Enabled := FModified;
btnDiscard.Enabled := FModified;
end;
procedure TfrmRoutineEditor.btnDiscardClick(Sender: TObject);
begin
Init(FAlterRoutineName, FAlterRoutineType);