Add option to save grid data to SQL file. rfe #790

This commit is contained in:
Ansgar Becker
2008-12-26 19:21:40 +00:00
parent f0459f9671
commit 561c5ad697
4 changed files with 5 additions and 3 deletions

View File

@ -1797,7 +1797,7 @@ object MDIChild: TMDIChild
DefaultExt = 'csv'
Filter =
'CSV-Files (*.csv)|*.csv|Hypertext-Files (*.html)|*.html|XML-File' +
's (*.xml)|*.xml'
's (*.xml)|*.xml|SQL script (*.sql)|*.sql'
Options = [ofOverwritePrompt, ofEnableSizing]
OnTypeChange = SaveDialogExportDataTypeChange
Left = 72

View File

@ -3420,6 +3420,7 @@ begin
1: DefaultExt := 'csv';
2: DefaultExt := 'html';
3: DefaultExt := 'xml';
4: DefaultExt := 'sql';
end;
end;
end;

View File

@ -688,9 +688,9 @@ object MainForm: TMainForm
end
object actExportData: TAction
Category = 'Export/Import'
Caption = 'Export grid data as CSV/HTML/XML...'
Caption = 'Export grid data as CSV, HTML, XML or SQL ...'
Enabled = False
Hint = 'Save grid data to file'
Hint = 'Save grid data to text file'
ImageIndex = 20
OnExecute = actExportDataExecute
end

View File

@ -1249,6 +1249,7 @@ begin
1: GridToCsv(Grid, GridData, ChildWin.prefCSVSeparator, ChildWin.prefCSVEncloser, ChildWin.prefCSVTerminator, FS);
2: GridToHtml(Grid, GridData, Title, FS);
3: GridToXml(Grid, GridData, Title, FS);
4: GridToSql(Grid, GridData, Title, FS);
end;
ShowStatus('Freeing data...');
FS.Free;