SELE  0 
CREATE CURSOR SP_PO (KOD_P N( 4 ),NAIM_P C( 40 ))
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 1 ,'ГОТОВКО РОМУАЛЬД ИОСИФОВИЧ              ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 2 ,'ВЕЛИЧКО ЛЮЦИАН ГРИГОРЬЕВИЧ              ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 3 ,'ЛИСОВСКИЙ СТАНИСЛАВ ИВАНОВИЧ            ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 4 ,'БЫЧЕК ЕВГЕHИЙ HИКОЛАЕВИЧ                ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 6 ,'ПОЗНЯК НИКОЛАЙ ИВАНОВИЧ                 ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 8 ,'АНИСКЕВИЧ ИВАН ИВАНОВИЧ                 ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 9 ,'АРОДЬ ВАЦЛАВ ФРАНЦЕВИЧ                  ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 10 ,'БЕЙ ФРАНЦ БРОНИСЛАВОВИЧ                 ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 13 ,'БУДРА ЧЕСЛАВ АЛЬГЕДРАС                  ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 15 ,'БОГДАН ЗДИСЛАВ ИВАНОВИЧ                 ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 16 ,'БУРАК МАРИЯ МИХАЙЛОВНА                  ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 17 ,'БОЛОНДЗЬ АЛЕКСАНДР АЛЕКСАНДРОВИЧ        ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 18 ,'ВОДЕЙКО СТАНИСЛАВ МИХАЙЛОВИЧ            ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 19 ,'ВОРОНА ВАЦЛАВ ИОСИФОВИЧ                 ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 20 ,'ВАСИЛЕВСКИЙ СТАНИСЛАВ АНТОНОВИЧ         ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 21 ,'ВОЛЫНЕЦ ГЕОРГИЙ АЛЕКСЕЕВИЧ              ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 23 ,'ГЕТКО ФЕЛИКС ВАЦЛАВОВИЧ                 ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 29 ,'ГЕЙШТОВТ БОГДАН ВАЦЛАВОВИЧ              ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 31 ,'ЖУРАВЛЕВ АНАТОЛИЙ АНИСИМОВИЧ            ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 34 ,'КЛЫШЕЙКО ТАДЕУШ КАРЛОВИЧ                ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 35 ,'КАРАБАЧ НИНА ИВАНОВНА                   ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 36 ,'КОДИС ЗОЯ ВИТОЛЬДОВНА                   ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 37 ,'КУРИЛОВИЧ ОЛЕГ ВИКТОРОВИЧ               ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 43 ,'МОРОЗОВ МИХАИЛ ГРИГОРЬЕВИЧ              ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 45 ,'МАКАРЕНКО ВИКТОР ИВАНОВИЧ               ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 47 ,'МОСКОВСКИЙ ИВАН ПЕТРОВИЧ                ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 48 ,'МАНИКАЛО АНАТОЛИЙ ВЛАДИМИРОВИЧ          ')
INSERT INTO SP_PO (KOD_P,NAIM_P) VALUES ( 49 ,'НАЙДЕН ИВАН АНТОНОВИЧ                   ')

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	Height =  240 
	Width =  343 
	Desktop = .T.
	DoCreate = .T.
	AutoCenter = .T.
	BorderStyle =  2 
	Caption = "Поиск работника по первым буквам или фрагменту"
	ControlBox = .F.
	FontSize =  10 
	MaxButton = .F.
	MinButton = .F.
	WindowType =  1 
	WindowState =  0 
	sym = ("")
	kodt = ""
	Name = "Form1"
	wsp = .F.
	cfilter = .F.
	cfilterold = .F.


	ADD OBJECT list1 AS listbox WITH ;
		BoundColumn =  2 , ;
		ColumnCount =  2 , ;
		ColumnWidths = "256,52", ;
		RowSourceType =  3 , ;
		RowSource = "SELECT NAIM_P,STR(KOD_P,4) FROM SP_PO  WHERE NOT EMPTY(NAIM_P) order by NAIM_P INTO CURSOR CFIO", ;
		ControlSource = "THISFORM.KODT", ;
		FirstElement =  1 , ;
		Height =  202 , ;
		IncrementalSearch = .F., ;
		Left =  0 , ;
		NumberOfElements =  0 , ;
		TabIndex =  2 , ;
		Top =  1 , ;
		Width =  336 , ;
		Name = "List1"


	ADD OBJECT txtsearch AS textbox WITH ;
		Height =  23 , ;
		Left =  222 , ;
		TabIndex =  1 , ;
		Top =  211 , ;
		Width =  100 , ;
		Name = "txtSearch"


	ADD OBJECT label1 AS label WITH ;
		WordWrap = .T., ;
		Caption = "Вводите первые буквы фамилии или фрагмент в форме(*.....):", ;
		Height =  32 , ;
		Left =  8 , ;
		Top =  206 , ;
		Width =  207 , ;
		TabIndex =  3 , ;
		BackColor = RGB( 255 , 255 , 128 ), ;
		Name = "Label1"


	PROCEDURE Unload
		*RETURN INT(VAL(THISFORM.KODT))
		RETURN THISFORM.KODT
	ENDPROC


	PROCEDURE Load
		PERB=""
	ENDPROC


	PROCEDURE list1.Valid
		RELEASE THISFORM
	ENDPROC


	PROCEDURE txtsearch.InteractiveChange
		LOCAL PERB
		PERB=""
		IF LEFT(This.Value, 1 ) = "*"
			ThisForm.List1.RowSource='SELECT NAIM_P,STR(KOD_P,4) FROM SP_PO WHERE PERB=="" OR AT(UPPER(ALLTRIM(PERB)),NAIM_P)>0 ORDER BY NAIM_P INTO CURSOR CFIO'
		   IF LEN(ALLTRIM(This.Value)) >  1 
		   	  PERB=RIGHT(ALLTRIM(This.Value),LEN(ALLTRIM(This.Value))- 1 )
		   ELSE
			  PERB=""
		   ENDIF
		ELSE
			PERB=UPPER(RTRIM(This.Value))
			ThisForm.List1.RowSource="SELECT NAIM_P,STR(KOD_P,4) FROM SP_PO  WHERE NOT EMPTY(NAIM_P) AND LEFT(NAIM_P,LEN(PERB))=PERB ORDER BY NAIM_P INTO CURSOR CFIO"
		ENDIF
		THISFORM.List1.REQUERY
		*!*	ThisForm.LIST1.SetFocus
		*!*	This.SetFocus
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************