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

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

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

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

Loco © (2002-08-08 14:10:00)
Всем привет!
Всё стало само собой работать:)))
но теперь возникла другая проблема.
Если так:
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пасибо :)))

Johnmen (2002-08-08 15:51:00) [1]
>Loco © (08.08.02 15:24)

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

SaS13 (2002-08-08 15:48:00) [2]
To: Loco
Ошибка-то исправлена?

Loco (2002-08-08 15:24:00) [3]
2Johnmen ©
Просто когда долго решаешь одну задачу начинаешь тупить! :)))
У тебя не так???

Johnmen (2002-08-08 15:23:00) [4]
>Loco © (08.08.02 15:11)

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

Loco (2002-08-08 15:11:00) [5]
2Johnmen ©
Да нет, просто, зачем эфир засорять ;)))

Johnmen (2002-08-08 15:01:00) [6]
>Loco ©

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

Loco (2002-08-08 14:46:00) [7]
2Johnmen
Тебе больше сказать нечего??????

Johnmen (2002-08-08 14:33:00) [8]
М-да...Классический случай нежелания читать книги, хелпы, доки и просить подправить свою прогу...Печально...:(

Loco (2002-08-08 14:26:00) [9]
2SaS13
Мысль! Сейчас попробую

SaS13 (2002-08-08 14:19:00) [10]
операторы кейса в бегин-блоки бери:
case Radiogroup1.ItemIndex of
0: beginDM1.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: beginDM1.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: beginDM1.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;

Наверх

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