VPF::Класс производный от TOracleQuery - Форум программистов

pseud

Дата 16.12.2008, 10:28 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(holodnaya @ 16.12.2008, 01:07

)

И что же теперь делать?

Ссылка:
DOA: Делал ли кто-нибудь Dataset-обертку над TOracleQuery?

Все точки расставлены:

Код


//unit OracleData
TOracleDataset = class(TDataSet);

//unit Oracle
TOracleQuery = class(TComponent)

попробуй cделать свой класс так:

Код


  TLogonOracleDataSet = class(TOracleDataset)
  ...

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

holodnaya

Дата 17.12.2008, 09:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Pseud, спасибо большое за помощь!
Я разобралась в чём у меня была ошибка.
Это я по глупости вызывала конструктор в одной процедуре (при загрузке MainForm), а методы этого класса - в процедуре другого юнита, а не в одной процедуре одного мейна последовательно.
Сейчас пишу так, и всё работает.

Код


procedure TFLogon.BitBtn1Click(Sender: TObject);
begin
    if quLogon = nil then
    quLogon := TLogonOracleQuery.Create(DM.OracleSession1);
    
   if quLogon.Logon(LabeledEdit1.Text, LabeledEdit2.Text) then
     begin
       MainForm.Show;
        // уничтожить форму авторизации
        FLogon.Free;
        //quLogon.Free;
     end;
 end;

pseud

Дата 17.12.2008, 11:08 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

предлагаю немножко еще доработать:
1. я так понял quLogon это поле класса формы, а не брошенный на форму компонент. может лучше вообще динамически.
2. FLogon - это видимо глобальная переменная автогенерируемая дельфей. в классе формы НИКОГДА к ней не обращайся. лучше уж к Self.
3. поэтому код:

Код


procedure TFLogon.BitBtn1Click(Sender: TObject);
begin
  with TLogonOracleQuery.Create(DM.OracleSession1) do
  try
    if Logon(LabeledEdit1.Text, LabeledEdit2.Text) then
    begin
      MainForm.Show;
      Close; // закрытие Self
    end;
  finally
    Free; // не забываем подгребать мусор TLogonOracleQuery
  end;
end;

4. всем всем всем и тебе в частности пройти Рыцарская Квинтатана (тестирование по Delphi). Вся прелесть в том, что результат тестирования - это не выставление оценки знаниям, а подробный и доходчивый анализ ответов на поставленный вопросы.

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

holodnaya

Дата 17.12.2008, 21:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо и за оптимизацию, и за предложение пройти тестирование. Обязательно проверю свои силы как только сдам сессию.

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