DO FORM Dbselect.scx WITH m.lcEnumListDB TO m.lcDbNameSelect

PUBLIC oform1

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


	**************************************************
*-- Form:         form1 (h:\projects\aptweb\forms\dbselect.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   10/07/08 11:08:01 AM
*
DEFINE CLASS form1 AS form


	Height =  223 
	Width =  375 
	ShowWindow =  2 
	DoCreate = .T.
	AutoCenter = .T.
	BorderStyle =  1 
	Caption = "Ïðîãðàììà îáìåíà èíôîðìàöèåé ÀÏÒ"
	MaxButton = .F.
	MinButton = .F.
	Icon = "..\graphics\comp3.ico"
	WindowType =  1 
	dbacces = ""
	Name = "Form1"


	ADD OBJECT combo1 AS combobox WITH ;
		RowSourceType =  1 , ;
		ControlSource = "ThisForm.dbacces", ;
		Height =  25 , ;
		Left =  144 , ;
		Style =  2 , ;
		Top =  70 , ;
		Width =  217 , ;
		Name = "Combo1"


	ADD OBJECT label1 AS label WITH ;
		Alignment =  1 , ;
		BackStyle =  0 , ;
		Caption = "Âûáîð áàçû äàííûõ", ;
		Height =  18 , ;
		Left =  9 , ;
		Top =  74 , ;
		Width =  123 , ;
		Name = "Label1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  168 , ;
		Left =  145 , ;
		Height =  27 , ;
		Width =  84 , ;
		Caption = "Âûáðàòü", ;
		Name = "Command1"


	ADD OBJECT label2 AS label WITH ;
		WordWrap = .T., ;
		BackStyle =  0 , ;
		Caption = "Âûáåðèòå íàèìåíîâàíèå áàçûäàííûõ,ê êîòîðîé áóäåò ïîäêëþ÷àòüñÿ ïðîãðàììà äëÿ âûïîëíåíèÿ îïåðàöèé.", ;
		Height =  61 , ;
		Left =  36 , ;
		Top =  12 , ;
		Width =  301 , ;
		Name = "Label2"


	PROCEDURE Init
		LPARAMETERS lcEnumDB
		WITH This
		.dbacces = GETWORDNUM(lcEnumDB, 1 ,",")
		.Combo1.RowSource = lcEnumDB
		ENDWITH
	ENDPROC


	PROCEDURE Unload
		RETURN ALLTRIM(This.dbacces)
	ENDPROC


	PROCEDURE command1.Click


		ThisForm.Release()
	ENDPROC


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