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).

Вывод

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

Отчет по управлению базами данных Телефонный справочник (стр. 2 из 2)

Вывод