VPF::KeyValue - Форум программистов

tikitiki

Дата 15.12.2005, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

Овладел созданием локальных баз через BDE в paradox наконец нормально. KeyValue использую интуитивно как ниже

Код


type
  TfmFlightRegisterMain = class(TForm)
    laEatTimeNumber: TLabel;
    deEatTimeNumber: TDBEdit;
    buCancel: TButton;
    buExit: TButton;
    dsEatTimeNumber: TDataSource;
    taEatTimeNumber: TTable;
    naEatTimeNumber: TDBNavigator;
    laAirCompanyName: TLabel;
    deAirCompanyName: TDBEdit;
    taEatTimeNumberAircname: TStringField;
    taEatTimeNumberEattmnum: TFloatField;
    procedure FormActivate(Sender: TObject);
    procedure buExitClick(Sender: TObject);
    procedure buCancelClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    Editing:Boolean;
    KeyValue:String;
  end;

Всё работает, но я хочу описание желательно русское, как его использовать, чтоб без ошибок всё было. Или краткое объяснение. Я его использовал в разных модулях. В одной программе у меня получились KeyValue типа integer и string. Объявлял как выше в примере только с разными типами. Не совсем правильно выразился-меня больше интересует не использование, а правильное объявление наподобие как в приведённом примере, чтоб модули связать правильно.

Это сообщение отредактировал(а) Girder - 16.12.2005, 11:01

--------------------

Помощь по php(блог)

tikitiki

Дата 17.12.2005, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

Почему никто не отвечает. Меня этот вопрос сильно интересует.
И вопрос то вроде чепуховый. smile

(

--------------------

Помощь по php(блог)

YurikGL

Дата 18.12.2005, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: нет
Всего: 2

Цитата

но я хочу описание желательно русское, как его использовать, чтоб без ошибок всё было.

Советую взять справку к delphi и англо-русский словарь.
Всю жизнь Вам переводить справку никто не будет. Надо уметь пользоваться английской.

--------------------

tikitiki

Дата 19.12.2005, 05:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

Я справок английских много читаю. У меня проблема в данном случае в другом.
Я help по delphi смотрел, но не понял смысл. Бывает очень часто, что и русский текст смысл не понимаешь, если информация техническая или новая какая-то заковыристая. Спервого раза не всё даётся. Ведь так?

--------------------

Помощь по php(блог)

sexton

Дата 19.12.2005, 09:08 (ссылка)

(нет голосов)

Загрузка ...

sexton=Пономарь (eng)

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: нет
Всего: 9

Цитата(tikitiki @ 19.12.2005, 05:28)

Бывает очень часто, что и русский текст смысл не понимаешь, если информация техническая или новая какая-то заковыристая.

Я в данном случае не понял русский текст. В чем суть проблемы?

--------------------

Поставить +

ЖЖ
Рассылка Рассылок

tikitiki

Дата 19.12.2005, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

Цитата

В чем суть проблемы?

Я кроме того, что можно бы ставить объявление KeyValue в раздел public,
больше ничего об использовании KeyValue не знаю. Догадываюсь, что
KeyValue относится к величине ключа таблицы. В программе всё делаю интуитивно, работает, но так же ошибок не избежишь, если не знаешь
толком, как применять. Этот вопрос последний не разобраный для меня, как я считаю, из вопросов по локальным бд.

--------------------

Помощь по php(блог)

Vit

Дата 19.12.2005, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Хм... в приведенном коде KeyValue нигде не используется... вы просто объявили по сути переменную и всё...

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

tikitiki

Дата 19.12.2005, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

Цитата

в приведенном коде KeyValue нигде не используется

Vit, я здесь всё пытался объяснить, что использование мне не надо-я знаю. А вот как объявлять правильно и в каких модулях не знаю. Кстати,
насчёт -переменная -это какая-то специальная переменная KeyValue и могу ли я менять тип и имя этой переменной?

--------------------

Помощь по php(блог)

YurikGL

Дата 19.12.2005, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: нет
Всего: 2

Цитата

tikitiki (Online)

Какая разница, как переменную назвать? От этого не меняется ее тип или предназначение. С ней можно делать все, что можно делать с любой другой переменной.

--------------------

tikitiki

Дата 20.12.2005, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

Цитата

С ней можно делать все, что можно делать с любой другой переменной.

В help по delphi6 нашёл сейчас статьи TDBLookupControl.KeyValue и TDBLookupControl.KeyValue для VCL. Там пишется:Represents the common value of the KeyField field and the DataField field.

Я не уверен, что это относится к моему вопросу, но может это и есть переменная KeyValue?
Тоже можно сказать про Editing -выше в коде тоже есть.
Извиняюсь, если нелепо выгляжу.

--------------------

Помощь по php(блог)

YurikGL

Дата 20.12.2005, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: нет
Всего: 2

Цитата

Там keyvalue является параметром соответсвующих классов. Если этот параметр применять по отношению к этим классам то он будет значить то, что написано в хелпе.
В твоем случае этого нет.
Ты можешь назвать переменную
i:integer или Form1:integer Разницы между Form1 и i в этом случае не будет.

--------------------

tikitiki

Дата 20.12.2005, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

Цитата

Ты можешь назвать переменную
i:integer или Form1:integer Разницы между Form1 и i в этом случае не будет.

Кажется начинаю понимать.
Чтоб окончательно прояснить - ниже код из implementation из того же модуля, что выше описан:

Код



procedure TfmFlightRegisterMain.buExitClick(Sender: TObject);
begin
   with taEatTimeNumber do
   begin
   if (State in [dsEdit,dsInsert]) and Modified then
      Post;   {Сохранить изменения, если действует режим}
   end;        {редактирования или дополнения и запись изменялась}
KeyValue :=   {Запомнить значение ключа для fmShowFlights}
          taEatTimeNumber.FieldByName('Aircname').AsString;
fmFlightRegisterMain.Close;

end;

Код


procedure TfmFlightRegisterMain.FormActivate(Sender: TObject);
begin

if Editing then
   begin
   Caption := 'Регистрация новой авиакомпании режим редактирования';
   naEatTimeNumber.Enabled:=True; {Навигатор доступен}
   with taEatTimeNumber do
      begin
      DisableControls;
      First;
      SetKey;
      FieldByName('Aircname').AsString:= KeyValue;
      GotoKey;        {Поиск записи по ключу}

         EnableControls;
         Edit;           {Режим редактирования}
         
      end;
   end
else
   begin
   Caption := 'Регистрация новой авиакомпании режим дополнения';
   naEatTimeNumber.Enabled:=False; {Навигатор не доступен}
   taEatTimeNumber.Append;   {Режим дополнения}
   end;
end;

Этот код работает так, как мне нужно и без ошибок в данных после тестов и на форме TfmFlightRegisterMain есть соответствующие навигатор naEatTimeNumber и таблица taEatTimeNumber.
В этом коде KeyValue - та же переменная, которую я могу переименовать по своему? Или что? Я просто этот код писал на основе примеров и не до конца по описанию смог понять, что к чему.
Заранее спасибо.

--------------------

Помощь по php(блог)

YurikGL

Дата 20.12.2005, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: нет
Всего: 2

Цитата

В этом коде KeyValue - та же переменная, которую я могу переименовать по своему?

Да. Только не забудь все обращения к ней тоже переименовать.

--------------------

tikitiki

Дата 21.12.2005, 05:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 10.5.2005

Репутация: нет
Всего: нет

YurikGL, спасибо большое за ясность в голове. По-моему благодарность не ушла. Потому повторил.

--------------------

Помощь по php(блог)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »