*СОЗДАНИЕ КУРСОРА ИЗ FIO
 
SELE  0 
CREATE CURSOR CFIO (TN C( 5 ),FIO C( 40 ))
INSERT INTO CFIO (TN,FIO) VALUES ('2632 ','0                                       ')
INSERT INTO CFIO (TN,FIO) VALUES ('2473 ','АБРАМЧИК МИХАИЛ ИВАНОВИЧ                ')
INSERT INTO CFIO (TN,FIO) VALUES ('1864 ','АВЕРЬЯНОВ ДМИТРИЙ ПАВЛОВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('1209 ','АГАРЕВИЧ МЕЧЕСЛАВ ИОСИФОВИЧ             ')
INSERT INTO CFIO (TN,FIO) VALUES ('1254 ','АДАМОВИЧ ВИКТОР МЕЧИСЛАВОВИЧ            ')
INSERT INTO CFIO (TN,FIO) VALUES ('2263 ','АЗЕВИЧ СВЕТЛАНА ИВАНОВНА                ')
INSERT INTO CFIO (TN,FIO) VALUES ('1443 ','АЛЕТАРОВИЧ ЮРИЙ ЛЮЦИЯНОВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('1801 ','АМБРОС АНТОН АНТОНОВИЧ                  ')
INSERT INTO CFIO (TN,FIO) VALUES ('1302 ','АНАЦКО ЗЕКФРИД КАЗИМИРОВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('938  ','АПАНАС МАРИЯ СТАНИСЛАВОВНА              ')
INSERT INTO CFIO (TN,FIO) VALUES ('2803 ','АРОДЬ ВИКТОР СТАНИСЛАВОВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('2572 ','АСТАПЕНКО ДЕНИС АЛЕКСАНДРОВИЧ           ')
INSERT INTO CFIO (TN,FIO) VALUES ('2111 ','АШУРОК АЛЕКСАНДР СТАНИСЛАВОВИЧ          ')
INSERT INTO CFIO (TN,FIO) VALUES ('1317 ','БАБИЧ СЕРГЕЙ ИВАНОВИЧ                   ')
INSERT INTO CFIO (TN,FIO) VALUES ('10   ','БЕЙ ФРАНЦ БРОНИСЛАВОВИЧ                 ')
INSERT INTO CFIO (TN,FIO) VALUES ('1346 ','БИЧЕЛЬ ВИКТОР ТАДЕУШЕВИЧ                ')
INSERT INTO CFIO (TN,FIO) VALUES ('2512 ','БЛИЗНЕВСКИЙ ИВАН ИВАНОВИЧ               ')
INSERT INTO CFIO (TN,FIO) VALUES ('1033 ','БОГАТКО ИВАН ИВАНОВИЧ                   ')
INSERT INTO CFIO (TN,FIO) VALUES ('1437 ','БРАНЧЕЛЬ СЕРГЕЙ ЕВГЕНЬЕВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('1152 ','БУРАК ЮРИЙ ВЛАДИМИРОВИЧ                 ')
INSERT INTO CFIO (TN,FIO) VALUES ('3245 ','БЫЛИНСКИЙ ГЕННАДИЙ ЮРЬЕВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('1716 ','БЭЧКО МИХАИЛ ИВАНОВИЧ                   ')
INSERT INTO CFIO (TN,FIO) VALUES ('1043 ','ВАЛЮК РЕГИНА ВИКТОРОВНА                 ')
INSERT INTO CFIO (TN,FIO) VALUES ('2827 ','ВДОВИЧЕНКО АНАТОЛИЙ АНДРЕЕВИЧ           ')
INSERT INTO CFIO (TN,FIO) VALUES ('1006 ','ВЕНСКО ЮРИЙ ВЛАДИМИРОВИЧ                ')
INSERT INTO CFIO (TN,FIO) VALUES ('2124 ','ВИЛЬБИК ГЕННАДИЙ АНТОНОВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('2854 ','ВНУКЕВИЧ АНАТОЛИЙ СТАНИСЛАВОВИЧ         ')
INSERT INTO CFIO (TN,FIO) VALUES ('1350 ','ВОЙДАК АНДРЕЙ ЧЕСЛАВОВИЧ                ')
INSERT INTO CFIO (TN,FIO) VALUES ('3935 ','ВРУБЛЕВСКАЯ ЕЛЕНА МАРЬЯНОВНА            ')
INSERT INTO CFIO (TN,FIO) VALUES ('3423 ','ВЫСОЦКИЙ ИОСИФ ЕВГЕНЬЕВИЧ               ')
INSERT INTO CFIO (TN,FIO) VALUES ('1852 ','ВЯЖЕЛЬ ВАЛЬДЕМИР ЗЕНОНОВИЧ              ')
INSERT INTO CFIO (TN,FIO) VALUES ('1399 ','ГАЙКЕВИЧ ГЕННАДИЙ ЛЮЦИЯНОВИЧ            ')
INSERT INTO CFIO (TN,FIO) VALUES ('1725 ','ГЕРБЕДЬ ВИКТОР ИВАНОВИЧ                 ')
INSERT INTO CFIO (TN,FIO) VALUES ('1515 ','ГИЦЕВИЧ ГЕНРИХ БОЛЕСЛАВОВИЧ             ')
INSERT INTO CFIO (TN,FIO) VALUES ('2441 ','ГЛУССКИЙ ЕВГЕНИЙ МИХАЙЛОВИЧ             ')
INSERT INTO CFIO (TN,FIO) VALUES ('1    ','ГОТОВКО РОМУАЛЬД ИОСИФОВИЧ              ')




PUBLIC oform1

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


	**************************************************
*-- Form:         form1 (d:\zar\p_fio_tn.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   10/04/10 10:40:03 AM
*
DEFINE CLASS form1 AS form


	Height =  260 
	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 =  1 , ;
		ColumnCount =  2 , ;
		ColumnWidths = "52,256", ;
		RowSourceType =  3 , ;
		RowSource = "SELECT TN,FIO FROM CFIO ORDER BY FIO INTO CURSOR CNAM", ;
		ControlSource = "THISFORM.KODT", ;
		FirstElement =  1 , ;
		Height =  202 , ;
		IncrementalSearch = .F., ;
		Left =  1 , ;
		NumberOfElements =  0 , ;
		TabIndex =  2 , ;
		Top =  0 , ;
		Width =  336 , ;
		Name = "List1"


	ADD OBJECT txtsearch AS textbox WITH ;
		Height =  23 , ;
		Left =  4 , ;
		TabIndex =  1 , ;
		Top =  233 , ;
		Width =  334 , ;
		Name = "txtSearch"


	ADD OBJECT label1 AS label WITH ;
		WordWrap = .F., ;
		Caption = "Вводите таб.№ или 1-ые буквы ФИО:", ;
		Height =  18 , ;
		Left =  8 , ;
		Top =  209 , ;
		Width =  211 , ;
		TabIndex =  3 , ;
		BackColor = RGB( 255 , 255 , 128 ), ;
		Name = "Label1"


	ADD OBJECT text1 AS textbox WITH ;
		Height =  23 , ;
		Left =  46 , ;
		Top =  233 , ;
		Visible = .F., ;
		Width =  290 , ;
		Name = "Text1"


	PROCEDURE Unload
		RETURN THISFORM.KODT
	ENDPROC


	PROCEDURE Load
		PERB=""
	ENDPROC


	PROCEDURE list1.InteractiveChange
		WITH ThisForm.txtSearch
			.Value = RTRIM(CNAM.FIO)
			.SelStart =  1 
			.SelLength = LEN( .Value  )
		*	.SETFOCUS 
		ENDWITH
		*inkey( . 1  )
	ENDPROC


	PROCEDURE list1.Valid
		RELEASE THISFORM
	ENDPROC


	PROCEDURE txtsearch.Valid
		IF LASTKEY()= 13  AND NOT EMPTY(THIS.VALUE)
			SELE CNAM
			GO TOP
			THISFORM.KODT=CNAM.TN
			THISFORM.List1.VALID
		ENDIF
	ENDPROC


	PROCEDURE txtsearch.InteractiveChange
		Local lcSofar, lnSelect, lnSelStart, lnSelLength,PERB,cField
		cField='FIO'
		With This
				IF .SelStart >  0 
		*	IF ( LASTKEY() >  31  AND LASTKEY() <  256  ) OR ( LASTKEY() =  7  )
					*** Get the value typed in so far
					lnSelStart = Iif( Lastkey() #  127 , .SelStart, .SelStart -  1  )

					*** Handle and empty value in the text box
					If lnSelStart =  0 
						.Value = ''
						.SelStart =  0 
						Go Bottom In CFIO
						Skip In CFIO
					Else
						lcSofar =  Left( .Value, lnSelStart )
						.Value = lcSofar

						*** Use seek to find the record if a tag was provided
			*				lnSelect = Select()
							Select CFIO
							GO TOP

							*** And locate the specified record
						IF BETWEEN(LEFT(This.Value, 1 ),"0","9")
							cField='TN'
							IF NOT USED('CTN')
								SELECT * FROM CFIO ORDER BY TN INTO CURSOR CTN
							ENDIF
							SELECT CTN
							This.Width= 44 
							ThisForm.Text1.Visible=.T.
						ELSE
							cField='FIO'
							SELECT CFIO
							This.Width= 334 
							ThisForm.Text1.Visible=.F.
						ENDIF

						Locate For Upper( Alltrim( Eval (cField ) ) ) = Upper( lcSofar )
							If Found()
								.Value = Eval( cField )
								ThisForm.Text1.VALUE=FIO
							Endif
			*				Select ( lnSelect )
							*

					Endif

					*** Highlight the portion of the value after the insertion point
					.SelStart = lnSelStart
					lnSelLength = Len( .Value ) - lnSelStart
					If lnSelLength >  0 
						.SelLength =  lnSelLength
					Endif

					*** If we need to refresh the parent container (usually a form or a page, do it here
		*!*				If .lRefreshParent
		*!*					.RefreshParent()
		*!*				Endif

					*** If we have refreshed the controls in the parent container, there are timing issues to overcome
					*** Even though .SelStart and .SelLength have the correct values at this point, the search box
					*** does not appear highlighted correctly without this delay
		*			=Inkey(. 1 )
		*	ENDIF 
			PERB=IIF(TYPE('lcSofar')='L','',Upper( lcSofar ))
		ELSE
			PERB=UPPER(RTRIM(.VALUE))
		ENDIF
		Endwith
		ThisForm.List1.RowSource='SELECT TN,FIO FROM CFIO WHERE (PERB=="" OR LEFT('+CFIELD+',LEN(PERB))=PERB) AND NOT EMPTY('+CFIELD+') ORDER BY '+CFIELD+' INTO CURSOR CNAM'
		THISFORM.List1.REQUERY


	ENDPROC


	PROCEDURE txtsearch.When
			THIS.SelStart =  0 
			THIS.SelLength = LEN(THIS.Value  )
		*
	ENDPROC


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