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

Новые блоги и статьи Все статьи Все блоги /
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.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