Статьи Королевства Дельфи


L1_pas - часть 3


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.




Начало  Назад  Вперед