select поля в combobox

@Oxotnuk · Регистрация: 18.06.2009

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

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm4::ComboBox1DropDown(TObject *Sender)
{
Form4->Klienty->Open();
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select FIO FROM KLIENT");
Query1->Open();
Form4->Klienty->Close();
Form4->Klienty->Open();
Form4->Klienty->First();
for ( int i = 0; i< Form4->Klienty->RecordCount; i++) {
ComboBox1->Items->Add("Query1FIO->Value");
Form4->Klienty->Next();
}
}

но,что то он у меня значения не тянет.....
Подскажите пожалуйста,очень срочно нужно.
P.S DBLookupComboBox почему то не хочет работать,или я им не умею пользоваться

@Sasha · 01.06.2011, 17:31

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

как мне из квери в дбгрид выводить?

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

C++
1
2
 DataSource1->DataSet = ADOQuery1;
  DBGrid1->DataSource = DataSource1;

@Oxotnuk · 01.06.2011, 17:44 **[ТС]**

это все лучше вешать на ShowForm?

@Sasha · 01.06.2011, 17:55

Лучше в FormCreate

@Oxotnuk · 01.06.2011, 18:30 **[ТС]**

First chance exception at $7C81EB33. Exception class EDatabaseError with message 'DataSource1: Circular datalinks are not allowed'. Process Project1.exe (256)

C++
1
2
3
4
Form6->DataSource1->DataSet = Form5->Query4;
Form5->DBGrid1->DataSource = Form6->DataSource1;
Query4->SQL->Add("select DATA,NAIMENOVANIE,SUMMA,SUMMAKOMISSIA from Oplata where YDALENIE = false");
Query4->Open();

Добавлено через 19 минут
Все,разобрался,пытался прицепить квери на заюзанный датасорс...

Добавлено через 12 минут
Вопрос,как сделать Caption на поля выводимые запросом?

@Sasha · 02.06.2011, 09:32

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

Вопрос,как сделать Caption на поля выводимые запросом?

C++
1
DBGrid1->Columns->Items[0]->Title = "Привет"

@Oxotnuk · 02.06.2011, 10:18 **[ТС]**

First chance exception at $7C81EB33. Exception class EAccessViolation with message 'Access violation at address 20006A04 in module 'rtl100.bpl'. Read of address E0F2E0A0'. Process Project1.exe (2824)

C++
1
DBGrid1->Columns->Items[0]->Title = "Дата"

C++
1
2
DBGrid1->Columns->Items[1]->Title = "Дата"
//тоже самое

- коментирую строку,все норм...

@Sasha · 02.06.2011, 10:31

Вот так будет правильнее

C++
1
DBGrid1->Columns->Items[0]->Title->Caption="Дата"

@Oxotnuk · 02.06.2011, 18:33 **[ТС]**

Спасибо большое

)))

Добавлено через 3 часа 7 минут
есть два

C++
1
2
DateTimePicker1->Date = Now();
DateTimePicker2->Date = Now();

как сделать запрос,что бы Dbgrid выносились записи только между ними?

Добавлено через 11 минут
Интересует после where....

Добавлено через 3 часа 17 минут

C++
1
Query1->SQL->Add("select * from Oplata_save where DATA  beetween ' + QuotedStr(DateToStr(DateTimePicker1->Date )) + ' and ' + QuotedStr(DateToStr(DateTimePicker2->DATE)) ");

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword.
Token: beetween
Line Number: 1'.
---------------------------
Break Continue Help
Как???

)) ну почему????

))
---------------------------

Добавлено через 1 час 19 минут
Все разобрался

C++
1
2
3
Query1->SQL->Add("select * from Oplata_save");
Query1->SQL->Add("where (((DATA) between  '"+ DateTimePicker1->Date+"' And '"+DateTimePicker2->Date+"')) ");
Query1->Open();

так все работает...
Вопрос только один,и очень для меня глобален,первый раз, запрос выполняется все норм,пытаюсь выполнить второй раз
First chance exception at $7C81EB33. Exception class EDBEngineError with message 'Invalid use of keyword.
Token: select
Line Number: 3'. Process Project1.exe (3684)

@MsGuns · 03.06.2011, 13:03

Query1->SQL->Clear();Query1->SQL->Add("select * from Oplata_save");
Query1->SQL->Add("where (((DATA) between '"+ DateTimePicker1->Date+"' And '"+DateTimePicker2->Date+"')) ");
Query1->Open();

Пишите всегда так
Query1->SQL->Text = <Весь текст запроса>

@Oxotnuk · 03.06.2011, 20:06 **[ТС]**

MsGuns, Моник на работе не широкоформатный,очень тяжело так вылавливать ошибки....
а вот за

C++
1
Query1->SQL->Clear();

Огромное спасибо,забыл про него,думаю че за ерунда....

Добавлено через 3 часа 12 минут

C++
1
2
3
4
5
Query1->SQL->Clear();
Query1->SQL->Add("update Oplata_save set STATUS = 1 where STATUS = 0  ");
Query1->ExecSQL();
DBGrid1->Refresh();
Form8->Update();

как сделать,что бы по конкретной записи(выделенной) в DBGrid можно было менять этот статус?
если добавить

C++
1
DBGrid1->SelectedRows;

не помогает

Добавлено через 3 часа 22 минуты
Интересует не цикл в цикле

))

@MsGuns · 04.06.2011, 13:28

Delphi
1
Моник на работе не широкоформатный,очень тяжело так вылавливать ошибки....

Что Вам мешает разбивать на строки :

SQL
1
2
3
4
5
6
7
ADOQuery->SQL->Text = "SELECT Bubble, Max(SumTax) as MaxSumTax, /
                                               Gradle, ClientName, ClientBank, /
                                               BalanceCode, BalanceSum /
                                        FROM CLIENTS /
                                        WHERE BalanceCode=:pBalanceode AND \
                                            BalanceSum>:pBalanceSum \
                                       ORDER BY ClientName"

Добавлено через 58 секунд
Вот так конечно:

C++
1
2
3
4
5
6
7
ADOQuery->SQL->Text = "SELECT Bubble, Max(SumTax) as MaxSumTax, \
                                               Gradle, ClientName, ClientBank, \
                                               BalanceCode, BalanceSum \
                                        FROM CLIENTS \
                                        WHERE BalanceCode=:pBalanceode AND \
                                            BalanceSum>:pBalanceSum \
                                       ORDER BY ClientName"

@Oxotnuk · 06.06.2011, 12:00 **[ТС]**

Не хочет красить...почему?

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm8::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
 
if (Oplata_save->FieldByName("STATUS")->Value==1)
{
DBGrid1->Canvas->Font->Color=clBlue;
DBGrid1->Canvas->FillRect(Rect);
DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}
}

@Sasha · 06.06.2011, 12:07

Тебе конкретно ячейку или полностью строку

@Oxotnuk · 06.06.2011, 12:11 **[ТС]**

Полностью сторку

C++
1
2
3
4
5
if (Oplata_save->FieldByName("STATUS")->AsInteger ==1 ) {
DBGrid1->Canvas->Brush->Color=clBlue;
DBGrid1->Canvas->Font->Color=clBlue;
DBGrid1->Canvas->FillRect(Rect);
DBGrid1->Canvas->TextOutA(Rect.Left+2,Rect.Top+2, Column->Field->Text);

и так делал
хотя вроде до этого все красило

@Sasha · 06.06.2011, 12:18

У тебя тескт и фон одним цветом

http://pressureex.narod.ru/progs/dbgrig_1.htm

Добавлено через 2 минуты
из своих собственных наработок могу дать это

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
void __fastcall TMainForm::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
if (OptionsForm->Zebr_Window->Checked == true)
       {
         if (DBGrid1->DataSource->DataSet->RecNo%2)
       {
         DBGrid1->Canvas->Font->Color = OptionsForm->ColorBox1->Selected;
         DBGrid1->Canvas->Brush->Color = OptionsForm->ColorBox2->Selected;
       }
       }
        if (State.Contains(Grids::gdSelected))
         {
          DBGrid1->Canvas->Brush->Color = OptionsForm->ColorBox3->Selected;
          DBGrid1->Canvas->Font->Color = OptionsForm->ColorBox4->Selected;
 
           if (OptionsForm->Bold_String->Checked == true)
          {
           DBGrid1->Canvas->Font->Style = TFontStyles() << fsBold;
          }
          }
            if(DBGrid1->SelectedRows->CurrentRowSelected)
           {
             DBGrid1->Canvas->Brush->Color = OptionsForm->ColorBox3->Selected;
             DBGrid1->Canvas->Font->Color = OptionsForm->ColorBox4->Selected;
           } 
             DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
             DBGrid1->Color = OptionsForm->ColorBox5->Selected;
 
}

@Oxotnuk · 06.06.2011, 12:19 **[ТС]**

Нефига он не одним цветом,он не красит вообще...я разные цвета ставил...
Просто дело в том,что раньше он красил...

@Sasha · 06.06.2011, 14:45

Можна ли раскрасить строки DBGRID в нужные цвета

@Oxotnuk · 06.06.2011, 18:45 **[ТС]**

хм,и мое заработало почитал,нужно ->Value == 0 поставил,начало красить

@Oxotnuk · 09.06.2011, 16:58 **[ТС]**

Подскажите,как в Quick репорте вывести данные по определенной записи в dbgrid?
и вообще,не особо пойму как с ним работать....
если можно примерчик какой то

спасибо)

@Sasha · 09.06.2011, 17:14

Вообще не советую лучше FastReport

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	01.06.2011, 17:44 [ТС]
	это все лучше вешать на ShowForm? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	01.06.2011, 17:55
	Лучше в FormCreate 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	03.06.2011, 13:03
	Query1->SQL->Clear();Query1->SQL->Add("select * from Oplata_save"); Query1->SQL->Add("where (((DATA) between '"+ DateTimePicker1->Date+"' And '"+DateTimePicker2->Date+"')) "); Query1->Open(); Пишите всегда так Query1->SQL->Text = <Весь текст запроса> 1

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	06.06.2011, 12:07
	Тебе конкретно ячейку или полностью строку 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	06.06.2011, 12:19 [ТС]
	Нефига он не одним цветом,он не красит вообще...я разные цвета ставил... Просто дело в том,что раньше он красил... 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	06.06.2011, 14:45
	Можна ли раскрасить строки DBGRID в нужные цвета 1

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	06.06.2011, 18:45 [ТС]
	хм,и мое заработало почитал,нужно ->Value == 0 поставил,начало красить 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	09.06.2011, 16:58 [ТС]
	Подскажите,как в Quick репорте вывести данные по определенной записи в dbgrid? и вообще,не особо пойму как с ним работать.... если можно примерчик какой то спасибо) 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	09.06.2011, 17:14
	Вообще не советую лучше FastReport 0