---|Ветка была без названия|---

← →
Loco (2002-08-08 14:10) [0]

Всем привет!
Всё стало само собой работать:)))
но теперь возникла другая проблема.
Если так:
with DM1.Query1 do
begin
Close;
SQL.Clear;
SQL.Add("SELECT *");
SQL.Add("FROM "currentdata.dbf" c, "streets.dbf" s");
case Radiogroup1.ItemIndex of
0:DM1.Query1.SQL.Add("WHERE c.PASPSER =:SERIA AND c.PASPNOM =:NUMBER");
1:DM1.Query1.SQL.Add("WHERE c.fam =:Familia and c.nam =:Name and c.pat =:Otch and c.bday=:DRogd");
2:DM1.Query1.SQL.Add("WHERE s.street =:Ul and s.code = c.streetcode and c.home =:house and c.bld =:korp and c.flat =:kvart")
end;
ParamByName("Seria").AsString:=edSeria.Text;
ParamByName("Number").AsString:=edNumber.Text;
ParamByName("Familia").AsString:=edFam.Text;
ParamByName("Name").AsString:=edName.Text;
ParamByName("Otch").AsString:=edOtch.Text;
ParamByName("DRogd").AsDate:=dtpRogd.Date;
ParamByName("ul").AsString:=edStreet.Text;
ParamByName("house").AsString:=edHouse.Text;
ParamByName("korp").AsString:=edKorp.Text;
ParamByName("kvart").AsString:=edKvart.Text;
Open;
end;{with}
if DM1.Query1.RecordCount <> 0 then
DM1.DSpasp.DataSet:=DM1.Query1
else
begin
ShowMessage("Ни хрена не нашлося!!!!");
DM1.DSpasp.DataSet:=DM1.pasp;
end;{else}
end;
тогда при выполнении запроса (не важно каково значение itemindex) прога хочет все параметры.

А если так:
with DM1.Query1 do
begin
Close;
SQL.Clear;
SQL.Add("SELECT *");
SQL.Add("FROM "currentdata.dbf" c, "streets.dbf" s");
case Radiogroup1.ItemIndex of
0:DM1.Query1.SQL.Add("WHERE c.PASPSER =:SERIA AND c.PASPNOM =:NUMBER");
DM1.Query1.ParamByName("Seria").AsString:=edSeria.Text;
DM1.Query1.ParamByName("Number").AsString:=edNumber.Text;
1:DM1.Query1.SQL.Add("WHERE c.fam =:Familia and c.nam =:Name and c.pat =:Otch and c.bday=:DRogd");
DM1.Query1.ParamByName("Familia").AsString:=edFam.Text;
DM1.Query1.ParamByName("Name").AsString:=edName.Text;
DM1.Query1.ParamByName("Otch").AsString:=edOtch.Text;
DM1.Query1.ParamByName("DRogd").AsDate:=dtpRogd.Date;
2:DM1.Query1.SQL.Add("WHERE s.street =:Ul and s.code = c.streetcode and c.home =:house and c.bld =:korp and c.flat =:kvart")
DM1.Query1.ParamByName("ul").AsString:=edStreet.Text;
DM1.Query1.ParamByName("house").AsString:=edHouse.Text;
DM1.Query1.ParamByName("korp").AsString:=edKorp.Text;
DM1.Query1.ParamByName("kvart").AsString:=edKvart.Text;
end;
Open;
end;{with}
if DM1.Query1.RecordCount <> 0 then
DM1.DSpasp.DataSet:=DM1.Query1
else
begin
ShowMessage("Ни хрена не нашлося!!!!");
DM1.DSpasp.DataSet:=DM1.pasp;
end;{else}
end;
тогда не хотит даже компилиться, говорит:"constant expression expected"
может кто знает как исправить, подскажите, plzzz!
Cпасибо :)))

← →
SaS13 (2002-08-08 14:19) [1]

операторы кейса в бегин-блоки бери:
case Radiogroup1.ItemIndex of
0: begin DM1.Query1.SQL.Add("WHERE c.PASPSER =:SERIA AND c.PASPNOM =:NUMBER");
DM1.Query1.ParamByName("Seria").AsString:=edSeria.Text;
DM1.Query1.ParamByName("Number").AsString:=edNumber.Text;
end;
1: begin DM1.Query1.SQL.Add("WHERE c.fam =:Familia and c.nam =:Name and c.pat =:Otch and c.bday=:DRogd");
DM1.Query1.ParamByName("Familia").AsString:=edFam.Text;
DM1.Query1.ParamByName("Name").AsString:=edName.Text;
DM1.Query1.ParamByName("Otch").AsString:=edOtch.Text;
DM1.Query1.ParamByName("DRogd").AsDate:=dtpRogd.Date;
end;
2: begin DM1.Query1.SQL.Add("WHERE s.street =:Ul and s.code = c.streetcode and c.home =:house and c.bld =:korp and c.flat =:kvart")
DM1.Query1.ParamByName("ul").AsString:=edStreet.Text;
DM1.Query1.ParamByName("house").AsString:=edHouse.Text;
DM1.Query1.ParamByName("korp").AsString:=edKorp.Text;
DM1.Query1.ParamByName("kvart").AsString:=edKvart.Text;
end;
end;

← →
Loco (2002-08-08 14:26) [2]

2SaS13
Мысль! Сейчас попробую

← →
Johnmen (2002-08-08 14:33) [3]

М-да...Классический случай нежелания читать книги, хелпы, доки и просить подправить свою прогу...Печально...:(

← →
Loco (2002-08-08 14:46) [4]

2Johnmen
Тебе больше сказать нечего??????

← →
Johnmen (2002-08-08 15:01) [5]

>Loco ©

Ты чё, обиделся что-ль ? Напрасно...

← →
Loco (2002-08-08 15:11) [6]

2Johnmen ©
Да нет, просто, зачем эфир засорять ;)))

← →
Johnmen (2002-08-08 15:23) [7]

>Loco © (08.08.02 15:11)

Ты неправ, я не засоряю эфир, а пытаюсь тебя взбодрить (разозлить?), чтобы ты самостоятельно пытался решать хотя бы элементарные вещи... :-))))))))))))))

← →
Loco (2002-08-08 15:24) [8]

← →
SaS13 (2002-08-08 15:48) [9]

To: Loco
Ошибка-то исправлена?

← →
Johnmen (2002-08-08 15:51) [10]

>Loco © (08.08.02 15:24)

Такое бывает, конечно...Но я просто отвлекаюсь от проблемы и через некоторое время решение приходит само...
:))))))))))))))))

---|Ветка была без названия|--- Найти похожие ветки