Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Query SQL command [D5, D6, D7, MSSQL, MySQL, dBase, FoxPro]

Otari © (2004-12-27 14:23:00)
form1.Query1.SQL.Add('select * from sotobase where '); if CheckBox1.Checked=true then form1.Query1.SQL.Add(' Yliko='+#39+CheckBox1.caption+#39); if CheckBox2.Checked=true then form1.Query1.SQL.Add(' or Yliko='+#39+CheckBox2.caption+#39);

Problema u menia iest takoi, v etom kode abezatelno doljen bit otme4en chekbox1, a ia xo4u 4to imet vce kompinacii toist mogbi otmechat tolko checkbox2, ili oba

Sergey13 (2004-12-27 17:06:00) [1]
2[17] Otari (27.12.04 17:02)
>xorosogo novovo goda.
И тебе там, в Греции. 8-)

Otari (2004-12-27 17:02:00) [2]
spasiba 4to pamog, znaiu 4to etot primer xren, ia eto prosta dlia primera sdelal. xorosogo novovo goda.

Sergey13 (2004-12-27 16:46:00) [3]
2 [15] Otari (27.12.04 16:22)
Отари, у тебя есть интернет. В нем можно найти чего угодно. Каких то изысков в программировании тебе не надо. Примеры, которые тебе нужны можно найти в поставке Делфи, в каталоге DEMOS.
Но у тебя пока нет главного - понимания теории БД. Хотя бы в общих чертах. Для понимания надо читать книги и изучать чужой опыт.

>ia tebe na email otoslal primer i
Мне он не нужен (кстати мог бы и получше пожать - 450К - это слишком 8-). Твои "li4nie problemi" решай сам, я чужие проблемы решаю за деньги.

>posmotri mojet i ti ne mojes razbiratsia
Я разобрался - это ужас!!! Я не хочу тебя обидеть, но это так. Скорее всего - это просто от незнания и отсутствия опыта. Но ты должен научиться САМ. Если тебе не понятны конкретные вопросы - спрашивай. Но никто не будет делать за тебя твою работу. По крайней мере не я.

Otari (2004-12-27 16:22:00) [4]
eto moie li4nie problemi, ia v grecii gde ia naidu ruskie knigi, a voobsheto ia gruzin i ne znai tak xoroso ruskovo a po gruzinski kompiuterskaia literature xrenovaia. ia tebe na email otoslal primer i posmotri mojet i ti ne mojes razbiratsia

Sergey13 (2004-12-27 16:16:00) [5]
2[13] Otari (27.12.04 16:13)
>esli ti mojes podskasi po bratski
Конечно, братан! Книжки читать надо. 8-)

Otari (2004-12-27 16:13:00) [6]
paslusai mne eta o4en trudno kajetsia, esli ti mojes podskasi po bratski a ne otcenki vstavliai.

Sergey13 (2004-12-27 16:03:00) [7]
Я бы тебе 2 по проектированию БД поставил. Или, скорее, 1(кол). 8-)
При добавлении любого условия ты программу будешь переписывать?

Otari (2004-12-27 15:55:00) [8]
nu isho adno. dopustim u menia iest baza 4 stolbikami: Company, Product, City, Description. i u menia na kajdom stolbike iest 4 chekbox a
dopustim

COPMANY
chekbox1,2,3,4.caption := 'SOTO','AC','MOBIL','UUU';

Product
chekbox5,6,7,8.caption := 'CARS','CHEARS','PHONES','AAA';

City
chekbox9,10,11,12.caption := 'MOSCOW','BERLIN','ATHENS','CCC';

Description
chekbox13,14,15,16.caption := 'kuku','pupu','rara','ssss';

i ia xo4u sdelat filter ili vrodi poiska na Query1, tak 4to na4inaia s stolbika Company, sdelal multi filter.
v principe 4to ia mog otme4at luboi chekbox kakoi ia zaxa4u

pazdelno na kajdom stolbike net problem no vmeste ia imeiu vvedu

Otari (2004-12-27 15:12:00) [9]
vsio spasiba za vsio ia uje razobralsia, mne o4en pomogli.

Stanislav (2004-12-27 14:56:00) [10]
Johnmen © (27.12.04 14:47) [7]
:-)Ну, да верно.
Otari (27.12.04 14:42) [4]
Ну сделай циклом
For i=0 to Form1.componentCount-1 do
begin
if form1.Components[i].ClassName=Tcheckbox do
.
.
.

Sergey13 (2004-12-27 14:51:00) [11]
2[6] Otari (27.12.04 14:45)
>nu davai gavari nau4i menia 200 variantov
Я тебе чем то обязан? Давай по 10 рублей за вариант - сделаю.
Например у if есть еще else.

Johnmen (2004-12-27 14:47:00) [12]
>Delete (A,Length(A)-4,4)

Это зачем так извращаться ?
Проще надо быть, ещё проще...
if Length(A)>0 then SetLength(A,Length(A)-4);

Otari (2004-12-27 14:45:00) [13]
nu davai gavari nau4i menia 200 variantov

Sergey13 (2004-12-27 14:43:00) [14]
2[3] Otari (27.12.04 14:38)
>vobsheto v proge u menia 20 chekbox-ov
Да хоть 200. Если возможны 200 вариантов, значит и учитывать надо 200.

Ну хотябы 190. 8-)

Otari (2004-12-27 14:42:00) [15]
a zdes ne nado

if CheckBox2.Checked and checkbox1.checked then A:='Yliko='+#39+CheckBox2.caption+#39+' OR '+' Yliko='+#39+CheckBox1.caption+#39;

a esli u menia 20 checkbox-ob togda do zavtra ne zakon4u pisat eto

Otari (2004-12-27 14:38:00) [16]
vobsheto v proge u menia 20 chekbox-ov, dlia principa skazal a ne dlia 4to vse varianti rasmotrivat

Sergey13 (2004-12-27 14:35:00) [17]
2Otari (27.12.04 14:23)
>a ia xo4u 4to imet vce kompinacii toist mogbi otmechat tolko checkbox2, ili oba
А чего же тогда в проге только 2 (вернее 1.5) варианта рассматриваешь?

Stanislav (2004-12-27 14:32:00) [18]
Var A:String
.
.
.
A:=''
A:= if CheckBox1.Checked then A:=A+'Yliko='+#39+CheckBox1.caption+#39+' OR '

A:= if CheckBox2.Checked then A:=A+'Yliko='+#39+CheckBox2.caption+#39+' OR '
Delete (A,Length(A)-4,4)
form1.Query1.SQL.Add (A)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »