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

Set each procedure parameter on its own line, and remove some tabs. See http://www.heidisql.com/forum.php?t=21166

Browse Source
This commit is contained in:
Ansgar Becker
2016-04-27 18:08:00 +00:00
parent 24208cc039
commit dec6f9ee63
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
source/routine_editor.pas
View File

@ -534,8 +534,9 @@ end;
function TfrmRoutineEditor.ComposeCreateStatement(NameOfObject: String): String;
var
ProcOrFunc: String;
ProcOrFunc, tmp: String;
i: Integer;
Params: TStringList;
begin
case comboType.ItemIndex of
0: ProcOrFunc := 'PROCEDURE';
@ -545,23 +546,26 @@ begin
if comboDefiner.Text <> '' then
Result := Result + 'DEFINER='+DBObject.Connection.QuoteIdent(comboDefiner.Text, True, '@')+' ';
Result := Result + ProcOrFunc+' '+DBObject.Connection.QuoteIdent(NameOfObject)+'(';
Params := TStringList.Create;
for i:=0 to Parameters.Count-1 do begin
tmp := '';
if ProcOrFunc = 'PROCEDURE' then
Result := Result + Parameters[i].Context + ' ';
Result := Result + DBObject.Connection.QuoteIdent(Parameters[i].Name) + ' ' + Parameters[i].Datatype;
if i < Parameters.Count-1 then
Result := Result + ', ';
tmp := tmp + Parameters[i].Context + ' ';
tmp := tmp + DBObject.Connection.QuoteIdent(Parameters[i].Name) + ' ' + Parameters[i].Datatype;
Params.Add(tmp);
end;
if Params.Count > 0 then
Result := Result + CRLF + #9 + implodestr(','+CRLF+#9, Params) + CRLF;
Result := Result + ')'+CRLF;
if comboReturns.Enabled then
Result := Result + #9 + 'RETURNS '+comboReturns.Text+CRLF;
Result := Result + #9 + 'LANGUAGE SQL'+CRLF + #9;
Result := Result + 'RETURNS '+comboReturns.Text+CRLF;
Result := Result + 'LANGUAGE SQL'+CRLF;
if not chkDeterministic.Checked then
Result := Result + 'NOT ';
Result := Result + 'DETERMINISTIC'+CRLF
+ #9 + UpperCase(comboDataAccess.Text)+CRLF
+ #9 + 'SQL SECURITY ' + UpperCase(comboSecurity.Text)+CRLF
+ #9 + 'COMMENT ' + esc(editComment.Text)+CRLF
+ UpperCase(comboDataAccess.Text)+CRLF
+ 'SQL SECURITY ' + UpperCase(comboSecurity.Text)+CRLF
+ 'COMMENT ' + esc(editComment.Text)+CRLF
+ SynMemoBody.Text;
end;