DBO_TYPE is used in different contexts, not only as deprecated column name for engine.

This commit is contained in:
Ansgar Becker
2009-05-24 06:36:11 +00:00
parent 7cf4a22a71
commit e97f6f5955
2 changed files with 2 additions and 2 deletions

View File

@ -291,8 +291,8 @@ const
SContainsNulCharGrid = 'This cell contains NUL characters. They have been converted to ASCII spaces (SP). Press ESC to cancel editing.'; SContainsNulCharGrid = 'This cell contains NUL characters. They have been converted to ASCII spaces (SP). Press ESC to cancel editing.';
DBO_NAME = 'Name'; DBO_NAME = 'Name';
DBO_TYPE = 'Type';
DBO_ENGINE = 'Engine'; DBO_ENGINE = 'Engine';
DBO_ENGINE_DEPRECATED = 'Type';
DBO_VERSION = 'Version'; DBO_VERSION = 'Version';
DBO_ROWFORMAT = 'Row_format'; DBO_ROWFORMAT = 'Row_format';
DBO_ROWS = 'Rows'; DBO_ROWS = 'Rows';

View File

@ -253,7 +253,7 @@ begin
if ds.FindField(DBO_ENGINE) <> nil then if ds.FindField(DBO_ENGINE) <> nil then
engine := ds.FieldByName(DBO_ENGINE).AsString engine := ds.FieldByName(DBO_ENGINE).AsString
else else
engine := ds.FieldByName(DBO_ENGINE_DEPRECATED).AsString; engine := ds.FieldByName(DBO_TYPE).AsString;
comboEngine.ItemIndex := comboEngine.Items.IndexOf(engine); comboEngine.ItemIndex := comboEngine.Items.IndexOf(engine);
if ds.FindField(DBO_COLLATION) <> nil then if ds.FindField(DBO_COLLATION) <> nil then
comboCollation.ItemIndex := comboCollation.Items.IndexOf(ds.FieldByName(DBO_COLLATION).AsString); comboCollation.ItemIndex := comboCollation.Items.IndexOf(ds.FieldByName(DBO_COLLATION).AsString);