Query SQL command

← →
Otari (2004-12-27 14:23) [0]

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

← →
Stanislav © (2004-12-27 14:32) [1]

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)

← →
Sergey13 © (2004-12-27 14:35) [2]

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

← →
Otari (2004-12-27 14:38) [3]

vobsheto v proge u menia 20 chekbox-ov, dlia principa skazal a ne dlia 4to vse varianti rasmotrivat

← →
Otari (2004-12-27 14:42) [4]

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

← →
Sergey13 © (2004-12-27 14:43) [5]

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:45) [6]

nu davai gavari nau4i menia 200 variantov

← →
Johnmen © (2004-12-27 14:47) [7]

>Delete (A,Length(A)-4,4)

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

← →
Sergey13 © (2004-12-27 14:51) [8]

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

← →
Stanislav © (2004-12-27 14:56) [9]

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
.
.
.

← →
Otari (2004-12-27 15:12) [10]

vsio spasiba za vsio ia uje razobralsia, mne o4en pomogli.

← →
Otari (2004-12-27 15:55) [11]

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

← →
Sergey13 © (2004-12-27 16:03) [12]

Я бы тебе 2 по проектированию БД поставил. Или, скорее, 1(кол). 8-)
При добавлении любого условия ты программу будешь переписывать?

← →
Otari (2004-12-27 16:13) [13]

paslusai mne eta o4en trudno kajetsia, esli ti mojes podskasi po bratski a ne otcenki vstavliai.

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

← →
Otari (2004-12-27 16:22) [15]

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

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 17:02) [17]

spasiba 4to pamog, znaiu 4to etot primer xren, ia eto prosta dlia primera sdelal. xorosogo novovo goda.

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

Query SQL command Найти похожие ветки