local ofrm
ofrm=NEWOBJECT("form1")
ofrm.Show( 1 )

MESSAGEBOX("Работа с программой завершена"+chr( 13 )+"Нажмите ОК для завершения", 0 ,"Сообщения") 
CLEAR EVENTS
return

cogepage=auto
screen=off

local ofrm
ofrm=NEWOBJECT("form1")
ofrm.Show( 1 )
READ events
MESSAGEBOX("Работа с программой завершена"+chr( 13 )+"Нажмите ОК для завершения", 0 ,"Сообщения") 
return


CLEAR EVENTS

DEFINE CLASS form1 AS form
	DataSession =  1 
	Desktop = .T.
	ShowWindow =  2 
	DoCreate = .T.
	AutoCenter = .T.
	BorderStyle =  3 
	Caption = "Sample using ComboBox"
	WindowType =  1 
	WindowState =  0 
	Name = "FORM1"

	ADD OBJECT pageframe1 AS pageframe1
     
  PROCEDURE queryunload
        CLEAR EVENTS
  endproc
ENDDEFINE

DEFINE CLASS pageframe1 AS pageframe
		ErasePage = .T.
		PageCount =  2 
		Top =  0 
		Left =  0 
		Width =  373 
		Height =  257 
		Name = "Pageframe1"
		Page1.Caption = "Студенты"
		Page1.Name = "Page1"
		Page2.Caption = "Преподаватели"
		Page2.Name = "Page2"

PROCEDURE Init
      THIS.Page1.AddObject('mypage2','mypage2')
      THIS.Page1.mypage2.Visible = .T.
      THIS.Page2.AddObject('mypage1','mypage1')
      THIS.Page2.mypage1.Visible = .T.
      ENDPROC

ENDDEFINE



DEFINE CLASS mypage1 as Container 
    	Top =  0 
		Left =  0 
		Width =  373 
		Height =  257 
		Name = "Container1"

	ADD OBJECT combo1 as combobox WITH ;	
			ColumnCount =  2 , ;
	   		ColumnWidths = "150,150", ;
			Height =  25 , ;
			Left =  11 , ;
			Style =  2 , ;
			Top =  32 , ;
			Width =  350 , ;
			Name = "Combo1", ;
			visible=.T.
	
	ADD OBJECT text1 AS textbox WITH ;
		Height =  25 , ;
		Left =  23 , ;
		Top =  80 , ;
		Width =  301 , ;
		Name = "Text1", ;
		visible=.T.
    
    ADD OBJECT text2 AS textbox WITH ;
		Height =  25 , ;
		Left =  23 , ;
		Top =  128 , ;
		Width =  301 , ;
		Name = "Text2", ;
		visible=.T.
	
	PROCEDURE combo1.Init
	 WITH This
   		.AddListitem( 'Гуров' )
	   .AddListItem( 'Базы данных', .NewItemID,  2  )
	   .AddListItem( 'Алаева' )
 	   .AddListItem( 'Администрирование', .NewItemID,  2  )
	   .AddListItem( 'Лабутина' )
	   .AddListItem( 'Моделирование', .NewItemID,  2  )
	   .AddListItem( 'Шигалов' )
	   .AddListItem( 'Программирование', .NewItemID,  2  )
	 ENDWITH	
	ENDPROC

    PROCEDURE combo1.click
	 PUBLIC a as Byte
	  a=this.ListItemId
	  thisform.pageframe1.page2.mypage1.text1.value=this.ListItem(a, 1 )
	  thisform.pageframe1.page2.mypage1.text2.value=this.ListItem(a, 2 )
	ENDPROC	
ENDDEFINE

DEFINE CLASS mypage2 as Container
        Top =  0 
		Left =  0 
		Width =  373 
		Height =  257 
		Name = "Container2"

	
	ADD OBJECT combo1 AS combobox WITH ;
			ColumnCount =  2 , ;
	   		ColumnWidths = "150,150", ;
			Height =  25 , ;
			Left =  11 , ;
			Style =  2 , ;
			Top =  32 , ;
			Width =  350 , ;
			Name = "Combo1", ;
			visible=.T.
	
	ADD OBJECT text1 AS textbox WITH ;
		Height =  25 , ;
		Left =  23 , ;
		Top =  80 , ;
		Width =  301 , ;
		Name = "Text1", ;
		visible=.T.
    
    ADD OBJECT text2 AS textbox WITH ;
		Height =  25 , ;
		Left =  23 , ;
		Top =  128 , ;
		Width =  301 , ;
		Name = "Text2", ;
		visible=.T.
	
	PROCEDURE combo1.Init
	 WITH This
   		.AddListitem( 'Щепин' )
	   .AddListItem( '3-42', .NewItemID,  2  )
	   .AddListItem( 'Лаптев' )
 	   .AddListItem( '4-42', .NewItemID,  2  )
	   .AddListItem( 'Красова' )
	   .AddListItem( '1-42', .NewItemID,  2  )
	   .AddListItem( 'Воронин' )
	   .AddListItem( '5-42', .NewItemID,  2  )
	 ENDWITH	
	ENDPROC
    PROCEDURE combo1.click
	 PUBLIC a as Byte
	  a=this.ListItemId
	  thisform.pageframe1.page1.mypage2.text1.value=this.ListItem(a, 1 )
	  thisform.pageframe1.page1.mypage2.text2.value=this.ListItem(a, 2 )
	ENDPROC	
ENDDEFINE