Init Method
Class: login
Expand/Collapse source code of procedure Init Source Code
*-- (c) Microsoft Corporation 1995

*- this class can't be used independent of the application
IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
	=MESSAGEBOX(CLASSBROWERR_LOC)
	RETURN .F.
ENDIF

thisform.cboName.RowSource = "SELECT " + ;
  thisform.cFieldName + ;
  " FROM " + this.cTable + ;
  " ORDER BY " + thisform.cFieldName + ;
  " INTO CURSOR cNames"

thisform.cboName.Requery()

IF _tally > 0
  thisform.cboName.ListIndex = 1
ELSE
  =MESSAGEBOX(NOEMPLOYEES_LOC, ;
              MB_ICONEXCLAMATION, ;
              TASTRADE_LOC)
  RETURN .F.
ENDIF