Вывод определенных строк в DBGrid

@V1Nt1k3zOr · Регистрация: 15.05.2013

Студворк — интернет-сервис помощи студентам

Доброе время суток.
Не знаю как реализовать вывод определенных строк в DBGrid.
Пример: Есть таблица с 3 столбцами, и 10 строками. Первые 2 столбца заполнены во всех строках, в 3 столбце заполнены только 5 строк. Требуется вывести строки, в которых 3 столбец не заполнен, по клику Button, на новую форму.

Заранее благодарен.

@Sasha · 17.05.2013, 09:58

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
int save = 0;//объявить глобально
void __fastcall TForm6::Button1Click(TObject *Sender)
{
save = Form3->ADOTable1->FieldByName("id")->AsInteger;
Form5->ADOQuery1->Close();
Form5->ADOQuery1->SQL->Clear();
Form5->ADOQuery1->SQL->Add("UPDATE hotel SET datazas = :datazas, datavis = :datavis");
Form5->ADOQuery1->SQL->Add("WHERE id = " + IntToStr(save));
Form5->ADOQuery1->Parameters->ParamByName("datazas")->Value = "";
Form5->ADOQuery1->Parameters->ParamByName("datavis")->Value = "";
Form5->ADOQuery1->ExecSQL();
Form3->ADOTable1->Close();
Form3->ADOTable1->Open();
DBGrid1->Refresh();
}

@V1Nt1k3zOr · 17.05.2013, 11:09 **[ТС]**

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

+ к тому, только после закрытия формы, и открытия ее заново, только тогда ячейки становятся пустыми.

@Sasha · 17.05.2013, 11:55

Вот держи

@V1Nt1k3zOr · 17.05.2013, 12:28 **[ТС]**

Большое спасибо.
Только остается не большой нюанс.

C++
1
2
3
4
5
 Form3->DataSource1->DataSet = Form6->ADOQuery1;
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("SELECT *FROM hotel WHERE datazas IS NOT NULL");
 ADOQuery1->Open();

Тоже самое я сделал и для Забронированных номером, все прекрасно выводит.
Но, когда я освобождаю номер, тобишь отчищаю эти 2 ячейки определенной строки, эта строка не отображается в Свободных номерах, хотя ячейки эти пусты.

@Sasha · 17.05.2013, 13:02

ПОтому что там ячейки со значением NULL, а не "" вот фильтр и не срабатывает тебе надо сделать запрос с подменой NULL на "" и тогда должно быть нормально

@V1Nt1k3zOr · 17.05.2013, 13:28 **[ТС]**

Глупый вопрос, но все же. Как сделать(правильно написать) этот запрос?

@Sasha · 20.05.2013, 15:38

SQL
1
UPDATE hotel SET имя_поля = '' WHERE имя_поля IS NULL;

@V1Nt1k3zOr · 21.05.2013, 12:36 **[ТС]**

Не понимаю в чем проблема. При освобождении номера вся таблица перестает отображаться, после того как я закрываю эту форму и захожу обратно на нее, освобождается 1 номер, хотя я освобождал не его. Если не трудно, исправьте ошибочку, заранее благодарен

Данная кнопка перестала работать, когда я отобразил на этой форме только номера с заполненной датой.

программа.rar

P.S. программа уже была переработана в более новый вариант, вот он.

@_Dimon_ · 21.05.2013, 14:06

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm6::Button1Click(TObject *Sender)
{
save = Form6->ADOQuery1->FieldByName("id")->AsInteger;
Form6->ADOQuery1->Close();
Form6->ADOQuery1->SQL->Clear();
Form6->ADOQuery1->SQL->Add("UPDATE hotel SET datazas = :datazas, datavis = :datavis");
Form6->ADOQuery1->SQL->Add("WHERE id = :id");
Form6->ADOQuery1->Parameters->ParamByName("id")->Value = save;
Form6->ADOQuery1->Parameters->ParamByName("datazas")->Value.IsNull();
Form6->ADOQuery1->Parameters->ParamByName("datavis")->Value.IsNull();
Form6->ADOQuery1->ExecSQL();
Form6->ADOQuery1->SQL->Clear();
Form6->ADOQuery1->SQL->Add("SELECT *FROM hotel WHERE datazas IS NOT NULL");
Form6->ADOQuery1->Open();
 
Form3->ADOTable1->Close();
Form3->ADOTable1->Open();
 
//Form6->ADOQuery1->SQL->Add("UPDATE hotel SET datazas = '' WHERE datazas IS NULL");
//Form6->ADOQuery1->SQL->Add("UPDATE hotel SET datavis = '' WHERE datazas IS NULL");
//DBGrid1->Refresh();
}

Добавлено через 6 минут
Вроде так

@V1Nt1k3zOr · 21.05.2013, 14:12 **[ТС]**

Огромное спасибо за помощь _Dimon_ и Sasha, все работает

Тему можно закрывать

@_Dimon_ · 21.05.2013, 14:29

V1Nt1k3zOr, только я смотрю ты Form3->ADOTable1->CursorType поставил ctStatic,
верни на ctKeyset, а то номера бронировать не сможешь

Добавлено через 7 минут
Хотя можно через другой датасет, также как и на форм6

@V1Nt1k3zOr · 21.05.2013, 16:05 **[ТС]**

Пытаюсь поставить ctKeyset, выбираю свойство ADOTable>Active>True , он обратно возвращает на ctStatic.
Как решить данную проблему, чтобы можно было бронировать номера?

Так же не работает поиск.

@_Dimon_ · 21.05.2013, 16:23

~~а что в поле datazas ?~~

Добавлено через 6 минут
Не, ты сначала поставь ctKeyset и сохрани. В design-time не включай ADOTable>Active>True

Добавлено через 5 минут
Зайди в Form3->ADOTable1 в редактор полей и на каждом поле поставь ReadOnly=false

Добавлено через 1 минуту
В Form8 OnShow напиши

C++
1
2
 Form3->ADOTable1->Open();
 Form3->ADOTable1->Insert();

@V1Nt1k3zOr · 21.05.2013, 17:12 **[ТС]**

В design-time не включай ADOTable>Active>True

Не понял, что именно требуется сделать.

Поставил ctKeyset, в ADOTable>Active стоит false, ReadOnly=false, событие Form8 onShow написал. При попытки забронировать номер, после ввода даты, выдает ошибку.

@V1Nt1k3zOr · 22.05.2013, 19:48 **[ТС]**

Поиск заработал, осталось решить проблему с бронированием номеров.

@_Dimon_ · 22.05.2013, 19:52

V1Nt1k3zOr, откуда надо бронировать: с формы2 или с формы5 ?

@V1Nt1k3zOr · 22.05.2013, 20:35 **[ТС]**

Сообщение от _Dimon_

V1Nt1k3zOr, откуда надо бронировать: с формы2 или с формы5 ?

Кнопка бронировать номер находится на форме 5. Мы выбираем номер в таблице, нажимаем бронировать, открывается 8 форма. Вводим дату, нажимаем забронировать и после этого, этот номер должен отображаться в забронированных номерах, на форме 6, и не отображаться на форме 5 ( свободных номерах).

Вот программа в более новом варианте: программа final.rar

@_Dimon_ · 22.05.2013, 20:57

C++
1
2
3
4
void __fastcall TForm8::FormShow(TObject *Sender)
{
 Form3->ADOTable1->Open();
}

@V1Nt1k3zOr · 22.05.2013, 21:14 **[ТС]**

Сообщение от _Dimon_

C++
1
2
3
4
void __fastcall TForm8::FormShow(TObject *Sender)
{
 Form3->ADOTable1->Open();
}

Ничего не происходит. Номер не бронируется.

Кнопка забронировать номер:

C++
1
2
3
4
5
void __fastcall TForm5::Button2Click(TObject *Sender)
{
Form8->Show();
Form3->ADOTable1->Edit();
}

@_Dimon_ · 22.05.2013, 21:40

Я понял, чуть переделал, вроде все работает.
Подмени у себя файлы с архива, а там посмотрим

Новые блоги и статьи Все статьи Все блоги /
сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .	сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .
10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .	сукцессия 9. Математика подлости: как растения предали грибных друзей anaschu 27.06.2026 Статья 2. Глобальная фосфорная война: эволюционно-экономические механизмы распределения биомов Земли Введение: Экологический рынок как игра с нулевой суммой Традиционная экология долгое время. . .	сукцессия 8. Как я спорил с ИИ, которые - агенты растений и ненавистники грибов! anaschu 27.06.2026 Статья 1. Хроники грибного восстания: как Сократов диалог разрушил академические догмы ИИ Введение: Синдром «цифрового учебника» Современные большие языковые модели (LLM) обладают колоссальным. . .	Главный вопрос моделирования сукцессии anaschu 27.06.2026 главный вопрос. Если эктомикориза лучше добывает недоступный фосфор. И ее масса максимальна из всех. А широколиственный лес тоже имеет самую крутую биомассу. То почему не возникло их симбиоза? Это. . .

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33

	Вывод определенных строк в DBGrid 15.05.2013, 13:21. Показов 8585. Ответов 58 Метки нет (Все метки) Доброе время суток. Не знаю как реализовать вывод определенных строк в DBGrid. Пример: Есть таблица с 3 столбцами, и 10 строками. Первые 2 столбца заполнены во всех строках, в 3 столбце заполнены только 5 строк. Требуется вывести строки, в которых 3 столбец не заполнен, по клику Button, на новую форму. Заранее благодарен. 0

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33
	17.05.2013, 11:09 [ТС]
	Он освободил почему то 1 строку в таблице, хотя я выбирал другую строку. Когда он освободил эту первую строку, я решил проверить, будет ли эту строку выдавать в Свободных номерах, оказывается нет. Как сделать так, чтобы шло обновление? Перезапускал программу, он выводит эту же строку в забронированных номерах, хотя эти ячейки пустые. + к тому, только после закрытия формы, и открытия ее заново, только тогда ячейки становятся пустыми. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	17.05.2013, 13:02
	ПОтому что там ячейки со значением NULL, а не "" вот фильтр и не срабатывает тебе надо сделать запрос с подменой NULL на "" и тогда должно быть нормально 0

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33
	17.05.2013, 13:28 [ТС]
	Глупый вопрос, но все же. Как сделать(правильно написать) этот запрос? 0

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33
	21.05.2013, 12:36 [ТС]
	Не понимаю в чем проблема. При освобождении номера вся таблица перестает отображаться, после того как я закрываю эту форму и захожу обратно на нее, освобождается 1 номер, хотя я освобождал не его. Если не трудно, исправьте ошибочку, заранее благодарен Данная кнопка перестала работать, когда я отобразил на этой форме только номера с заполненной датой. программа.rar P.S. программа уже была переработана в более новый вариант, вот он. 0

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33
	21.05.2013, 14:12 [ТС]
	Огромное спасибо за помощь _Dimon_ и Sasha, все работает Тему можно закрывать 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	21.05.2013, 14:29
	V1Nt1k3zOr, только я смотрю ты Form3->ADOTable1->CursorType поставил ctStatic, верни на ctKeyset, а то номера бронировать не сможешь Добавлено через 7 минут Хотя можно через другой датасет, также как и на форм6 0

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33
	21.05.2013, 16:05 [ТС]
	Пытаюсь поставить ctKeyset, выбираю свойство ADOTable>Active>True , он обратно возвращает на ctStatic. Как решить данную проблему, чтобы можно было бронировать номера? Так же не работает поиск. 0

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33
	21.05.2013, 17:12 [ТС]
	В design-time не включай ADOTable>Active>True Не понял, что именно требуется сделать. Поставил ctKeyset, в ADOTable>Active стоит false, ReadOnly=false, событие Form8 onShow написал. При попытки забронировать номер, после ввода даты, выдает ошибку. 0

@V1Nt1k3zOr 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 33
	22.05.2013, 19:48 [ТС]
	Поиск заработал, осталось решить проблему с бронированием номеров. 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	22.05.2013, 19:52
	V1Nt1k3zOr, откуда надо бронировать: с формы2 или с формы5 ? 0