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

Unify Init() method of database object editors.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-13 07:32:46 +00:00
parent 2dcf02feb3
commit 3aef5bb5e5
7 changed files with 52 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/routine_editor.pas
View File

@ -72,7 +72,7 @@ type
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
procedure Init(AlterRoutineName: WideString=''; AlterRoutineType: String='');
procedure Init(ObjectName: WideString=''; ObjectType: TListNodeType=lntNone); override;
end;
@ -112,7 +112,7 @@ begin
end;
procedure TfrmRoutineEditor.Init(AlterRoutineName: WideString=''; AlterRoutineType: String='');
procedure TfrmRoutineEditor.Init(ObjectName: WideString=''; ObjectType: TListNodeType=lntNone);
var
Results: TMySQLQuery;
Create, Params: WideString;
@ -122,8 +122,9 @@ var
i: Integer;
begin
MainForm.SetupSynEditors;
FAlterRoutineName := AlterRoutineName;
FAlterRoutineType := AlterRoutineType;
FAlterRoutineName := ObjectName;
if ObjectType = lntProcedure then FAlterRoutineType := 'PROCEDURE'
else FAlterRoutineType := 'FUNCTION';
editName.Text := FAlterRoutineName;
comboType.ItemIndex := 0;
comboReturns.Text := '';
@ -492,8 +493,12 @@ end;
procedure TfrmRoutineEditor.btnDiscardClick(Sender: TObject);
var
t: TListNodeType;
begin
Init(FAlterRoutineName, FAlterRoutineType);
if FAlterRoutineType = 'PROCEDURE' then t := lntProcedure
else t := lntFunction;
Init(FAlterRoutineName, t);
end;