VPF::Обновление программы - Форум программистов

krobs

Дата 14.4.2006, 10:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Господа, вы можете подсказать пожалуйста?!
Как в Delphi 7 можно стелать, чтобы на щелчёк кнопки моя программа обновлялась- как в Windows: кликаешь Обновить!

Заранее спасибо за ответ!

Tror

Дата 14.4.2006, 11:15 (ссылка)

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

Загрузка ...

Бывалый

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

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

что конкретно тебе нужно обновлять?

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

Не говори всегда что знаешь, но знай всегда что говоришь. /Клавдий/============================================Кто может -- тот делает. Кто не может... тот получает сертификат MCSE ;)

krobs

Дата 14.4.2006, 12:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Конкретно (Главное):
1) Скажем нашёл я в БД запись, изменил (добавил, удалил,...) - кликаю кнопку "Все записи" и те данный, котроые только что изменял - в общем списке остаются старыми (хотя в запросе - новые). Чтобы обновить запись (и) --> презапускаю программу;
Процедура кнопки:

Код


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
DataSource1.DataSet:=ADOTable1;
end;

2) Есть у меня такая процедура:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar.Panels[2].Text:='Всего записе в БД: '+ IntToStr(ADOQuery1.RecordCount);
end;

...если я добавляю запись то покая не презепущу программу, в StatusBar у мяня останится прежнее число!

Ну а вообще может проще сделать как я уже говорил - на клик кнопки (новой) обновляется ВСЁ, что может обновиться - мне бы также - если это вообще возможно? Т. Е. обновление = презапуск программы!

Это сообщение отредактировал(а) krobs - 14.4.2006, 15:13

McDevil

Дата 14.4.2006, 17:02 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

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

krobs, ну допустим

Код


procedure RefreshDataSet(boolActive :Boolean);
begin
 table1.Active:=boolActive;
 table2.Active:=boolActive;
  {и т.д.}
end;

А вообще что-за базу используете...

Это сообщение отредактировал(а) McDevil - 14.4.2006, 17:03

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

мы знаем столько, сколько можем, а можем столько, сколь хотим...

Тестируем программу: SPL-программа аналогов функций

krobs

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

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

Загрузка ...

Новичок

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

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

Access 2003 подключаюсь через ADO/
Компоненты: ADOQuery1, ADOTable1, DataSource1

Спасибо за ответ, но толко я не овсем понял:

Цитата

Код


procedure RefreshDataSet(boolActive :Boolean);

RefreshDataSet - это где, куда, откуда.
А другие варианты есть вообще?

Это сообщение отредактировал(а) krobs - 14.4.2006, 17:27

McDevil

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

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

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

krobs, вот вам процедурка :

Код


 public
    { Public declarations }
  procedure RefreshDataSet(const boolActive: Boolean);//обьявляем надеюсь знаете :) 

procedure TForm1.RefreshDataSet(const boolActive: Boolean);
var
  intIndex: Integer;
begin
  with DM do begin
     for intIndex := 0 to ComponentCount - 1 do begin
      if Components[intIndex] is TADOTable then begin
        (Components[intIndex] as TADOTable).Active := boolActive;
      end;
      if Components[intIndex] is TADOQuery then begin
        (Components[intIndex] as TADOQuery).Active := boolActive;
      end;
    end;
  end;
end;

По суте она просто открывает и закрывает ваши таблицы...
Вызываем так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 RefreshDataSet(False);//закраваем 
 RefreshDataSet(True);//открываем
end;

ИТОГ:обновление пашет smile

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

krobs

Дата 15.4.2006, 13:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Сделал я так:
1) В ручную просто прописал:

Код


public
    { Public declarations }
  procedure RefreshDataSet(const boolActive: Boolean);

Далее, опять - в ручную скопировал процедуру:

Код


procedure TForm1.RefreshDataSet(const boolActive: Boolean);
var
  intIndex: Integer;
begin
  with DM do begin
     for intIndex := 0 to ComponentCount - 1 do begin
      if Components[intIndex] is TADOTable then begin
        (Components[intIndex] as TADOTable).Active := boolActive;
      end;
      if Components[intIndex] is TADOQuery then begin
        (Components[intIndex] as TADOQuery).Active := boolActive;
      end;
    end;
  end;
end;

2) Далее: создал на форме новую кнопку и прописал:

Код


RefreshDataSet(False);//закраваем 
 RefreshDataSet(True);//открываем

3) Запустил программу --> ошибки нет --> выполнил запрос --> изменил запись в появившемся ответе на запрос --> "Все записи" --> нажал новую кнопку --> обновления нет - старая запис как была так и осталась --> пришлось перезапускать программу.

Я тут подумал: RefreshDataSet - может быть это какой-нибудь новый компонент д/б на форме, или в Обжект Инспекторе свойсто какое (или событие)?

Это сообщение отредактировал(а) krobs - 15.4.2006, 14:05

McDevil

Дата 15.4.2006, 14:49 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

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

Цитата(krobs @ 15.4.2006, 13:57

)

Я тут подумал: RefreshDataSet - может быть это какой-нибудь новый компонент д/б на форме, или в Обжект Инспекторе свойсто какое (или событие)?

Да нет это название процедуры...
Ну тогда попробуй еще коннект перерубай...
А вообще не знаю у меня всегда нормально работало...

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

Martisha

Дата 10.12.2008, 09:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(McDevil @ 14.4.2006, 23:37

)

with DM do begin

а что такое DM?

Данкинг

Дата 10.12.2008, 11:54 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Martisha @ 10.12.2008, 09:52

)

а что такое DM?

Ну да, 2.5 года спустя сейчас непременно об этом скажут. smile

Хотя, я тоже не понял, зачем там это DM нужно.

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

There's nothing left but silent epitaphs.

Martisha

Дата 10.12.2008, 13:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Данкинг @ 10.12.2008, 11:54

)

Ну да, 2.5 года спустя сейчас непременно об этом скажут

что то внимание не обратила smile

Akella

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

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(Данкинг @ 10.12.2008, 11:54

)

у да, 2.5 года спустя сейчас непременно об этом скажут. smile Хотя, я тоже не понял, зачем там это DM нужно.

Сразу видно, человек пользуется поиском.

Martisha, молодец!!!!! smile

Добавлено через 4 минуты и 23 секунды
Martisha, ты что, даже не читала 21 урок по "базам данных"? И сразу в оракл? smile

Martisha

Дата 11.12.2008, 08:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Akella @ 10.12.2008, 17:23

)

Сразу видно, человек пользуется поиском.

Martisha, молодец!!!!!

я такая

Цитата(Akella @ 10.12.2008, 17:23

)

ты что, даже не читала 21 урок по "базам данных"? И сразу в оракл?

я читала что то по ораклу, но сложно все сразу переварить..я в оракле всего лишь месяца два работаю, и месяца три назад начала программировать smile

сложно сразу врубиться во все smile

а что за 21 урок???

Akella

Дата 11.12.2008, 12:53 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

ну я помню, когда начинал изучение БД, то в инете нашёл и распечатал "21 урок"

Добавлено через 30 секунд
Неужели книжку не купить какую нить типа "БД для начинающих" smile

Martisha

Дата 11.12.2008, 13:30 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Akella @ 11.12.2008, 12:53

)

Неужели книжку не купить какую нить типа "БД для начинающих"

да у меня две книги под рукой, только пока не столкнешься с проблемой читать бесполезно smile

я читала, только не все пока понятно, но мне кажется многие так и начинают и учатся на своих ошибках smile

Добавлено через 1 минуту и 13 секунд
к тому же иногда просто не знаешь где искать..порой просто пинок небольшой нужен)

Akella

Дата 11.12.2008, 14:04 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(Martisha @ 11.12.2008, 13:30

)

да у меня две книги под рукой, только пока не столкнешься с проблемой читать бесполезно

читай всё подряд, потом, когда столкнёшься с проблемой будешь знать где и что искать

Martisha

Дата 11.12.2008, 14:50 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Akella @ 11.12.2008, 14:04

)

читай всё подряд, потом, когда столкнёшься с проблемой будешь знать где и что искать

так и делаю) только каша в голове smile

а так потихонь-поманеньку smile

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