LOCAL f_spr as Form
f_spr = CREATEOBJECT("w_spr")
f_spr.Show( 1 )

DEFINE CLASS w_spr AS form

	Height =  77 
	Width =  500 
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Справичники"
	Name = "W_spr"

	ADD OBJECT cmb_pvid AS combobox WITH ;
		RowSourceType =  6 , ;
		Height =  24 , ;
		Left =  264 , ;
		Style =  2 , ;
		TabIndex =  2 , ;
		Top =  32 , ;
		Width =  204 , ;
		Name = "Cmb_pvid"

	ADD OBJECT cmb_vid AS combobox WITH ;
		ColumnCount =  0 , ;
		ColumnWidths = "", ;
		RowSourceType =  6 , ;
		RowSource = "Q_vid.name_vid", ;
		FirstElement =  1 , ;
		Height =  24 , ;
		Left =  36 , ;
		NumberOfElements =  0 , ;
		Style =  2 , ;
		TabIndex =  1 , ;
		Top =  32 , ;
		Width =  204 , ;
		Name = "Cmb_vid"

	ADD OBJECT label1 AS label WITH ;
		Caption = "Справочник видов", ;
		Height =  17 , ;
		Left =  36 , ;
		Top =  12 , ;
		Width =  107 , ;
		Name = "Label1"

	ADD OBJECT label2 AS label WITH ;
		Caption = "Справочник подвидов", ;
		Height =  17 , ;
		Left =  264 , ;
		Top =  12 , ;
		Width =  128 , ;
		Name = "Label2"

	PROCEDURE create_cur
		LPARAMETERS i
		THIS.Cmb_pvid.RowSource = ""
		THIS.Cmb_pvid.Value = ""

		SELECT * FROM Q_pvid WHERE Q_pvid.id_vid = i ;
		  ORDER BY Q_pvid.name_pvid INTO CURSOR C_pvid

		THIS.Cmb_pvid.RowSource = "C_pvid.name_pvid"
		THIS.Cmb_pvid.Requery()
		IF !EOF('C_pvid')
		  THIS.Cmb_pvid.Enabled = .T.
		  THIS.Cmb_pvid.Value = C_pvid.name_pvid
		ELSE
		  THIS.Cmb_pvid.Enabled = .F.
		  THIS.Cmb_pvid.Value = ""
		ENDIF
	ENDPROC

	PROCEDURE Unload
		CLOSE TABLES ALL
	ENDPROC

	PROCEDURE Init
		THIS.Create_cur(Q_vid.id_vid)
	ENDPROC

	PROCEDURE Load
		CLOSE TABLES ALL
		CREATE CURSOR Q_vid (id_vid I, name_vid C( 30 ))
		FOR i= 1  TO  10 
		  INSERT INTO Q_vid (id_vid, name_vid) VALUES (i, "Вид оборудования "+STR(i, 2 ))
		ENDFOR
		GO TOP IN Q_vid

		CREATE CURSOR Q_pvid (id_pvid I, id_vid I, name_pvid C( 30 ))
		k =  0 
		FOR i= 1  TO  9 
		  FOR j= 1  TO  10 -i
		    k = k +  1 
		    INSERT INTO Q_pvid (id_pvid, id_vid, name_pvid) VALUES (k, i, "Подвид оборудования "+STR(i, 1 )+STR(j, 1 ))
		  ENDFOR
		ENDFOR
		GO TOP IN Q_pvid
	ENDPROC

	PROCEDURE cmb_vid.InteractiveChange
		THISFORM.Create_cur(Q_vid.id_vid)
	ENDPROC

	PROCEDURE cmb_vid.Init
		IF !EOF('Q_vid')
		  THIS.Value = Q_vid.name_vid
		ENDIF
	ENDPROC

ENDDEFINE