SELE  0   
  CREATE CURSOR CFIO (TN C( 5 ),FIO C( 40 ))  
  INSERT INTO CFIO (TN,FIO) VALUES ('10   ','БЕЙ ФРАНЦ БРОНИСЛАВОВИЧ                 ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1004 ','ЯНЦЕВИЧ АЛЕКСАНДР ИОСИФОВИЧ             ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1005 ','ПЕРОВСКИЙ ИГОРЬ АЛЕКСАНДРОВИЧ           ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1006 ','ВЕНСКО ЮРИЙ ВЛАДИМИРОВИЧ                ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1011 ','ЧЕРНИК ВИТАЛИЙ ИОСИФОВИЧ                ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1026 ','МИССА ЧЕСЛАВ ИОСИФОВИЧ                  ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1043 ','ВАЛЮК РЕГИНА ВИКТОРОВНА                 ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('105  ','КОЗЕЛ АЛЕКСАНДР АНАТОЛЬЕВИЧ             ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1056 ','СНАСТИНА АЛЕКСАНДР ЛЕОНИДОВИЧ           ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1062 ','ЖУК СВЯТОСЛАВ ПЕТРОВИЧ                  ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('107  ','КАСПОР ГАЛИНА МИХАЙЛОВНА                ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1087 ','ДУДИЧ ИВАН ИВАНОВИЧ                     ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('110  ','КОЗЛОВСКАЯ ГАЛИНА ИВАНОВНА              ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1112 ','РЕЙШЕЛЬ ИВАН ИВАНОВИЧ                   ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1114 ','ЯНЧУК ВЛАДИМИР ЛЕОНИДОВИЧ               ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1121 ','ГРИГОРОВИЧ ВИКТОР АНТОНОВИЧ             ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1128 ','ОРАНСКИЙ СТАНИСЛАВ СТАНИСЛАВОВИЧ        ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1136 ','ШУЛЬГАН АЛЕКСАНДР ПЕТРОВИЧ              ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('115  ','ЛЕПЕШКО ГЕОРГИЙ ВАСИЛЬЕВИЧ              ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1152 ','БУРАК ЮРИЙ ВЛАДИМИРОВИЧ                 ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1154 ','ЦИХОВИЧ ИВАН БРОНИСЛАВОВИЧ              ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('116  ','ЛАПКО КАЗИМИР МАРКОВИЧ                  ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('117  ','МАТЮКЕВИЧ ЧЕСЛАВ МИХАЙЛОВИЧ             ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1219 ','БУЙНИЦКИЙ ПЁТР МИХАЙЛОВИЧ               ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('122  ','ПАРФЕНЧИК ГАЛИНА ЯНОВНА                 ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1222 ','САРЕЛО ОЛЬГА ПЕТРОВНА                   ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1223 ','КНУТОВИЧ ГЕНРИХ ГЕНРИХОВИЧ              ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1230 ','ЛУГИН АЛЕКСАНДР ГЕНРИХОВИЧ              ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1233 ','МАТВЕЙЧУК КОНСТАНТИН КОНСТАНТИНОВИЧ     ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1243 ','ИВАНОВ СЕРГЕЙ ПЕТРОВИЧ                  ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('125  ','ПАЦЕВИЧ МАРЬЯН ВЛАДИСЛАВОВИЧ            ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1254 ','АДАМОВИЧ ВИКТОР МЕЧИСЛАВОВИЧ            ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('1267 ','МОГИЛЬНИЦКАЯ ОЛЬГА ИВАНОВНА             ')  
  INSERT INTO CFIO (TN,FIO) VALUES ('127  ','ПУДИНОВСКАЯ БОЖЕНА-ЭМИЛИЯ ИВАНОВНА      ')




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 =  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 =  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 = .F., ;  
  		Caption = "Вводите таб.№ или 1-ые буквы ФИО:", ;  
  		Height =  18 , ;  
  		Left =  8 , ;  
  		Top =  213 , ;  
  		Width =  211 , ;  
  		TabIndex =  3 , ;  
  		BackColor = RGB( 255 , 255 , 128 ), ;  
  		Name = "Label1"  
    
    
  	PROCEDURE Unload  
  		RETURN THISFORM.KODT  
  	ENDPROC  
    
    
  	PROCEDURE Load  
  		PERB=""  
  	ENDPROC  
    
    
  	PROCEDURE list1.Valid  
  		RELEASE THISFORM  
  	ENDPROC  
    
    
  	PROCEDURE txtsearch.Valid  
  		IF LASTKEY()= 13   
  			SELE CNAM  
  			GO TOP  
  			THISFORM.KODT=CNAM.TN  
  			THISFORM.List1.VALID  
  		ENDIF  
  	ENDPROC  
    
    
  	PROCEDURE txtsearch.InteractiveChange  
  				LOCAL PERB  
  				PERB=""  
  				PERB=UPPER(RTRIM(This.Value))  
  				IF BETWEEN(LEFT(This.Value, 1 ),"0","9")  
  					ThisForm.List1.RowSource="SELECT TN,FIO FROM CFIO WHERE LEFT(TN,LEN(PERB))=PERB AND NOT EMPTY(FIO) ORDER BY TN INTO CURSOR CNAM"  
  				ELSE  
  					ThisForm.List1.RowSource='SELECT TN,FIO FROM CFIO WHERE (PERB=="" OR LEFT(FIO,LEN(PERB))=PERB) AND NOT EMPTY(FIO) ORDER BY FIO INTO CURSOR CNAM'  
  				ENDIF  
  				THISFORM.List1.REQUERY  
 		*ThisForm.LIST1.SetFocus  
 		*This.SetFocus  
  	ENDPROC  
    
    
  ENDDEFINE  
 *  
 *-- EndDefine: form1