Topic: Version 5.4

I just looked at the new import/export possebillities of version 5.4. I'm a little disapointed because.

1. it seems that the import/export possebillities are only available by the Options-menu. Is there no possebillity to activate bothe forms by a button-trigger on a form?

2. both form are in English. I hope there is a possibillty to translate the forms in Dutch as we can bij the translate-function. Otherwis the new import/export is worthless for people who use an other language to present there databaseprogramms

Re: Version 5.4

You can call import/export dialog

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.mniImportData.Click;
end;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
   Form1.mniExportData.Click;
end;

Also you can hide items from menu

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.mniImportData.Visible := False;
    Form1.mniExportData.Visible := False;
end;

I will check about translate, maybe I will suggest some solution.

Dmitry.

Re: Version 5.4

Dmitry, thanks for your quick respons. Linking import/export forms to button is cleared, thanks for that.

However I hope that translation of the forms will be possible in the future. Finally a very usefull improvement to MVD, but will it be usefull to all your clients who want to program their databases in their own native language. I hope so.

Re: Version 5.4

kees.krause wrote:

Dmitry, thanks for your quick respons. Linking import/export forms to button is cleared, thanks for that.

However I hope that translation of the forms will be possible in the future. Finally a very usefull improvement to MVD, but will it be usefull to all your clients who want to program their databases in their own native language. I hope so.

How to translate there dialogs


begin
    frmdbCoreImport.Caption := 'Import';
    frmdbCoreImport.gbFileAndSettings.Caption := '1. File and settings';
    frmdbCoreImport.lbFile.Caption := 'CSV file name';

    frmdbCoreImport.lbColumnsSeparator.Caption := 'Columns separator';
    frmdbCoreImport.cbSeparator.Items[0] := ', (comma)';
    frmdbCoreImport.cbSeparator.Items[1] := '; (semicolon) ';
    frmdbCoreImport.cbSeparator.Items[2] := '\t (tab)';
    frmdbCoreImport.cbSeparator.Items[3] := 'Custom';
    frmdbCoreImport.cbSeparator.ItemIndex := 0;

    frmdbCoreImport.lbEncoding.Caption := 'Encoding';
    frmdbCoreImport.chbColumnNamesRow.Caption := 'Column name as first row';

    frmdbCoreImport.lbDateFormat.Caption := 'Date format';
    frmdbCoreImport.cbDateFormat.Items[0] := 'SQL format';
    frmdbCoreImport.cbDateFormat.Items[1] := 'Regional format ';

    frmdbCoreImport.lbTimeFormat.Caption := 'Time format';
    frmdbCoreImport.cbTimeFormat.Items[0] := 'SQL format';
    frmdbCoreImport.cbTimeFormat.Items[1] := 'Regional format ';

    frmdbCoreImport.gbData.Caption := '2. Data';
    frmdbCoreImport.lbImportTable.Caption := 'The table for import';
    frmdbCoreImport.lbFieldsAndColumns.Caption := 'Specify field name for every column';
    frmdbCoreImport.lbSqliteWarning.Caption := 'Backup your database before importing.'+#13+'The database may be damaged if you turn off the computer during import.';
    frmdbCoreImport.bImport.Caption := 'Import';


    frmdbCoreExport.Caption := 'Export';
    TdbStringGridEx(frmdbCoreExport.gridTables).Columns[0].Header.Caption := 'Tables';
    TdbStringGridEx(frmdbCoreExport.gridFields).Columns[1].Header.Caption := 'Fields';
    frmdbCoreExport.lbSettings.Caption := 'Settings';
    frmdbCoreExport.chbColumnNamesRow.Caption := 'Column name as first row';

    frmdbCoreExport.lbColumnsSeparator.Caption := 'Columns separator';
    frmdbCoreExport.cbSeparator.Items[0] := ', (comma)';
    frmdbCoreExport.cbSeparator.Items[1] := '; (semicolon) ';
    frmdbCoreExport.cbSeparator.Items[2] := '\t (tab)';
    frmdbCoreExport.cbSeparator.Items[3] := 'Custom';
    //frmdbCoreExport.cbSeparator.ItemIndex := 0;

    frmdbCoreExport.lbEndOfLine.Caption := 'End of line';
    frmdbCoreExport.chbEnclosing.Caption := 'Double quotes enclose';
    frmdbCoreExport.lbSQLFilter.Caption := 'SQL filter (WHERE conditions)';
    frmdbCoreExport.bExport.Caption := 'Export to CSV';


    frmdbCoreImportProgress.Caption := 'Importing...';
    frmdbCoreImportProgress.bMore.Caption := 'More details';
    frmdbCoreImportProgress.bCancel.Caption := 'Cancel';


    Translate('Export', 'Export');
    Translate('Import', 'Import');
    Translate('Records_exported', 'Records exported');
    Translate('Records_imported', 'Records imported');
    Translate('Export_is_not_configured_correctly', 'Export is not configured correctly.');
    Translate('Import_is_not_configured_correctly', 'Import is not configured correctly.');
end.
Dmitry.