req=req+' AND f_val=?wsp1'

ENDIF 

wsp2=ALLTRIM(thisform.combo2.Value)

IF  !EMPTY(wsp2)

      req=req+' AND nam_val=?wsp2'

ENDIF 

wsp3=ALLTRIM(thisform.combo3.Value)

IF  !EMPTY(wsp3)

      req=req+' AND otc_val=?wsp3'

ENDIF 

wsp4=ALLTRIM(thisform.combo4.Value)

IF  !EMPTY(wsp4)

      req=req+' AND s_val=?wsp4'

ENDIF 

wsp5=ALLTRIM(thisform.text1.Value)

IF  !EMPTY(wsp5)

*?wsp5

      req=req+' AND book.bldn=?wsp5'

ENDIF 

wsp6=ALLTRIM(thisform.text2.Value)

IF  !EMPTY(wsp6)

      req=req+' AND book.bldn_kor=?wsp6'

ENDIF 

wsp7=ALLTRIM(thisform.text3.Value)

IF  !EMPTY(wsp7)

      req=req+' AND book.appr=?wsp7'

ENDIF 

wsp8=ALLTRIM(thisform.text4.Value)

IF  !EMPTY(wsp8)

      req=req+" AND book.telef='"+wsp8+"'"

ENDIF

MESSAGEBOX(req) 

b1=SQLEXEC(e1,req, "test")

?b1

Thisform.Grid1.ColumnCount = 8 

Thisform.grid1.recordsource='test'

Thisform.grid1.recordsourcetype=1

ThisForm.Grid1.DeleteMark=.F.

Thisform.grid1.readonly=.f. 

icn=0 

for icn=1 TO 8 

w_str="Thisform.grid1.columns("+alltrim(str(icn))+").controlsource='"+alltrim(gr_sr(icn))+"'"

&w_str

Thisform.grid1.columns(icn).header1.caption=Alltrim(gr_hd(icn))

Thisform.grid1.columns(icn).header1.Alignment=2 

endfor

select test

go top 
 

Thisform.Grid1.SetFocus()

Thisform.Grid1.refresh()

Thisform.refresh() 
 

     Кнопка  «Очистить»

     Очищает все параметры поиска.

Thisform.combo1.Value=''

Thisform.combo2.Value=''

Thisform.combo3.Value=''

Thisform.combo4.Value='' 

Thisform.text1.Value=''

Thisform.text2.Value=''

Thisform.text3.Value=''

Thisform.text4.Value='' 

     Закрытие  формы

     При закрытие формы происходит завершение соединения с сервером.

     sqldisconnect(sql).

     Вывод

     Была  разработана база данных телефонного  справочника с использованием архитектуры «клиент-сервер», позволяющая осуществлять ввод и поиск абонентов по таким полям, как фамилия, имя, отчество, телефон, улица, дом, корпус, квартира.