From f7abafca8f2a3ebfa06a4741c5a3206e045dd13a Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 11 Apr 2010 23:22:50 +0000
Subject: [PATCH] Include events in SQL export

---
 source/tabletools.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/source/tabletools.pas b/source/tabletools.pas
index 183491a1..dc69dcbe 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -961,7 +961,7 @@ const
   end;
 
 begin
-  // Handle one table, view or routine in SQL export mode
+  // Handle one table, view or whatever in SQL export mode
   AddResults('SELECT '+esc(DBObj.Database)+' AS '+Mainform.mask('Database')+', ' +
     esc(DBObj.Name)+' AS '+Mainform.mask('Table')+', ' +
     IntToStr(DBObj.Rows)+' AS '+Mainform.mask('Rows')+', '+
@@ -1095,6 +1095,16 @@ begin
             if ToFile or ToDir or ToClipboard then
               Struc := 'DELIMITER ' + TempDelim + CRLF + Struc + TempDelim + CRLF + 'DELIMITER ';
           end;
+
+          lntEvent: begin
+            Struc := Mainform.Connection.GetVar('SHOW CREATE '+UpperCase(DBObj.ObjType)+' '+m(DBObj.Database)+'.'+m(DBObj.Name), 'Create Event');
+            MultiSQL := Explode(';', Struc);
+            Struc := ImplodeStr(';'+CRLF, MultiSQL);
+            if ToDb then
+              Insert(m(FinalDbName)+'.', Struc, Pos('EVENT', Struc) + 6 );
+            if ToFile or ToDir or ToClipboard then
+              Struc := 'DELIMITER ' + TempDelim + CRLF + Struc + TempDelim + CRLF + 'DELIMITER ';
+          end;
         end;
         Struc := fixNewlines(Struc);
         Output(Struc, True, True, True, True, True);