Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Borland C++ Builder ПОМОГИТЕ, Помогите код переделать в Borland C++  
V
    Опции темы
gepard88
Дата 14.5.2007, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Помогите переделать код в C++ Builder . За ранее благодарю. smile 

procedure TForm1.ButtonSearchClick(Sender: TObject);
begin
DataModuleGibdd.tCars.Filter:='';
 if Radiogroup1.ItemIndex=0 then
  begin
   DataModuleGibdd.tCars.Filter:='Gosnomer = '''+EdGos.Text+'''';
   Label1.Caption:=DataModuleGibdd.tCars.Filter;
  end;
 if Radiogroup1.ItemIndex=1 then
  begin
   DataModuleGibdd.tCars.Filter:='Model = '''+EdMod.Text+'''';
   Label1.Caption:=DataModuleGibdd.tCars.Filter;
  end;
  if Radiogroup1.ItemIndex=2 then
  begin
   DataModuleGibdd.tCars.Filter:='Category = '''+Edit1.Text+'''';
   Label1.Caption:=DataModuleGibdd.tCars.Filter;
  end;
  DataModuleGibdd.tCars.Filtered:=true;
end;


procedure TForm1.Button3Click(Sender: TObject);
var x:string;
begin
x:=inputbox('запрос:','введите дату техосмотра','');
DataModuleGibdd.tCars.Filter:='DateLast='+QuotedStr(x);
end;

procedure TForm1.Button4Click(Sender: TObject);
var x:string;
begin
x:=inputbox('запрос:','введите дату cледю техосмотра','');
DataModuleGibdd.tCars.Filter:='DateNext='+QuotedStr(x);
end;
PM MAIL   Вверх
Alexeis
Дата 14.5.2007, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 26
Всего: 459
Ну если писать на коленке, то примерно так.

Код

procedure TForm1.ButtonSearchClick(Sender: TObject);
begin
DataModuleGibdd.tCars.Filter:='';
 if Radiogroup1.ItemIndex=0 then
  begin
   DataModuleGibdd.tCars.Filter:='Gosnomer = '''+EdGos.Text+'''';
   Label1.Caption:=DataModuleGibdd.tCars.Filter;
  end;
 if Radiogroup1.ItemIndex=1 then
  begin
   DataModuleGibdd.tCars.Filter:='Model = '''+EdMod.Text+'''';
   Label1.Caption:=DataModuleGibdd.tCars.Filter;
  end;
  if Radiogroup1.ItemIndex=2 then
  begin
   DataModuleGibdd.tCars.Filter:='Category = '''+Edit1.Text+'''';
   Label1.Caption:=DataModuleGibdd.tCars.Filter;
  end;
  DataModuleGibdd.tCars.Filtered:=true;
end;


Код

DataModuleGibdd->tCars->Filter = "";
 if (Radiogroup1->ItemIndex == 0)
 {
     DataModuleGibdd->tCars->Filter = "Gosnomer = \""+EdGos->Text+"\"";
     Label1->Caption  = DataModuleGibdd->tCars->Filter;
 }
 if (Radiogroup1->ItemIndex ==1)
 {
     DataModuleGibdd->tCars->Filter  = "Model = \"" + EdMod->Text + "\"";
     Label1->Caption = DataModuleGibdd->tCars->Filter;
  }
  if (Radiogroup1->ItemIndex == 2)
  {
   DataModuleGibdd->tCars->Filter = "Category = \""+Edit1->Text+"\"";
   Label1->Caption = DataModuleGibdd->tCars->Filter;
  }
  DataModuleGibdd->tCars->Filtered = true;


Код

procedure TForm1.Button3Click(Sender: TObject);
var x:string;
begin
x:=inputbox('запрос:','введите дату техосмотра','');
DataModuleGibdd.tCars.Filter:='DateLast='+QuotedStr(x);
end;


Код

AnsiString x;
x = inputbox("запрос:","введите дату техосмотра","");
DataModuleGibdd->tCars->Filter = "DateLast="+QuotedStr(x);


обработчик 4й кнопки надеюсь не составит труда сделать  smile 




Это сообщение отредактировал(а) Alexeis - 14.5.2007, 12:09


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
gepard88
Дата 14.5.2007, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
возникает ошибка в   "Gosnomer = \""+EdGos->Text+"\"";

Добавлено через 1 минуту и 47 секунд
Alexeis,  возникает ошибка в   "Gosnomer = \""+EdGos->Text+"\""; 
PM MAIL   Вверх
Rodman
Дата 14.5.2007, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
какая ошибка? дословно!

Добавлено через 1 минуту и 36 секунд
все должно быть в порядке


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
gepard88
Дата 14.5.2007, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
все спасибо разобрался не хватало  ( * ' )                "Gosnomer='"+Edit1->Text+"*'";
PM MAIL   Вверх
gepard88
Дата 14.5.2007, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Помогите переделать код в C++ Builder . За ранее благодарю. 



Datasource2.DataSet:=Query1;
Query1.Close;
Query1.SQL.Assign(memo1.Lines);
Query1.Open;
DBGrid1.DataSource:=Datasource2;
PM MAIL   Вверх
Alexeis
Дата 14.5.2007, 22:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 26
Всего: 459
gepard88, тут совсем просто. Все точки нужно заменить на "->". Просто в делфи неявная разыменовка происходит а в С++ явная. Все знаки присвоить ":=" заменить на простые "=". Функции без параметров в отличие от делфи в С++ должны иметь круглые скобки.

Код

Datasource2->DataSet = Query1;
Query1->Close();
Query1->SQL->Assign(memo1->Lines);
Query1->Open();
DBGrid1->DataSource = Datasource2; 



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Klin
Дата 14.5.2007, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
gepard88, часто вы одни и те же вопросы несколько раз задаете...

ссылка


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
Alexeis
Дата 15.5.2007, 00:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 26
Всего: 459
А между тем на форуме запрещено создавать дубликаты тем.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Klin
Дата 15.5.2007, 00:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
Цитата(Alexeis @  15.5.2007,  01:03 Найти цитируемый пост)
А между тем на форуме запрещено создавать дубликаты тем. 

Ага, им это вбей smile

Добавлено через 28 секунд
сорри за оффтоп smile


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
gepard88
Дата 18.5.2007, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
всем спасибо за помошь
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0510 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.