магазины мебели в москве
|
Автор: Administrator
|
|
Процедура поиска абонентов. Нажатие кнопки на вкладке Поиск Абонента
procedure TForm1.Button3Click(Sender: TObject); var sqlzapros, sqlzapros2,andoperator:shortstring; begin sqlzapros:='select pr.pr as Номер, TNo as телефона,AbName as ФИО_Абонента,AbAdr as Адрес_абонента,City as Город_регистрации, SotCom as Сот_компания,ROName as Рег_оп from (abonents a inner join phones p on a.abno=p.abno) inner join pr on pr.pr=p.pr where'; if radiogroup1.ItemIndex=0 then begin if (checkstr(edit5.Text,1)) or (length(edit5.Text)<>12) then begin showmessage('Ошибка ввода ИНН'); exit; end; sqlzapros2:=' a.abno='''+edit5.Text+''''; end else if radiogroup1.ItemIndex=1 then begin if (checkstr(edit11.Text,1)) or (checkstr(edit6.Text,1)) or (length(edit11.Text)<>3) or (length(edit6.Text)<>7) then begin showmessage('Ошибка ввода телефона'); exit; end; sqlzapros2:=' p.tno='''+edit6.Text+''' and pr.pr='+edit11.text; end else begin if (edit7.Text+edit8.Text+combobox4.Text+combobox5.Text)='' then begin showmessage('Введите параметры поиска'); exit; end; if edit7.text<>'' then begin if (checkstr(edit7.Text,3)) then begin showmessage('Ошибка ввода ФИО'); exit; end;end; if edit8.text<>'' then begin if (checkstr(edit8.Text,3)) then begin showmessage('Ошибка ввода города'); exit; end;end; andoperator:=' '; sqlzapros2:=''; if edit7.text<>'' then begin sqlzapros2:=' a.abname='''+edit7.Text+''''; andoperator:=' AND' end; if edit8.text<>'' then begin sqlzapros2:=sqlzapros2+andoperator+' p.city='''+edit8.Text+''''; andoperator:=' AND' end; if combobox4.text<>'' then begin sqlzapros2:=sqlzapros2+andoperator+' pr.sotcom='''+combobox4.Text+''''; andoperator:=' AND' end; if combobox5.text<>'' then begin sqlzapros2:=sqlzapros2+andoperator+' pr.ROName='''+combobox5.Text+'''';end; end; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(sqlzapros); adoquery1.SQL.Add(sqlzapros2); adoquery1.Open; end;
|
. Реклама в телефонных справочниках.