Если название таблицы оказалось не
wS := TbNameEdit.Text;
// Если название таблицы оказалось не заданным - предлагаем его
if Trim(wS) = '' then
begin { Имя таблицы не задано }
wFullTbName := FDbInterface.Get_UniqueTableName(apDbType);
// Выделяем из wFullTbName префикс для категории информации
wCategPrefix := Copy(wFullTbName, 1, kPrefixL);
// Предварительно ставим неопределенную категорию информфации
wpTInfoCategory := nil;
for k:=0 to FDbInterface.InfoCategoryList.Count-1 do
begin
wpTInfoCategory := pTInfoCategory(FDbInterface.InfoCategoryList[k]);
if wpTInfoCategory.sEnumName = 'icNoCateg' then
Break
else
wpTInfoCategory := nil;
end;
wS := wpTInfoCategory.sInfoDescr;
TbDbTypeComboBox.ItemIndex := TbDbTypeComboBox.Items.IndexOf(wS);
for kICateg := 0 to FDbInterface.InfoCategoryList.Count-1 do
begin
if pTInfoCategory(FDbInterface.InfoCategoryList[kICateg]) = nil then
Continue;
if pTInfoCategory(FDbInterface.InfoCategoryList[kICateg]).sPrefix =
wCategPrefix then
begin
s := pTInfoCategory(FDbInterface.InfoCategoryList[kICateg]).sInfoDescr;
TbDbTypeComboBox.ItemIndex := TbDbTypeComboBox.Items.IndexOf(s);
Break;
end;
end;
{ Заполняем поля информацией по умолчанию }
{ Пользователю префикс не показываем }
System.Delete(wFullTbName, 1, kPrefixL);
TbNameEdit.Text := wFullTbName;
TbCaptionEdit.Text := wFullTbName;
TbDescrEdit.Text := 'Таблица БД ' + wFullTbName;
end;
end;
procedure TTbDlgFr.TbNameEditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
FindNextControl(Sender as TWinControl, True, True, True).SetFocus;
end;
procedure TTbDlgFr.TbNameEditKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_UP then
FindNextControl(Sender as TWinControl, False, True, True).SetFocus
else if Key = VK_DOWN then
FindNextControl(Sender as TWinControl, True, True, True).SetFocus;
end;
end.
Содержание Назад Вперед