Форум: "Базы";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
---|Ветка была без названия|--- Найти похожие ветки
← →
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]2Johnmen ©
Просто когда долго решаешь одну задачу начинаешь тупить! :)))
У тебя не так???
← →
SaS13 (2002-08-08 15:48) [9]To: Loco
Ошибка-то исправлена?
← →
Johnmen (2002-08-08 15:51) [10]>Loco © (08.08.02 15:24)
Такое бывает, конечно...Но я просто отвлекаюсь от проблемы и через некоторое время решение приходит само...
:))))))))))))))))
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.006 c
