Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

          for I := 0 to List.Count - 1 do begin

            FormClass := TFormClass(GetClass(List[I]));

            if FormClass nil then ShowForm(FormClass);

          end;

        finally

          List.Free;

        end;

      end;

    finally

      IniFile.Free;

    end;

  finally

    StopWait;

  end;

end;

procedure TStaftForm.FormStorageSavePlacement(Sender: TObject);

var

  IniFile: TrxIniFile;

  List: TStrings;

  I: Integer;

begin

  IniFile := TrxIniFile.Create(FormPlacement.IniFileName);

  try

    IniFile.EraseSection(siMDIChilds);

    List := TStringList.Create;

    try

      for I := MDIChildCount - 1 downto 0 do

        List.Add(MDIChildren[I].ClassName);

      if List.Count > 0 then

        IniFile.WriteList(siMDIChilds, List);

    finally

      List.Free;

    end;

  finally

    IniFile.Free;

  end;

end;

function TStaftForm.DBSecurity1CheckUser(UsersTable: TTable;

const

  Password: String): Boolean;

begin

  Result := (Password = UsersTable.FieldByName('Password').AsString);

  if Result then begin

    glUserName := UsersTable.FieldByName('UserName').AsString;

    glUserID := UsersTable.FieldByName('ID').AsInteger;

    glUserLevel := cUserLevel(UsersTable.FieldByName('UserLevel')

                   .AsInteger);

    Result := (glUserLevel ulInvalid);

  end;

  if Result then SetUserLevel;

Рекомендуем скачать другие рефераты по теме: реферат федерация, дипломная работа проект.





Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата