opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 20:50:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

Solve issue #1166: Export suggests database as filename name. As long as the filename was not manually changed, it is set to [last used directory]\[selected database].sql

Browse Source
This commit is contained in:
Ansgar Becker
2009-05-25 19:14:40 +00:00
parent fe8ae38dd9
commit 40d0aee4bb
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/exportsql.dfm
View File

@ -184,6 +184,7 @@ object ExportSQLForm: TExportSQLForm
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = editFileNameChange
OnDblClick = btnFileBrowseClick
end
object radioOtherDatabase: TRadioButton

24
source/exportsql.pas
View File

@ -96,9 +96,11 @@ type
procedure checkListTablesKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SaveSettings;
procedure editFileNameChange(Sender: TObject);
private
{ Private declarations }
DoOverwriteAll: Boolean;
DoOverwriteAll,
FilenameEdited: Boolean;
function InitFileStream(TableName: String; OldStream: TFileStream = nil): TFileStream;
public
{ Public declarations }
@ -181,7 +183,6 @@ begin
// Select first database if at least one is available.
if (comboSelectDatabase.ItemIndex = -1) and (comboSelectDatabase.Items.Count>0) then
comboSelectDatabase.ItemIndex := 0;
comboSelectDatabaseChange(self);
// Initialize and fill list with target versions
target_versions := TStringList.Create;
@ -223,6 +224,8 @@ begin
comboData.ItemIndex := GetRegValue(REGNAME_EXP_DATAHOW, comboData.ItemIndex);
comboTargetCompat.ItemIndex := GetRegValue(REGNAME_EXP_COMPAT, comboTargetCompat.ItemIndex);
editFileName.Text := GetRegValue(REGNAME_EXP_OUTFILE, '');
FilenameEdited := False;
comboSelectDatabaseChange(self);
editDirectory.Text := GetRegValue(REGNAME_EXP_OUTDIR, '');
OutputTo := GetRegValue(REGNAME_EXP_TARGET, -1);
if OutputTo > -1 then
@ -257,9 +260,6 @@ begin
Width := GetRegValue(REGNAME_EXP_WINWIDTH, Width);
Height := GetRegValue(REGNAME_EXP_WINHEIGHT, Height);
if EditFileName.Text = '' then
EditFileName.Text := DirnameUserAppData + goodfilename(Mainform.ActiveDatabase + '.sql');
// Tell the user how to use the table pattern
EditFileName.Hint := 'Usage for generating one file per table: c:\foo\bar_'+TABLENAME_PATTERN+'.sql';
@ -343,6 +343,7 @@ var
i : Integer;
CheckThisItem: Boolean;
ds: TDataset;
dir: WideString;
begin
// read tables from db
checkListTables.Items.Clear;
@ -363,6 +364,13 @@ begin
checkListTables.checked[i] := CheckThisItem;
end;
if not FilenameEdited then begin
dir := ExtractFilePath(EditFilename.Text);
if not DirectoryExists(dir) then
dir := DirnameUserAppData;
EditFileName.Text := dir + goodfilename(comboSelectDatabase.Text + '.sql');
FilenameEdited := False;
end;
// write items for "Another Databases":
fillcombo_anotherdb(self);
end;
@ -1568,6 +1576,12 @@ begin
end;
procedure TExportSQLForm.editFileNameChange(Sender: TObject);
begin
FilenameEdited := True;
end;
end.